Xin giúp đỡ hỗ trợ code (2 người xem)

[dqminh63]

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

Set sh = Sheet1
Set owb = Workbooks.Open("C:\Test\England.xlsm")
owb.Sheets("Data").Range("A1:F100").Copy
sh.Range("A1").PasteSpecial xlPasteValues
owb.Close False

End Sub

p/S : mình tìm được 1 đoạn code và sử dụng , nhưng mình muốn thay chổ tên đường dẫn Set owb = Workbooks.Open("C:\Test\England.xlsm") bằng 1 ô trong excel ( ví dụ : ô đó mình chỉ cần gõ link đường dẫn ) để thuận tiện việc có thể lấy từ nhiều link khác mà không cần phải vào trong sửa đổi code . Mong các a/ce giúp đỡ

 

[Maika8008]

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

Set sh = Sheet1
Set owb = Workbooks.Open("C:\Test\England.xlsm")
owb.Sheets("Data").Range("A1:F100").Copy
sh.Range("A1").PasteSpecial xlPasteValues
owb.Close False

End Sub

p/S : mình tìm được 1 đoạn code và sử dụng , nhưng mình muốn thay chổ tên đường dẫn Set owb = Workbooks.Open("C:\Test\England.xlsm") bằng 1 ô trong excel ( ví dụ : ô đó mình chỉ cần gõ link đường dẫn ) để thuận tiện việc có thể lấy từ nhiều link khác mà không cần phải vào trong sửa đổi code . Mong các a/ce giúp đỡ

Thay bằng giá trị của một ô nào đó, ví dụ là ô AA1: Workbooks.Open(Range("AA1").Value)
Nhưng AA1 mà không chứa đường dẫn thì lỗi ráng chịu.

 

[VetMini]

Thay bằng giá trị của một ô nào đó, ví dụ là ô AA1: Workbooks.Open(Range("AA1").Value)
Nhưng AA1 mà không chứa đường dẫn thì lỗi ráng chịu.

Bạn cần hỏi lại tại sao câu hỏi lại đặt trong phần pi-ét mà không đặt trong phần chính.
Phải nói là văn từ thế hệ này rùng rợn thật. Đổi mới từ từ ngữ đến kết cấu.

 

[Maika8008]

Bạn cần hỏi lại tại sao câu hỏi lại đặt trong phần pi-ét mà không đặt trong phần chính.
Phải nói là văn từ thế hệ này rùng rợn thật. Đổi mới từ từ ngữ đến kết cấu.

Tôi đọc đi đọc lại mà không để ý. Kể cũng kỳ lạ cho cái pi ét đó thật.

 

[dqminh63]

thanks 2 bbác nhiều nhiều