Công ty TNHH Đào tạo Tư vấn và Đầu tư AFTC
Hiển thị kết quả tìm kiếm từ 1 đến 2 trên tổng số: 2
  1. #1
    Tham gia ngày
    05 2006
    Nơi Cư Ngụ
    TP HCM
    Bài gởi
    1,466
    Cảm ơn
    1,213
    Được cảm ơn 16,254 lần trong 1,302 bài viết

    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

    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. Có 10 thành viên cảm ơn handung107 về bài viết này:


  3. #2
    Tham gia ngày
    08 2006
    Bài gởi
    3,267
    Cảm ơn
    1,733
    Được cảm ơn 3,740 lần trong 1,765 bài viết
    Trích Nguyên văn bởi handung107
    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"
    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ị ???

  4. Có 2 thành viên cảm ơn Mr Okebab về bài viết này:


Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Lập trình cho các thao tác lặp lại trong EXCEL
    Viết bởi tamngoan trong chuyên mục Hỏi đáp những vấn đề khác
    Trả lời: 0
    Bài mới gởi: 03-05-13, 08:14 PM
  2. Thao tác với đồ thị trong excel?
    Viết bởi phonglinh_2205 trong chuyên mục Thành viên giúp nhau
    Trả lời: 2
    Bài mới gởi: 26-02-13, 07:07 PM
  3. Xin được hướng dẫn 1 thao tác trong excel
    Viết bởi ntrhuy trong chuyên mục Những vấn đề chung
    Trả lời: 3
    Bài mới gởi: 28-10-12, 09:37 PM
  4. Hàm và thao tác trong excel
    Viết bởi tamnguyen065 trong chuyên mục Excel 2007, 2010 & 2013
    Trả lời: 2
    Bài mới gởi: 14-11-11, 11:22 AM
  5. thao tác nhanh trong excel
    Viết bởi namcd trong chuyên mục Những vấn đề chung
    Trả lời: 7
    Bài mới gởi: 26-05-08, 05:51 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]