Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Анатолий (Киев) Попробуйте иначе:
Dim XlApp As New Excel.Application Set WB = XlApp.Workbooks.Open FileName:="D:\1.xlsx" WB.WorkSheets("Лист2").PrintOut Copies:=1 WB.Close Set WB = XlApp.Workbooks.Open FileName:="D:\2.xlsx" WB.WorkSheets("Лист1").PrintOut Copies:=2 WB.WorkSheets("Лист2").PrintOut Copies:=1 WB.Close XlApp.Quit
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.