Tôi đang cố gắng tạo bảng Pivot nhưng nhận được Invalid Procedure Call or Argument
.Cách tạo Bảng tổng hợp trong VBA
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="rng", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:="rngB", TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14
rng
(Nguồn) là một phạm vi bao gồm khoảng 20 cột và vài ngàn dòng.rngB
(Điểm đến) là một tế bào duy nhất trong một bảng tính khác nhau
bất cứ ai có thể tư vấn cho nơi tôi đang đi sai?
EDIT:
lỗi của tôi, tôi cần phải có được sử dụng rngData
và không rng
như Source.
Set rng = wsA.Range("C14")
Set rngData = Range(rng, rng.End(xlToRight))
Set rngData = Range(rng, rng.End(xlDown))
Set rngB = wsB.Range("C8")
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=rngB, TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14
Điều này sẽ trả về khung PivotTable tốt.
vì vậy, tất cả đều tốt? Đã đóng câu hỏi? – nutsch
Bạn có thể đặt phạm vi dữ liệu bằng một dòng mã: 'Đặt rngData = range (wsA.Range (" C14 "), wsA.Range (" C14 "). End (xlToRight) .end (xlDown))' –