VietTuts

Tự Học Lập Trình Online

  • Home
  • Java
  • Servlet
  • JSP
  • Struts2
  • Hibernate
  • Spring
  • MyBatis
  • Java WS
  • C
  • C++
  • C#
  • Python
  • PHP
  • Excel
  • VBA
  • Web
    • JavaScript
    • JQUERY
    • JSON
    • AJAX
    • CSS
    • HTML
    • HTML5
    • Node.js
    • Angular 7
  • SQL
    • MySQL
    • SQL Server
  • Misc
    • Eclipse
    • Phần mềm tiện ích
    • Cấu trúc DL&GT
    • Selenium Test
VBA Cơ Bản Các Đối Tượng Trong Excel VBA VBA String VBA Date

Các Ví Dụ Về Excel VBA

Ví dụ đối tượng Workbook và Worksheet Chuyển số thành tên cột trong excel vba Show dialog to choose file in excel vba Open excel file in excel vba Create folder in excel vba Connect Excel VBA to Access Database Tạo file excel trong VBA Mở file excel trong VBA Delete file excel trong VBA Đọc nội dung file text trong VBA Ghi file text trong VBA Xóa file text trong VBA Tạo thưc mục trong VBA Xóa thưc mục trong VBA Tìm row cuối cùng trong VBA Tìm column cuối cùng trong VBA Dãy số Fibonacci trong Excel

Xóa thư mục trong VBA


Tạo thư mục trong VBA
Tìm row cuối cùng trong VBA

Bạn có thể xóa thư mục trong VBA bằng việc sử dụng đối tượng Scripting.FileSystemObject hoặc lệnh RmDir. Hãy xem các ví dụ sau đây:

Ví dụ 1: Sử dụng đối tượng Scripting.FileSystemObject để xóa thư mục trong VBA.


Sub deleteFolderExample1()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim currentPath As String
    Dim folderTest As String
     
    currentPath = Application.ActiveWorkbook.Path
    folderTest = currentPath & "\" & "test"
    
    ' create folder "test" if not exists
    If (fso.FolderExists(folderTest)) Then
        fso.DeleteFolder (folderTest)
    End If
End Sub

Ví dụ 2: Sử dụng lệnh RmDir để xóa thư mục trong VBA.


Sub deleteFolderExample2()
    Dim currentPath As String
    Dim folderTest As String
    
    currentPath = Application.ActiveWorkbook.Path
    folderTest = currentPath & "\" & "test2"
    
    ' create folder "test2" if not exists
    If Dir(folderTest, vbDirectory) <> "" Then
       RmDir folderTest
    End If
End Sub

Tạo thư mục trong VBA
Tìm row cuối cùng trong VBA

Recent Updates

Phím tắt hay dùng trong ExcelBảo mật tập tin ExcelDịch trang tính trong ExcelIn trang tính trong ExcelHàm VLOOKUP trong ExcelĐối tượng đồ họa trong ExcelSử dụng macro trong ExcelSử dụng Templates trong ExcelSử dụng chủ đề (theme) trong ExcelSử dụng Style trong ExcelXác thực dữ liệu (Data Validation) trong ExcelSử dụng phạm vi (Range) trong Excel

VietTuts on facebook

Học VBA Excel Online

Danh sách bài học

Học java
Học servlet
Học jsp
Học Hibernate
Học Struts2
Học Spring
Học SQL

Câu hỏi phỏng vấn

201 câu hỏi phỏng vấn java
25 câu hỏi phỏng vấn servlet
75 câu hỏi phỏng vấn jsp
52 câu hỏi phỏng vấn Hibernate
70 câu hỏi phỏng vấn Spring
57 câu hỏi phỏng vấn SQL

About VietTuts.Vn

Hệ thống bài học trên VietTuts.Vn bao gồm các bài lý thuyết và thực hành về các công nghệ java và công nghệ web. Các bài lý thuyết trên hệ thống VietTuts.Vn được tham khảo và tổng hợp từ các trang http://javatpoint.com, http://www.tutorialspoint.com, http://docs.oracle.com/en …

Scroll back to top

Copyright © 2016 VietTuts.Vn all rights reserved. | VietTuts.Vn team | Liên hệ | Chính sách - riêng tư | sitemap.html | sitemap_index.xml