13.09.2006, 12:59
общий
это ответ
Здравствуйте, TomSoyer!
Попробуйте эту процедуру, обработку ошибок доделайте сами
В диалоге можно выбрать несколько файлов, первые листы каждого файла копируются в одну новую книгу
Приложение:
Sub MergeBooks() Dim i As Long Dim src, dst As Workbook ‘ Open the file dialog With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show If .SelectedItems.Count = 0 Then Exit Sub Application.ScreenUpdating = False Set dst = Workbooks.Add For i = 1 To .SelectedItems.Count Set src = Workbooks.Add(.SelectedItems(i)) src.Worksheets(1).Copy before:=dst.Worksheets(1) src.Close False Next i End With dst.Activate Application.ScreenUpdating = TrueEnd Sub