Mở File Ex khác từ file hiện hành

[gakon_Office]

Dear GPE!
Mong các chuyên gia GPE chỉ cho em trường hợp này với!
Em muốn tạo một nút update trên 1 file có tên là TongHop.xls nhằm mục đích để mở các file Exe con trong cùng thư mụ ( ổ Data),(ví dụ file : Dta1.xls & Dta2.xls)
2 file này mở lên chỉ có nhiệm vụ links dữ liệu sang file tổng hợp sau đó
lại đóng lại luôn.

Như vậy em phải tạo code cho nút butom có tên là Update như thế nào ạ!

Xin cám ơn GPE!

 

[Quang_Hải]

Dear GPE!
Mong các chuyên gia GPE chỉ cho em trường hợp này với!
Em muốn tạo một nút update trên 1 file có tên là TongHop.xls nhằm mục đích để mở các file Exe con trong cùng thư mụ ( ổ Data),(ví dụ file : Dta1.xls & Dta2.xls)
2 file này mở lên chỉ có nhiệm vụ links dữ liệu sang file tổng hợp sau đó
lại đóng lại luôn.

Như vậy em phải tạo code cho nút butom có tên là Update như thế nào ạ!

Xin cám ơn GPE!

Nếu muốn mở file trong cùng thư muc thì viết thế này

Workbooks.Open Thisworkbook.path & "\Dta.xls"

Sau đó muốn đóng lại thì viết thế này

Workbooks("Dta.xls").Close False

 

[gakon_Office]

Nếu muốn mở file trong cùng thư muc thì viết thế này

Workbooks.Open Thisworkbook.path & "\Dta.xls"

Sau đó muốn đóng lại thì viết thế này

Workbooks("Dta.xls").Close False

Xin hỏi Trường hơp của thầy có phải là file tổng hợp và file Dta trong cùng một thư mục không ạ!
Nếu khác thư mục thì code phải sửa lại cấu trúc đường dẫn thế nào vậy thầy!
Xin cảm ơn!

 

[Quang_Hải]

1. Xin đừng gọi như thế vì mình chỉ học đươc 1/100 của sư phu NDU và các thành viên khác
2. Thisworkbook.path có thể sửa lại. Ví dụ : "D:\DULIEU\Dta.xls". Cứ test hoài sẽ hiểu ra thôi

 

[gakon_Office]

Vâng em thực hiện đc rồi anh ạ!
Nhưng nó bị mắc cái lỗi hiện hộp thông báo như hình đính kèm.
Vậy em muốn bỏ cái thông báo này trong quá trình chạy code thì em phải sử dụng thêm lệnh nào nữa ạ?
Xin cảm ơn, Mong đc chỉ dẫn thêm !

 

[Quang_Hải]

Bạn tắt chức năng update remode reference xem thế nào.

 

[gakon_Office]

Bạn tắt chức năng update remode reference xem thế nào.

Em chưa biết chức năng này ở đâu ạ! híc

 

[Quang_Hải]

Vây thêm code này vào ở đầu code
ActiveWorkbook.UpdateRemoteReferences = 0

Xong rồi thì phục hồi lại tính năng này
ActiveWorkbook.UpdateRemoteReferences = 1

 

[gakon_Office]

Vây thêm code này vào ở đầu code
ActiveWorkbook.UpdateRemoteReferences = 0

Xong rồi thì phục hồi lại tính năng này
ActiveWorkbook.UpdateRemoteReferences = 1

Vẫn chưa được anh ạ!
Mặc dầu em đã gán lệnh ActiveWorkbook.UpdateRemoteReferences = 0 vào đầu code. Thấy vẫn hiện thông báo như đã nói ở trên. và em đã ghép ActiveWorkbook.UpdateRemoteReferences = 0 vào sau mỗi dòng lệnh
Workbooks.Open Thisworkbook.path & "\Dta.xls"
nhưng cũng không được.
Anh xem còn cách nào khác không ạ?

 

[Quang_Hải]

Up file lên xem thử coi sao?