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

Тема в разделе "Lotus - Программирование", создана пользователем wowa, 14 мар 2012.

  1. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Добрый день.

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

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

    вот как я начал
    Код (Text):
    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
    Помогите, плз, хоть какими-н идеями. Эт очень срочно.
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    ну, попробовать нечто подобное этому: xlwb.PivotCaches.Add(1, "'IMT,GMR Program Summary Report'!C1:C11").CreatePivotTable("[Book17]Sheet1!R4C2", "PivotTable1", 1)
    возможно, надо call
     
  3. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Сделал!

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

    Код (Text):
    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
     
  4. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    опять КОМ обьекты...
    сколько народу на них еще погорит :rolleyes:
     
Загрузка...

Поделиться этой страницей