1) как перетащить несколько модулей с одной книги на другую одним скопом? 2)можно ли открыть несколько книг сразу?

[БАХТИ]

1) как перетащить несколько модулей с одной книги на другую одним скопом?

я это делаю по одному, а можно как-то отметить все нужные и сразу одним скопом сделать это?



2) можно ли открыть несколько книг сразу одной командой?

я делаю так:
workbooks.open (...)
workbooks.open (...)
workbooks.open (...)
...

а можно ли как-то одной командой открыть (через запятую или ещё как-то)

[БАХТИ]

у меня 2003

[EducatedFool]

1) как перетащить несколько модулей с одной книги на другую одним скопом?

Каких модулей? Которые с кодом VBA?
Зачем вам нужно несколько файлов с одинаковыми макросами?

2) можно ли открыть несколько книг сразу одной командой?

нет, нельзя
да это и не нужно - чем это лучше, чем открывать книги по-одной?

Если надо данные из книг (с первого листа) - используйте эту функцию:
http://excelvba.ru/code/LoadArrayFromWorkbook
(вы и не заметите, как книги открываются и закрываются)

[БАХТИ]

1) из сайта vbaexcel.ru я взял макрос, который записывает коды макросов в текстовый файл.
попробовал - получилось.
Но он записывает только коды макросов книг.
а у меня есть надстройка - как её коды записать в текстовый файл, используя вышеуказанный макрос?
Поэтому я модули надстройки хотел одним скопом перебросить на книгу и уже макросом с этой книги перебросить на текстовый файл.
(Для того, чтобы кроме надстройки коды хранялись и в текстовом варианте)


2) Значит, по любому чтобы допустим открыть 4 книги я пишу код так-да?
workbooks.open(...)
workbooks.open(...)
workbooks.open(...)
workbooks.open(...)

То есть нельзя открыть 4 книги используя workbooks.open один раз-да?

[Hugo121]

Не понятно, зачем сразу 4 открывать? Мне так никогда не было нужно - обычно открывал по одной тогда, когда это надо, работал с данными, закрывал, открывал следующую...
Всё равно ничего одновременно не происходит - нет тут мультизадачности.
И можно одной переменной обойтись - set wb = workbooks.open(...

[Казанский]

1) из сайта vbaexcel.ru я взял макрос, который записывает коды макросов в текстовый файл.
попробовал - получилось.
Но он записывает только коды макросов книг.
а у меня есть надстройка - как её коды записать в текстовый файл, используя вышеуказанный макрос?

Макроса не видел, но попробуйте вместо Workbooks использовать AddIns. Только проверяйте свойство .Installed, чтобы работать только с подключенными надстройками.

2) Значит, по любому чтобы допустим открыть 4 книги я пишу код так-да?

Ну, можно в цикле, например, открыть несколько книг из одной папки с одинаковым расширением:

Dim x
For Each x In Split("вася петя маша даша")
    Workbooks.Open ("b:\temp\" & x & ".xls")
Next

Однако, прислушайтесь к совету Hugo.

[БАХТИ]

Сообщение от Hugo121

Не понятно, зачем сразу 4 открывать? Мне так никогда не было нужно - обычно открывал по одной тогда, когда это надо, работал с данными, закрывал, открывал следующую...
Всё равно ничего одновременно не происходит - нет тут мультизадачности.
И можно одной переменной обойтись - set wb = workbooks.open(...

например:
Workbooks.Open Filename:="d:\1\sdsd.xls"
Workbooks.Open Filename:="d:\2\2111.xls"
Workbooks.Open Filename:="c:\df\000.xls"

как это написать через set wb = workbooks.open ?

потом чё скажете по первому вопросу насчёт модулей?

[БАХТИ]

ВЛОЖУ КОД

как его изменить, чтобы он скинул на текстовый файл все коды активных надстроек?

[Hugo121]

Попробуйте:

Sub tt()
Dim a, file, wb As Workbook

a = Array( _
          "d:\1\sdsd.xls", _
          "d:\2\2111.xls", _
          "c:\df\000.xls")

For Each file In a
Set wb = Workbooks.Open(file)
With wb.Sheets(1)
MsgBox .[a1]
End With
wb.Close False
Next
End Sub

Это я отвечал на №7.
Про модули ничего не скажу...

[БАХТИ]

спасибо попробую