2015-10-02 4 views
0

Использование vb.net Я могу успешно создать сводную таблицу Excel в новом листе, но когда я попытаюсь создать ту же сводную таблицу ниже моего набора данных на том же рабочем листе, он не сможет создать опорный стол Таблица. Код ниже показывает рабочий код и нерабочий код. Что мне не хватает.Добавить сводную таблицу в существующий рабочий лист

' Adding pivot table to new worksheet works fine 
    With xlBook 
     .Worksheets.Add(After:=.Worksheets(.Worksheets.Count)) 
    End With 
    xlBook.PivotCaches.Create(SourceType:=Excel.XlPivotTableSourceType.xlDatabase, SourceData:="Orders Table!R1C1:R26C19", _ 
           Version:=Excel.XlPivotTableVersionList.xlPivotTableVersion12).CreatePivotTable(TableDestination:="Sheet3!R3C1", TableName:="PivotTable1") 
    xlSheet = xlBook.Worksheets("Sheet3") 
    xlSheet.Cells(3, 1).Select() 

    ' Adding pivot table to existing "Orders Table" worksheet FAILS 
    xlBook.PivotCaches.Create(SourceType:=Excel.XlPivotTableSourceType.xlDatabase, SourceData:="Orders Table!R1C1:R26C19", _ 
           Version:=Excel.XlPivotTableVersionList.xlPivotTableVersion12).CreatePivotTable(TableDestination:="Orders Table!R30C1", TableName:="PivotTable1") 
    xlSheet = xlBook.Worksheets("Orders Table") 
    xlSheet.Cells(30, 1).Select() 

ответ

0

Я думаю, что наиболее вероятной причиной этой проблемы является то, что вы пытаетесь добавить шарнир с другого листа, чем цель.

Смежные вопросы