Lấy dữ liệu từ 1 file Excel khách đang đóng

Chia sẻ bởi:hands

★★★★★

‹ Tạo nút cập nhật dữ liệu từ... VBA xóa dòng trùng, trống ›

Quảng cáo

mong mọi người giúp ạ. 🙂

Sub importData_test()
    Dim owb As Workbook
    Dim sh As Worksheet

Set sh = Sheet1
    'mở file cần lấy dữ liệu
    Set owb = Workbooks.Open("C:UserscuongDesktopVBAdulieu.xlsx")
    'copy vùng dữ liệu cần lấy
    owb.Sheets("Data").Range("C1:G200").Copy
    'dán vào vũng cần lấy kết quá
    sh.Range("A1").PasteSpecial xlPasteAll
    owb.Close False
End Sub
Trong trường hợp này thì sheet cần lấy dữ liệu phải có tên là "Data"
nhưng mình muốn nhờ mọi người giúp trong trường hợp Sheets"Data" là 1 cái tên bất kỳ mà vẫn lấy được dữ liệu
mong mọi người giúp ạ. 🙂

Sub importData_test(ten_bat_ky as string)
    Dim owb As Workbook
    Dim sh As Worksheet

Set sh = Sheet1
    'mở file cần lấy dữ liệu
    Set owb = Workbooks.Open("C:UserscuongDesktopVBAdulieu.xlsx")
    'copy vùng dữ liệu cần lấy
    owb.Sheets(ten_bat_ky).Range("C1:G200").Copy
    'dán vào vũng cần lấy kết quá
    sh.Range("A1").PasteSpecial xlPasteAll
    owb.Close False
End Sub

muốn nhập sheet nào thì gọi sub này ra, ví dụ sheet tên là Du_lieu thì