избавиться от лишней манипуляции

[Iskin]

Люди, у меня такая проблема. Мне клиент приносит файлы ексель. Я , для дальнейшей обработки с начало должен: открыть файл, скопировать данные и перенести значения в новую книгу. Далее я открываю следующий файл, копирую и вставляю значения в ту новую книгу, но уже ниже, раннее внесенных значений. И так и далее, иногда десятки раз. В итоге в моей книге получается долгожданная вертикальная портянка с данными. Вопрос: Существуют ли какие примочки или макросы, что бы уйти от этой рутины? А то по обедать иногда хочеться, а тут...

[snakezx]

А кол-во строк в подкачиваемых таблицах всё время разное или всё время одинаковое, если одинаковое, то тут всё просто, с помощью знака = можно справиться, а вогт если раз6ное, то помозговать надо бы!

[КаМММ]

[QUOTE=Iskin;157597]Существуют ли какие примочки или макросы, что бы уйти от этой рутины?QUOTE]
У меня были такие-же заморочки.
Я их решил, вот файл с макросом для экспорта данных выкладываю.
Немного корявенько но меня устраивает.
Просьба пользоваться "как есть" (там завязка на название, по этому сам файл не стоит переименовывать, листы добавлять можно. вставляет на активный)
Это был большой файл, я из него всё лишнее убрал. (ну может и не всё)
Там возможность импорта по названию файла, по содержимому файла.
Для выбора каталога щёлкните по любому файлу в выбраном каталоге.
(подкаталоги просматривает, вставляет только выбранные из сформированного списка)
Последняя строка определяется по столбцу "В"
Сервис => Макросы => Импорт (ну а там я думаю разберётесь)
Зы : если что пароль на проекте 1

[Iskin]

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

А кол-во строк в подкачиваемых таблицах всё время разное или всё время одинаковое, если одинаковое, то тут всё просто, с помощью знака = можно справиться, а вогт если раз6ное, то помозговать надо бы!

К сожелению количество строк всегда разное. И названия фалов тоже.

[EducatedFool]

К сожелению количество строк всегда разное. И названия фалов тоже.

Прикрепите к сообщению исходный файл и файлы, из которых необходимо копировать данные.

Подробно опишите, из каких файлов (с какими именами) надо копировать данные, как распознать (по каким признакам) диапазоны ячеек для копирования, ну и все прочие нюансы.

[Iskin]

Для выбора каталога щёлкните по любому файлу в выбраном каталоге.
(подкаталоги просматривает, вставляет только выбранные из сформированного списка)
Последняя строка определяется по столбцу "В"
Сервис => Макросы => Импорт (ну а там я думаю разберётесь)
Зы : если что пароль на проекте 1[/QUOTE]
Когда пытаюсь выбрать каталог Ошибку выдает...

[Iskin]

Есть файлы. имена файлов начинаются на PackingList, а хвосты разные.
Например: PackingList_11217_ARKU8313050, PackingList_12837_ARKU8401417 и т.д.
Мне надо, в новой книге на листе 1 перенести все значения с листа 1 выше перечислнных файлов. При этом данные должны располагаться друг под другом.
Пример в вложенном файле.

[EducatedFool]

Создайте в книге, куда надо собирать все данные, модуль, и поместите в него следующий код:

Option Compare Text

Function CurrentFolderXLFileNames() As Collection
    Path = GetPath: Dim coll As New Collection: res = Dir(Path)
    While res <> ""
               If LCase(res) Like "*packinglist*.xl*" And res <> ThisWorkbook.Name Then coll.Add Path & res
        res = Dir
    Wend
    Set CurrentFolderXLFileNames = coll
End Function

Function GetPath() As String
    GetPath = ThisWorkbook.Path: PS = Application.PathSeparator
    If Not Right$(GetPath, 1) = PS Then GetPath = GetPath & PS
End Function


Sub Main()
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim sh As Worksheet: Set sh = ThisWorkbook.Worksheets(1)
    With sh
        .Cells.ClearContents ' очиска всех ячеек листа от прежнего содержимого
        Dim tsh As Worksheet, tWB As Workbook
        For Each file In CurrentFolderXLFileNames
            Set tWB = Workbooks.Open(file, , True)
            If Not tWB Is Nothing Then    ' файл открылся
                Set tsh = tWB.Worksheets(1)    '  здесь можно будет написать и название листа
                If Not tsh Is Nothing Then    ' лист присутствует
                    tsh.UsedRange.Copy .UsedRange.Cells(.UsedRange.Cells.Count).Offset(1).EntireRow.Cells(1)
                End If
                tWB.Close False
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Запустите макрос Main

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

[КаМММ]

Когда пытаюсь выбрать каталог Ошибку выдает...

Странно у меня Каталог выбирает.
Только что проверил запустив файлы из выложенного архива.
Как ни странно названия ваших файлов не видит. (мои файлы с названиями типа 966 от 01-окт-08 Термо-С Дерюшева Г. А..xls видит нормально)
В чём причина мне непонятно.
А данные не вставит по тому что у вас столбец "В" пустой.
Надеюсь то что предложил EducatedFool Вам подошло.
А если кто-нибудь знает почему у моего варианта не выбираются файлы буду признателен за совет...

[Iskin]

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

Создайте в книге, куда надо собирать все данные, модуль, и поместите в него следующий код:
Поскольку Вы не указали, как определять границы диапазонов ячеек для копирования, макрос производит копирование всей используемой области первого листа каждого из файлов.

Спасибо огромное! Все отрабатывает именно так как надо (копирование всей используемой области первого листа каждого из файлов), но есть небольшие пожелания.
1. Я так понял макрос отрабатывает в том случае если файлы "packinglist*" находятся в том же корневом каталоге где и сам "общий файл". Это отлично, но было бы не плохо если в случае не нахождения "packinglist*", я бы мог сам указать путь к файлу (потому как файлы находятся в нескольких папках).
2. Желательно что бы на общий лист копировалось не сам лист (с линиями, форматами, с объединениями ячеек), а только значения. Потому как в файлах "packinglist*" есть связи на другие файлы и при импортировании, приходиться для каждого файла разрывать связи.