Mừng Sinh Nhật GPE 11: sáng 25/6 Hà Nội; 1/7 Huế/Đà Nẵng; Trưa 2/7 TPHCM

Các ví dụ cơ bản về các thao tác với các tập tin và thư mục trong VBA cho Excel

Thảo luận trong 'Excel và các ngôn ngữ lập trình khác' bắt đầu bởi handung107, 10 Tháng sáu 2006.

  1. handung107

    handung107 Administrator Staff Member

    1/ Làm thế nào để lấy được ổ đĩa và tên của thư mục hiện tại:

    MsgBox "O dia va ten thu muc hien tai la " & CurDir
    Làm thế nào để thay đổi ổ đĩa hiện tại:

    ChDrive "F"

    2/ Làm thế nào để thay đổi thư mục hiện hành:

    ChDir "F : \ My Documents \ Private"

    3/ Làm thế nào để xác định một File tồn tại trong một thư mục:

    If Dir("F : \ My Documents \ My Workbook.xls") <> "" Then
    ' Chuỗi rỗng sẽ được trả về nếu File không tồn tại

    4/ Làm thế nào để xoá một tập tin:

    Kill "F : \ My Documents \ My Workbook.xls"
    Nếu bạn không chỉ ra ổ đĩa, Excel sử dụng ổ đĩa hiện hành. Nếu bạn không chỉ ra thư mục, Excel sẽ sử dụng thư mục hiện hành.

    5/ Làm thế nào để tạo thư mục mới:

    MkDir "NewPrivateFolder" ' Tạo một thư mục mới trong thư mục hiện hành
    MkDir "F : \ My Documents \ NewPrivateFolder"
    ' Tạo một thư mục mới trong thư mục F: \ My Documents

    6/ Làm thế nào để xoá một thư mục (thư mục phải là rổng):

    RmDir "NewPrivateFolder"
    ' Xóa thư mục con NewPrivateFolder trong thư mục hiện hành
    RmDir "F : \My Documents\NewPrivateFolder"
    ' Xóa thư mục con NewPrivateFolder trong thư mục F:\My Documents

    7/ Làm thế nào để sao chép một tập tin (Tập tin phải là tập tin đóng):

    FileCopy "OrgWorkBook.xls", "CopyWorkBook.xls"
    ' Sao chép OrgWorkBook.xls sang CopyWorkBook.xls trong thư mục hiện hành
    FileCopy "OrgWorkBook.xls", "F : \ My Documents \ CopyWorkBook.xls"
    ' Sao chép OrgWorkBook.xls từ thư mục hiện hành sang F : \ My Documents \ CopyWorkBook.xls

    8/ Làm thế nào để di chuyển một tập tin (Tập tin phải là tập tin đóng):

    OldFilePath = "C : \ OldFolder \ Filename.xls" ' đường dẫn tập tin gốc
    NewFilePath = "C : \ NewFolder \ Filename.xls" ' đường dẫn tập tin mới
    Name OldFilePath As NewFilePath ' di chuyển tập tin
     
  2. Mr Okebab

    Mr Okebab Ngon Ngất Ngây

    Tên ổ đĩa hiện hành : Curdir--------------------------C:\
    O dia va ten thu muc hien tai la : Thisworkbook.Tath--C:\ABC\HMG
    Hình như là vậy phải không chị ???
     
  3. pmhoang

    pmhoang Thành viên thường trực

    Cảm ơn bài viết rất hay của chị.
    Em thấy ChDir nó dư thừa hay sao ấy? Chị xem nó có dư thừa hay không vậy?
    Vì mình chỉ cần
    ChDrive
    "F : \ My Documents \ Private"
    ChDir cũng chính là thư mục hiện hành ở trên luôn rồi.

    [GPECODE=vb]Sub TenThuMuc()
    Dim Mypath As String
    Mypath = Application.ActiveWorkbook.Path
    ChDrive Mypath
    MsgBox "O dia va ten thu muc hien tai la: " & CurDir
    End Sub[/GPECODE]
     

Chia sẻ trang này