Lấy đường dẫn file excel đang mở với VBA

Cách lấy đường dẫn file excel đang mở bằng code VBA Excel

1. Code vba lấy thư mục đang chứa file excel
   
2. Code vba lấy đường dẫn đầy đủ file excel đang mở
   
3. Mục đích code lấy đường dẫn file
4. Bài tập về lấy đường dẫn thư mục và file

1. Lấy thư mục đang chứa file excel

Dim DuongDanThuMuc as String

DuongDanThuMuc = ThisWorkbook.Path & "\"

MsgBox DuongDanThuMuc

' Nếu lưu ô D:\UngDungExcel sẽ in ra là D:\UngDungExcel\

2. Lấy đường dẫn đầy đủ file excel đang mở

Dim DuongDanFile as String

DuongDanFile = Application.ActiveWorkbook.FullName

MsgBox DuongDanFile 

3. Mục đích việc lấy đường dẫn file excel để làm gì ?

- Nếu viết 1 ứng dụng excel chúng ta cần xử lý 1 số file đính kèm như xml, json, txt. Các file này nằm trong cùng thư mục với file excel, để đọc được nội dung file kèm theo ta cần có đường dẫn hiện tại của file excel.

- Nếu ta để biến đường dẫn cố định : path="C:\ABC\" , nếu như chuyển sang máy khác thì liệu thư mục ABC này có thể không có, nhưng như vậy không được linh hoạt khi làm ứng dụng excel, mà ta phải tính đến việc đường dẫn tự động tạo ra.

   * Vụ dụ: khi copy file excel vào ổ D:\dulieu\cuatoi\  thì tự động tạo giá trị path="D:\dulieu\cuatoi\"
      Khi đó ta chỉ cần nối thêm path=path+"\file.xml" 

Các bạn tham khảo video đọc file text / json / xml

MỜI BẠN XEM VIDEO

4. Bài tập lấy đường dẫn thư mục và đường dẫn file ?

  - Bài tập 01: Tạo ra 1 thư mục ổ D:\UngDung
             - Tạo 1 file excel có tên ungdung01
             - Tạo 1 file data.txt, nhập vào nội dung là : hello iif

      Yêu cầu sau khi code VBA: khi mở file excel lên ungdung01 , hệ thì nội dung đưa vào ô
          A1: đường dẫn thư mục: D:\UngDung         
          A2: đường dẫn đầy đủ của file: D:\UngDung\ungdung01.xlsx
          A3: nội dung file text là hello iif

 
    Sau khi hoàn thành, bạn có thể nội dung để chúng tôi xem nha