Làm sao cập nhật đường dẫn khi mở file trong VBA (1 người xem)

[dvu58]

Tôi tạo 1 CommandButton_Click() để mở 1 file có trong 1 thư mục nhất định (VD: "C:\Thư mục\file")

Bạn nào có thể giúp tôi viết code để các đường dẫn tự cập nhật tùy theo mỗi khi cài thư mục vào bất kỳ ổ dĩa nào.

VD: Khi "Thư mục\file" cài vào ổ dĩa D: thì đường dẫn tự cập nhật thành
"D:\Thư mục\file"

Xin cảm ơn các bạn

 

[ndu96081631]

Cho em xin hỏi chút bây giờ em có file Reinforced concrete.xla nằm ở một vị trí nào đó trong máy tính, bây giờ em muốn viết câu lệnh trong file Reinforced concrete.xla để tìm đường dẫn đến chính file đó. Thì dùng câu lệnh nào.
Lệnh Path = ActiveWorkbook.Path thì chỉ cho đường dẫn đến file *.xls hiện hành thôi chứ không cho đường dẫn vào file *.xla mà ta cài trong Add-Ins
Thanks!

Sửa lại thành Path = ThisWorkbook.Path xem

 

[thangcoi]

Sửa lại thành Path = ThisWorkbook.Path xem

Cảm ơm bác em làm được trong Exel rùi. Nhưng thay vào trong CAD thì không nhận. Câu lệnh này chỉ dùng được trong Exel thui.

 

[ndu96081631]

Cảm ơm bác em làm được trong Exel rùi. Nhưng thay vào trong CAD thì không nhận. Câu lệnh này chỉ dùng được trong Exel thui.

Trời ơi! CAD thì nó phải khác chứ (tôi không biết)
Vậy tự bạn nên tìm hiểu "cái gì" trong CAD nó tương đương với Thisworkbook trong Excel

 

[thangcoi]

Trời ơi! CAD thì nó phải khác chứ (tôi không biết)
Vậy tự bạn nên tìm hiểu "cái gì" trong CAD nó tương đương với Thisworkbook trong Excel

Xin lỗi bác em nói không được rõ nghĩa lắm
Trong Exel ta có : Path = ThisWorkbook.Path => OK
Trong Cad ta có : Path = ThisDrawing.Path => ra bản vẽ đang vẽ. chứ không ra file chứa câu lệnh này
Em đã thử ThisDrawing.FullName hay một số câu lệnh khác cũng không ra được. VBA chủ yếu là em tự học chứ có qua trường lớp nào đâu mà biết .

 

[tiepkc47]

Cho em xin hỏi chút bây giờ em có file Reinforced concrete.xla nằm ở một vị trí nào đó trong máy tính, bây giờ em muốn viết câu lệnh trong file Reinforced concrete.xla để tìm đường dẫn đến chính file đó. Thì dùng câu lệnh nào.
Lệnh Path = ActiveWorkbook.Path thì chỉ cho đường dẫn đến file *.xls hiện hành thôi chứ không cho đường dẫn vào file *.xla mà ta cài trong Add-Ins
Thanks!

Mình đang tìm file Reinforced concrete.xla, bạn có thể share giúp mình file này được không? Mình nghĩ file của bạn phù hợp với mấy bảng tính mình đang thử.
Có thể gửi mail cho mình theo địa chỉ: tiepkc47@gmail.com
Thanks so much!