Консультация № 55267
13.09.2006, 12:24
0.00 руб.
0 1 1
Добрый день. Вопрос неспециалиста в VBA к профессионалам. Занимаюсь программированием уже давно, но с VBA столкнулся недавно. Задача может показаться простой: имеется 12 файлов .xls в каждом задействован только 1 лист. Как можно создать одну книгу из 12 листов с данными из этих 12 файлов?
Алгоритмически всё просто, но на практике...
Заранее благодарен за любой совет или код.

Обсуждение

Неизвестный
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
Форма ответа