Копирование листа Excel - NAV: Программирование

Nataly_imported · 28.07.2005, 14:40

Добрый день!

подскажите кто сталкивался может знает как один лист Excel сохранить в новый файл, задавая при этом имя файла.

**Yoil** · 28.07.2005, 15:02

Попробуйте на текущем WorkSheet все выделить (что-то вроде WorkSheet.Cells.Select в VBA, на Навыжне должно быть похоже), затем что-то вроде Selection.Copy (копируем в буфер).
Далее забиваем на старый файл, открываем новый (задавая при этом имя файла) и делаем туда Paste...
А лезть в Навыжн и лабать рабочий код ломает. Прошу прощения.

Jackal1 · 28.07.2005, 15:24

В VBA макрос состоящий из 2 строк
Sheets("Sheet4").Select
Sheets("Sheet4").Copy

копирует Sheet4 из текущего документа в новый (а Sheets("Sheet4").Move - перемещает).
А у аутомэйшена XlWorkSheet есть функция Copy

Теоретически должно Получится, правда сам не пробовал

Jackal1 · 28.07.2005, 15:32

Проверил, работает.

Сделал в 370 табличке функцию из одной строчки
XlWorkSheet.Copy

В отчете после пишу так

ExcelBuf.CreateBook;
ExcelBuf.SaveCellsToExcel;
ExcelBuf.GiveUserControl;
ExcelBuf.фффф;
CLEAR(ExcelBuf);

где "фффф" моя функция

В итоге текущий WorkSheet отчета копируется в новый документ

Nataly_imported · 29.07.2005, 07:24

Цитата:

Попробуйте на текущем WorkSheet все выделить (что-то вроде WorkSheet.Cells.Select в VBA, на Навыжне должно быть похоже), затем что-то вроде Selection.Copy (копируем в буфер).
Далее забиваем на старый файл, открываем новый (задавая при этом имя файла) и делаем туда Paste...

дело в том, что именно так я и пыталась сделать, но при выполнении строчки
WorkSheet.Cells.Select выдается ошибка что Excel вернул неизвестный код ошибки

Jackal1 · 29.07.2005, 09:58

Копируйте не ячейки а весь WorkSheet целиком