Làm thế nào thay đổi đường dẫn trong câu lệnh Workbooks.open

[vmhieu.cdcs]

Xin chào các Anh/Chị

Mình muốn thay đổi đường dẫn để mở Workbook trong câu lệnh Workbooks.Open mà không cần phải mở VBA lên thì làm thế nào?

Ví dụ:

Mình có file luutru.xlsx ở thư mục E:\DL TANG MOI\CongCu. Mình gõ câu lệnh Workbooks.Open("E:\DL TANG MOI\CongCu\luutru.xlsx") để mở file => OK

Nếu mình chép file luutru.xlsx sang thư mục khác và chép đường dẫn của file vào ô A1 trên excel thì VBA cũng cập nhật theo trong câu lệnh Workbook Open.

Xin Anh/Chị chỉ giúp. Xin cảm ơn rất nhiều.

 

[BuiQuangThuan]

Mình có file luutru.xlsx ở thư mục E:\DL TANG MOI\CongCu. Mình gõ câu lệnh Workbooks.Open("E:\DL TANG MOI\CongCu\luutru.xlsx") để mở file => OK

Nếu mình chép file luutru.xlsx sang thư mục khác và chép đường dẫn của file vào ô A1 trên excel thì VBA cũng cập nhật theo trong câu lệnh Workbook Open.

Xin Anh/Chị chỉ giúp. Xin cảm ơn rất nhiều.

Sửa code cũ của anh bằng câu lệnh này:

Sub Button1_Click()
    Dim WB As Workbooks, Link$
    Link = Sheets("Sheet1").Range("A1").Value
    If Len(Link) > 0 Then
        Set WB = Workbooks.Open(Link)
    End If
End Sub

 

[vmhieu.cdcs]

Cảm ơn bạn rất nhiều