Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выброс таблицы в Excel-ный Pivot - Проблема / 4 сообщений из 4, страница 1 из 1
28.10.2004, 15:17:34
    #32759456
Kwazimoda
Kwazimoda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выброс таблицы в Excel-ный Pivot - Проблема
Не всегда срабатывает процедура экспорта в Excel в Pivot
вот кусок кода где ругается:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
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
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
 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)
Главное когда первый раз выполняешь код после открытия программы она нормально все отрабатывает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2004, 17:12:18
    #32759825
Kwazimoda
Kwazimoda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выброс таблицы в Excel-ный Pivot - Проблема
Что, вообще нет вариантов ?
из-за чего ошибка ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2004, 17:15:46
    #32759841
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выброс таблицы в Excel-ный Pivot - Проблема
конечно, можно предположить что проблема тут:

Код: plaintext
tblAll_Transfers!R1C1:R9999C12

а чё делать дальше, хз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2004, 18:12:02
    #32759976
Kwazimoda
Kwazimoda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выброс таблицы в Excel-ный Pivot - Проблема
интересный вариант про хз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выброс таблицы в Excel-ный Pivot - Проблема / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 360ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1670701]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 207ms
total:  360ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]