Склеивание таблиц из разных файлов в один

[zenner]

Доброе утро! Помогите пожалуйста с макросом который склеит в одном файле содержимое из других файлов. Количество колонок в таблице одинаково а количество строк может менятся. Пример во вложении:
2010.rar

СПАСИБО!!!

[EducatedFool]

Очередная тема без своих наработок...

Что, у вас поиск по форуму не работает?
Или вам жалко потратить 5 минут своего драгоценного времени на поиск готового решения?
Таких макросов на форуме множество - выбирайте любой.
Или вы думаете - а зачем искать, когда на форуме все сделают за меня?

Есть и специальные надстройки для автоматизации подобных действий.

[zenner]

Склеивание нескольких листов в один я нашел на форуме но мне нужно склеить несколько файлов в один!

[Serge 007]

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

Склеивание нескольких листов в один я нашел на форуме но мне нужно склеить несколько файлов в один!

Блеск! А файлы у Вас не из листов состоят?!

[zenner]

Сообщение от Serge 007

Блеск! А файлы у Вас не из листов состоят?!

Из листов но которые находятся в разных книгах!

[Serge 007]

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

Из листов но которые находятся в разных книгах!

И какая разница?
Дать Вам десяток ссылок по запросу "склеить несколько файлов в один" или сами в поисковике любого форума наберёте?
Это один из наиболее часто встречающихся вопросов.

[zenner]

С недавних пор на рабочем компьютере у Нас каждые пол часа сбрасываются файлы с номерами телефонов которые Мы должны включить за неуплату. В конце дня собираются много таких файлов, Вот как они выглядят: dec.rar . Прошу Вас помогите с макросом (я так и не нашел по поиску ) который соединит в один файл все эти куски. Структура столбцов у всех файлов одинаковая, единственное это разное количество строк(первая строка всегда есть но телефонов может и не быть). Спасибо!

[doober]

У вас обычные текстовые файлы.каждому столбцу выделено определенное количество знаков,вот и объединяйте их макросом построчным считыванием опять же в текстовый файл.

[zenner]

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

У вас обычные текстовые файлы.каждому столбцу выделено определенное количество знаков,вот и объединяйте их макросом построчным считыванием опять же в текстовый файл.

doober, подскажите пожалуйста как будет выглядеть этот макрос.Я думал чтобы это склеивание проводилось через excel. Например чтобы в файле excel были две кнопки "Выбор файлов для обработки" и "Обработать" после чего создается суммарный файл excel так как с EXCEL-ем потом будет легче работать. Спасибо!

[doober]

гдето так.

Private Sub CommandButton1_Click()
Dim M_File As String
M_File = "C:\Activare201105030511.xls"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim s
Set txt = oFSO.OpenTextFile(M_File, 1, True)
  s = txt.ReadLine
    i = 2
Do While Not txt.AtEndOfLine

    s = txt.ReadLine
     dd = Split(s, Chr(9), -1)
     For n = 0 To UBound(dd)
Cells(i, n + 1) = dd(n)
      Next
 i = i + 1
Loop
txt.Close
Set txt = Nothing
Set oFSO = Nothing
End Sub

Клей закончился