|
|
|
новичок
участник
Last Login: 28.11.2007 23:43
Сообщ.: 3,
Visits: 17
|
|
Создать новый лист посредством VBA не проблема.
А вот как создать лист так, чтобы к нему сразу приписать несколько строчек кода?
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
|
|
|
|
Supreme Being
участник
Last Login: 26.08.2008 23:09
Сообщ.: 267,
Visits: 3 148
|
|
| Если Вы добавляете всегда один и тотже код, то сохраните лист как шаблон и добавляйте в книгу его.
|
|
|
|
|
Supreme Being
участник
Last Login: 21.01.2008 22:06
Сообщ.: 729,
Visits: 7 700
|
|
| 1. Доверяем доступ к объектной модели проектов VBA (сервис...-безопасность...) 2. В книге, содержащей код создания новых листов, вручную добавляем ссылку на библиотеку Microsoft Visual Basic for Applications Extensibility 5.3; если же код книги, в которой создаются новые листы, должен будет, в свою очередь, управлять проектами VBA, добавляем такую ссылку и в эту книгу. (если эта книга временная, ссылку придётся создавать программно (см. код ниже). Dim strWorkBookName as String, strWorkSheetName as String, strFileName as StringstrWorkBookName="C:\...\....xls":strWorkSheetName="..."
strFileName="C:\...\....txt" 'Файл с кодом листа
With Application.Workbooks(strWorkBookName).VBProject
.References.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 0, 0 'Добавляем ссылку на Microsoft Visual Basic for Applications Extensibility 5.3 в проект VBA временной книги
.VBComponents(strWorkSheetName).CodeModule.AddFromFile strFileName
End With
Всё. P.S. AddFromFile можно заменить на AddFromString.
|
|
|
|