Скопировать книгу - VBA
Формулировка задачи:
хочу сделать резервное копирование рабочей книги.
дает ошибку на закрытии doc1. причем в модуле "копии акта".
Листинг программы
- wsn = ActiveWorkbook.Name
- res = "Копия своего Акта"
- papka = Sheets(1).Cells(56, 2).Value
- doc1 = papka & "" & res & ".xls"
- doc2 = papka & "" & wsn
- ActiveWorkbook.SaveAs (doc1)
- Set ws = Workbooks.Open(doc2)
- Workbooks(doc1).Close
Решение задачи: «Скопировать книгу»
textual
Листинг программы
- Set odocm = oWord.Documents.Open(sm)
- код
- odocm.SaveAs (doc)
- odocm.Close
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
