• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы wowa
  • Дата начала
W

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

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

hosm

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

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

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
опять КОМ обьекты...
сколько народу на них еще погорит :rolleyes:
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!