Excel VBA: Lỗi thời gian chạy 214741848 (80010108)

Xin chào, chúng tôi có một macro chạy chính xác trong Excel 2003 bằng Windows XP. Tuy nhiên, chúng tôi hiện đang nâng cấp lên Excel 2010 trên Windows 7 và dòng 'ActiveWorkbook.PivotCaches.Add' luôn gỡ lỗi. Lỗi trích dẫn " Lỗi thời gian chạy '-2147417848 (80010108)': phương thức 'createpivottable' của đối tượng 'pivotcache' không thành công. "

Thật kỳ lạ, khi vào trình gỡ lỗi, mã sẽ hoàn thành nếu bạn chỉ cần nhấp vào 'Phát' lần nữa; tuy nhiên, chúng tôi cần ngăn nó khởi động gỡ lỗi ngay từ đầu, nếu có thể - bạn có suy nghĩ gì không?

Đây là mã bị ảnh hưởng - như bạn có thể thấy mã này lấy dữ liệu từ tệp văn bản, sao chép sang sổ làm việc khác rồi tạo trục:

'Chuyển sang hold.txt
Windows("HOLDS.txt").Kích hoạt

'Sao chép bảng lưu giữ vào sổ làm việc lưu giữ bằng một tab mới
Trang tính("HOLDS").Move Before:=Workbooks(holdings_window_name).ActiveSheet

'Tạo bảng Pivot từ dữ liệu HOLDS.txt
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= "HOLDS!A1:E65536").CreatePivotTable TableDestination:="", TableName:="PivotTable1"

Dòng cuối cùng được hiển thị ở trên là dòng gỡ lỗi; các dòng tiếp theo thêm vào các trường trục không gây ra bất kỳ sự cố nào.

Bất cứ ý tưởng, bất cứ ai?

Trả lời:

CHÀO,

Cách đơn giản nhất để giải quyết vấn đề này có lẽ là ghi lại một dòng ở trên vào năm 2010 và thay thế mã ban đầu bằng một dòng đó.

Đây là một ví dụ về một dòng 2010:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Thế vận hội", Phiên bản:=xlPivotTableVersion14).TạoPivotTable _
TableDestination:="Sheet1!R3C1", TableName:="PivotTable1", DefaultVersion _
:=xlPivotTableVersion14

so với

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= "HOLDS!A1:E65536").CreatePivotTable TableDestination:="", TableName:="PivotTable1"

Chúc mừng,

Shane