Вам достаточно было по ссылке, что я дал выше скопировать код и между открытием и закрытием книги вставить вызов своего "Общий_макрос". Т.е. вместо этого куска
Код
'действия с файлом
'Запишем на первый лист книги в ячейку А1 - www.excel-vba.ru
ActiveWorkbook.Sheets(1).Range("A1").Value = "www.excel-vba.ru"
записать:
Код
Call Общиймакрос
и все. Остальное там уже сделано - выбор папки реализован, цикл по файлам в ней тоже.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Sub OpenDialod()
Dim ipath$, fname$, book As Workbook
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then ipath = .SelectedItems(1) Else Exit Sub
End With
fname = Dir(ipath & "\*.xls*")
Do While fname <> ""
Set book = Workbooks.Open(ipath & Application.PathSeparator & fname)
Call Общиймакрос
book.Close True
fname = Dir
Loop
End Sub
Тогда можно выполнить ещё один основной макрос, который в цикле открывает очередной файл, вызывает Общиймакрос(), тот выполняет с файлом те 6, затем основной макрос закрывает файл с сохранением.
- где ссылка что это стырено с другого форума? И кстати там тоже люди работали, дали решение...