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

Chia sẻ bởi:hands

★★★★★

‹ Trung Bình Có điều kiện Nhờ giúp đỡ code copy duy nhất... ›

Quảng cáo

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

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 MOICongCu. Mình gõ câu lệnh Workbooks.Open("E:DL TANG MOICongCuluutru.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

www.giaiphapexcel.com/diendan/threads/l%C3%A0m-th%E1%BA%BF-n%C3%A0o-thay-%C4%91%E1%BB%95i-%C4%91%C6%B0%E1%BB%9Dng-d%E1%BA%ABn-trong-c%C3%A2u-l%E1%BB%87nh-workbooks-open.166270/