Excel 2007. Создание общей таблицы

Sub GetXLSData()
Application.ScreenUpdating = False
Dim fName, wb, mDir As String
mDir = "c:\tst\" 'имя папки с файлами
wb = ThisWorkbook.Name
fName = Dir(mDir)
r = 1 'первая строка
Do While fName <> ""
If InStr(fName, "xls") > 0 Then 'проверка, xls файл или нет
Workbooks.Open mDir & fName ' открываем найденный файл
'выполняем действия, какие нужно. здесь для примера в общий файл построчно собираются по 10 значений из первой строки каждого файла.
For i = 1 To 10
Workbooks(wb).Sheets(1).Cells(r, i).Value = Workbooks(fName).Sheets(1).Cells(1, i).Value
Next i
Workbooks(fName).Close 'закрыли файл
r = r + 1 'добавляем строку
End If
fName = Dir ' получаем имя следующего файла
Loop
Application.ScreenUpdating = True
End Sub

Нет самого главного. Как все эти файлы именуются и где находятся? В одной папке или нет? И что значит "вставлялись"? Сумма одной ячейки по всем файлам? Если так, то формулы нет - придется писать макрос.

Положим, что информацию собираешь в файле a0.xls
В любом текстовом редакторе (FAR) набери
=[a1.xlsx]Лист1!$A$1+[a1.xlsx]Лист1!$A$1+[a1.xlsx]Лист1!$A$1+[a1.xlsx]Лист1!$A$1+...
Как видишь, можно просто скопировать одну запись, а потом только чуть-чуть переименовать названия файлов
=[a1.xlsx]Лист1!$A$1+[a2.xlsx]Лист1!$A$1+[a3.xlsx]Лист1!$A$1+[a4.xlsx]Лист1!$A$1+...
а потом эту запись вставь в ячейку и размнож.

Узнаете как, отправьте мне... заранее спасибо...

планета эксел. ру.. . только на английском прям такими же словами. очень полезный сайт. Там Вы сможете найти ответ на свой вопрос.