Giúp chỉnh sửa code macro tạo pivottable (1 người xem)

[thutran0801]

Chào mọi người, mình có file để tạo pivot tự động dùng code macro nhưng có chỗ mình ko biết phải chỉnh sửa như thế nào mong mọi người giúp đỡ.!

Workbooks.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"[Test(1).xlsx]Data!R1C1:R36C10", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Sheet1!R1C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion14
Sheets("Sheet1").Select
Cells(1, 1).Select

Chỗ tên file người bôi đỏ có cách nào để động không tức là lấy tên file từ chỗ chọn file như hình của file code, vì dùng code macro chỗ đó bị cố định như vậy mình không biết phải sữa như thế nào

 

[anhdepjai]

Đường dẫn file có dạng: C:\Users\PC_A\Desktop\Test(1).xlsx
bạn cần đoạn Test(1).xlsx thì bạn cắt chuỗi trên tình từ dấu "" trở về bên phải, tạo thành 1 chuỗi con (t) có nội dung là Test(1).xlsx
sau đó gán chuỗi con (t1) có nội dung là t1 = "[" & t & "]Data!R1C1:R36C10"
Khi đó đoạn lệnh trên nó sẽ là:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:= _
t1, Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Sheet1!R1C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion14
Sheets("Sheet1").Select
Cells(1, 1).Select

 

[thutran0801]

Đường dẫn file có dạng: C:\Users\PC_A\Desktop\Test(1).xlsx
bạn cần đoạn Test(1).xlsx thì bạn cắt chuỗi trên tình từ dấu "" trở về bên phải, tạo thành 1 chuỗi con (t) có nội dung là Test(1).xlsx
sau đó gán chuỗi con (t1) có nội dung là t1 = "[" & t & "]Data!R1C1:R36C10"
Khi đó đoạn lệnh trên nó sẽ là:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:= _
t1, Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Sheet1!R1C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion14
Sheets("Sheet1").Select
Cells(1, 1).Select

Cám ơn bạn nhưng mình ko hiểu lắm, mới bắt đầu tìm hiểu vấn đề này. Bạn hướng dẫn bằng file mẫu của mình đc ko???