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

wowa

Well-known member
01.02.2007
845
0
#1
Добрый день.

Помогите разобраться и решить как сделать 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

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

wowa

Well-known member
01.02.2007
845
0
#3
Сделал!

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

Код:
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

Чёрный маг
Lotus team
06.11.2007
3 231
17
#4
опять КОМ обьекты...
сколько народу на них еще погорит :rolleyes: