Копирование листа Excel

[Nataly_imported]

Добрый день!

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

[Yoil]

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

[Jackal1]

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

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

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

[Jackal1]

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

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


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

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

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

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

[Nataly_imported]

Цитата:

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

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

[Jackal1]

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