Создать Pivottable В Экселе С Помощью Лотуса

[wowa]

Добрый день.

Помогите разобраться и решить как сделать PivotTable в экселе с помощью LS.

Я делаю экспорт данных из Лотуса в Эксель. На одной страничке в экселе у меня обычная таблица с данными. Из нее , на другой страницу экселя, я хочу создать пивот таблицу

вот как я начал

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlwb=xlApp.Workbooks.Add
Set xlsheetPivot =xlwb.Worksheets(1)
xlsheetPivot.Activate

дальше я записал макрос, его надо как-то переделать под лотус

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'IMT,GMR Program Summary Report'!C1:C11").CreatePivotTable TableDestination _
:="[Book17]Sheet1!R4C2", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion10

Помогите, плз, хоть какими-н идеями. Эт очень срочно.

 

[hosm]

ну, попробовать нечто подобное этому: xlwb.PivotCaches.Add(1, "'IMT,GMR Program Summary Report'!C1:C11").CreatePivotTable("[Book17]Sheet1!R4C2", "PivotTable1", 1)
возможно, надо call

 

[wowa]

Сделал!

Может кому-н пригодиться:

xlSheet.PivotTableWizard 1, "Лист1 !C1:C11", "", "table1"

Dim xlsheet4 As Variant
Set xlsheet4 =xlwb.Worksheets(1)

With xlSheet4.PivotTables("table1").PivotFields("Quarter")
.Orientation = 3
.Position = 1
End With

With xlSheet4.PivotTables("table1").PivotFields("IOT/GMT")
.Orientation = 1
.Position = 1
End With

xlSheet4.PivotTables("table1").AddDataField xlSheet4.PivotTables("table1").PivotFields("Program IMT/GMR Quarterly Budgets"), "Sum of Program IMT/GMR Quarterly Budgets", -4157

 

[ToxaRat]

опять КОМ обьекты...
сколько народу на них еще погорит