Файл, к сожалению, приложить не могу.
Имеются файлы созданные в более ранних вверсиях excel, либо с использованием openoffice.
Макросом файл приводится к нужному виду, сохраняется с использованием следующего кода:
где
Fadres - путь к файлу
Fimia - имя файла без расширения
При создании сводной таблицы неактивна кнопка для добавления среза, макросом срез так же не получается вставить.
При выполнении кода:
выдает ошибку 1004
Application-defined or object-defined error
Подскажите, пожалуйста, что не так делаю?
Имеются файлы созданные в более ранних вверсиях excel, либо с использованием openoffice.
Макросом файл приводится к нужному виду, сохраняется с использованием следующего кода:
| Код |
|---|
ActiveWorkbook.SaveAs Filename:=Fadres & Fimia & ".xlsx", FileFormat:=51, _ CreateBackup:=False ActiveWorkbook.Close Workbooks.Open (Fadres & Fimia & ".xlsx") |
где
Fadres - путь к файлу
Fimia - имя файла без расширения
При создании сводной таблицы неактивна кнопка для добавления среза, макросом срез так же не получается вставить.
При выполнении кода:
| Код |
|---|
ActiveWorkbook.SlicerCaches.Add(ActiveSheet.PivotTables("СводнаяТаблица1"), _
"Наименование группы").Slicers.Add ActiveSheet, , "Наименование группы", _
"Наименование группы", 114.75, 256.5, 144, 198.75 |
выдает ошибку 1004
Application-defined or object-defined error
Подскажите, пожалуйста, что не так делаю?
Изменено: - 28.05.2013 14:49:42
