我正在尝试修改现有代码,以允许用户从文本数据创建图表。当传入的文件数据使用分号分隔其工作的不同数据时,此代码有效,但是当我将其更改为使用选项卡进行解析时,此代码将不起作用。以下是我收到的错误消息:
“运行时错误'1004',数据透视表名称无效,要创建数据透视表报表,必须使用组织为带有标签列的列表的数据。如果要更改数据透视表字段的名称,必须为该字段键入一个新名称。”
我尝试了一些操作,包括更改数据透视表的名称,但这没有用。
任何帮助将不胜感激!
我是VBA的新手,没有任何经验。我已获得此代码,以使其可用于Text(制表符分隔)文件。
Range("A1").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"'ISEDIS_Data'!R1C1:R5000C81", Version:= _
xlPivotTableVersion14).CreatePivotTable
TableDestination:="Sheet1!R3C1", _
TableName:="MYTable2", DefaultVersion:=xlPivotTableVersion14
预期输出是具有5个选项卡的excel工作簿。前四个是图表,最后一个是在单独的单元格中解析的excel数据。