Nhờ hỗ trợ code tạo Pivottable

[phanvantruong]

Chào Anh/Chị/Em,
E có 1 đoạn code muốn nhờ Anh/Chị giúp đỡ chô Sourcedata:= chuyển thành file động, range động để thuận cho quá trình chạy hàng ngày

"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"191209_s!R1C6:R90C9", Version:=6).CreatePivotTable TableDestination:= _
ws.Cells(3, 1), TableName:="PivotTable1", DefaultVersion:=6
"

Cám ơn Anh/Chị /Em.

 

[Thanh Bình PV]

Chào Anh/Chị/Em,
E có 1 đoạn code muốn nhờ Anh/Chị giúp đỡ chô Sourcedata:= chuyển thành file động, range động để thuận cho quá trình chạy hàng ngày

"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"191209_s!R1C6:R90C9", Version:=6).CreatePivotTable TableDestination:= _
ws.Cells(3, 1), TableName:="PivotTable1", DefaultVersion:=6
"

Cám ơn Anh/Chị /Em.

Bác có thể nói rõ được k ạ. Đoạn đại khái thì ý bác là muốn khi chèn thêm thì vẫn dùng code chạy pivot table mới phải k ạ. Bác có thể tìm trên forum cách tìm dòng cuối của cột . )

 

[thukhon2014]

File và Code bạn up lên có bị lệch không nhỉ?, Sao lại là

SourceData:="191209_s!R1C6:R90C9"

Trong bài của bạn làm gì có Sheet nào tên 191209_s ?

 

[phanvantruong]

File và Code bạn up lên có bị lệch không nhỉ?, Sao lại là

SourceData:="191209_s!R1C6:R90C9"

Trong bài của bạn làm gì có Sheet nào tên 191209_s ?

Xin lỗi thiếu 1 file không gửi lên.
File này thực ra đuôi nó là csv nhưng không up được lên mình phải đổi lại xlsx
Cám ơn bạn.

Bài đã được tự động gộp: 13/12/19

Bài đã được tự động gộp: 13/12/19

Bác có thể nói rõ được k ạ. Đoạn đại khái thì ý bác là muốn khi chèn thêm thì vẫn dùng code chạy pivot table mới phải k ạ. Bác có thể tìm trên forum cách tìm dòng cuối của cột . )

Ý mình muốn là tạo được PivotTable cho file đó với Source là ở workbooks khác, workbook đó tên thay đổi theo ngày, range cũng thay đổi

 

[be_09]

Chào Anh/Chị/Em,
E có 1 đoạn code muốn nhờ Anh/Chị giúp đỡ chô Sourcedata:= chuyển thành file động, range động để thuận cho quá trình chạy hàng ngày

"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"191209_s!R1C6:R90C9", Version:=6).CreatePivotTable TableDestination:= _
ws.Cells(3, 1), TableName:="PivotTable1", DefaultVersion:=6
"

Cám ơn Anh/Chị /Em.

Thử copy dữ liệu (bao nhiêu là tùy ý) và paste vào sheet Data rồi sang sheet Tao_PivotTable nhấn nút xem kết quả.

 

[phanvantruong]

Thử copy dữ liệu (bao nhiêu là tùy ý) và paste vào sheet Data rồi sang sheet Tao_PivotTable nhấn nút xem kết quả.

Cám ơn bạn nhiều nhé, để mình thử xem nhé. Chúc cuối tuần vui vẻ, hạnh phúc bên gia đình người thân yêu