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()