ГлавнаяMS ACCESS Создание книги Excel, внесение изменений в название листов
Создание книги Excel, внесение изменений в название листов
Автор Прус Юрий
27.07.2001 г.
Создание книги Excel, внесение изменений в название листов (MSA 2000)
Создание книги Excel, внесение изменений в название листов (MSA 2000)
Процедура CreateExcelObjects: - открывает Excel - "hidden" - создает файл "ex1.xls" на диске C: - переименовывает листы книги - сохранение файла и выход
Sub CreateExcelObjects()
Dim xlApp As Excel.Application Dim wkbNewBook As Excel.Workbook Dim wksSheet As Excel.Worksheet Dim strBookName As String
'Создается скрытая инстанция к Excell Set xlApp = New Excel.Application ' Добавляется новый workbook в Workbooks collection. Set wkbNewBook = xlApp.Workbooks.Add ' Путь и имя книги для сохранения strBookName = "C:ex1.xls" ' К каждому листу добавляется "Автоматически VBA" With wkbNewBook For Each wksSheet In .Worksheets wksSheet.Name = wksSheet.Name & " - Автоматически VBA" Next wksSheet .Close SaveChanges:=True, FileName:=strBookName End With
Set wkbNewBook = Nothing 'Выход из Excell xlApp.Quit
Set xlApp = Nothing Exit Sub End Sub
!!! И не забудьте добавить в References Microsoft Excel 9.0 Object Library