Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Выброс таблицы в Excel-ный Pivot - Проблема  [new]
Kwazimoda
Member

Откуда:
Сообщений: 24
Не всегда срабатывает процедура экспорта в Excel в Pivot
вот кусок кода где ругается:
Sub OpenPivot()
    Dim FileName As String
    FileName = "AllTransRep_" & CurrentDb.Containers("Databases")!Userdefined.Properties!Period1 _
    & "to" & CurrentDb.Containers("Databases")!Userdefined.Properties!Period2 & ".xls"
    strPath = CurrentDb.Containers("Databases")!Userdefined.Properties!Path
    Call dhParsePath(CurrentDb.Containers("Databases")!Userdefined.Properties!Path, strPath, FileName)
    Set appXls = New Excel.Application
    appXls.Workbooks.Open (strPath & "\" & FileName)
Workbooks(strPath & "\" & FileName).PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"tblAll_Transfers!R1C1:R9999C12").CreatePivotTable TableDestination:="", _
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10

 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.RefreshOnFileOpen = True
    ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("MVMDOCNUM" _
        , "DELLOC", "REFLOC", "CHODAT", "RCVDAT", "ITM"), PageFields:=Array( _
        "CHOTIM", "RCVTIM", "STKSTA", "TRANUM")
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("UNI")
        .Orientation = xlDataField
        .Caption = "Sum of UNI"
        .Function = xlSum
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
Ругается на выделенный жирно-красным код, ошибкой Subscript out of range (Error 9)
Главное когда первый раз выполняешь код после открытия программы она нормально все отрабатывает.
28 окт 04, 15:17    [1068810]     Ответить | Цитировать Сообщить модератору
 Re: Выброс таблицы в Excel-ный Pivot - Проблема  [new]
Kwazimoda
Member

Откуда:
Сообщений: 24
Что, вообще нет вариантов ?
из-за чего ошибка ?
28 окт 04, 17:12    [1069418]     Ответить | Цитировать Сообщить модератору
 Re: Выброс таблицы в Excel-ный Pivot - Проблема  [new]
Kelme
Member

Откуда: Riga, Latvia
Сообщений: 1488
конечно, можно предположить что проблема тут:

tblAll_Transfers!R1C1:R9999C12

а чё делать дальше, хз
28 окт 04, 17:15    [1069442]     Ответить | Цитировать Сообщить модератору
 Re: Выброс таблицы в Excel-ный Pivot - Проблема  [new]
Kwazimoda
Member

Откуда:
Сообщений: 24
интересный вариант про хз
28 окт 04, 18:12    [1069678]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить