当将“ Tab:= True”解析为“ Semicolon:= True”时,程序不起作用

时间:2019-02-12 23:10:42

标签: vba

我正在尝试修改现有代码,以允许用户从文本数据创建图表。当传入的文件数据使用分号分隔其工作的不同数据时,此代码有效,但是当我将其更改为使用选项卡进行解析时,此代码将不起作用。以下是我收到的错误消息:

“运行时错误'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数据。

0 个答案:

没有答案