Не могу заставит работать copy/paste в Excel. Код внутри.

[Meta2]

Доброго времени суток.

У меня есть задача собрать в одном файле содержимое кучи других файлов. эти файлы получены путём работы некой программы, которая продуцирует *.xls из *.html Программа немного корявая, поэтому файлики получаются так себе, для обработки скриптом не шибко пригодные.

Поэтому я хочу собрать вместе содержимое около 300 таких файлов и ручками-ручками их обработать. Для того, чтобы это реализовать, я написал такой код:

Sub Copy_Paste()

Dim sh As Worksheet: Set sh = ActiveSheet

Dim sFname As Variant

Application.ScreenUpdating = False

Dim iPos, j, k As Integer

iPos = 1

sFname = Application.GetOpenFilename(FileFilter:="Excel Files, *.xls", FilterIndex:=1, MultiSelect:=True)

If IsArray(sFname) Then
    For i = LBound(sFname) To UBound(sFname)
        Set Wb = Application.Workbooks.Open(i)
        
        With Wb.Sheets(1).Cells
        
            Set c = .Find(What:="Внимание!", LookIn:=xlValues, LookAt:=xlWhole)
        
            If Not c Is Nothing Then
                sh.Cells(iPos, 1).Activate
                
                .Range(Cells(1, 1), Cells(c.Row, 20)).Select
                Selection.Copy
                
                iPos = iPos + c.Row
                
                sh.Paste
                'NOT WORKING!!!!
                'sh.Cells(iPos, 1).Activate

            End If
        End With
        
       Wb.Close SaveChanges:=True
    Next i
End If
End Sub

Идея такая - я ищу в каждом файле ключевое слово "Внимание!" - выделяю диапазон, копирую его, потом сдвигаю активную ячейку и перехожу к следующему файлу, где ищу ключевое слово, выделяю диапазон ...

Так вот, мне почему-то не удаётся сместить ячейку, в которую я собираюсь производить вставку...

И ещё сильно раздражает появление диалога со словами "В буфере обмена находится большой объём данных..." Как-нибудь можно сделать так, чтобы программа просто тупо копировала, а не думала за меня, что делать с данными в буфере??

Примеры файлов в аттаче.

Спасибо!

[VictorM]

И ещё сильно раздражает появление диалога со словами "В буфере обмена находится большой объём данных..." Как-нибудь можно сделать так, чтобы программа просто тупо копировала, а не думала за меня, что делать с данными в буфере??

Правка-Буфер обмена.
Затем - читаем справку:

Буфер обмена нажмите кнопку Параметры.
Снимите флажок Автоматическое отображение буфера обмена Office.
Снимите флажок Открывать буфер обмена Office при двойном нажатии Ctrl+C.

Должно помочь.
Или же Как не выводить на экран системные предупреждения ?

[doober]

Честно сказать-не понял.что вы хотите скопировать,какая инфа вам нужна,да и ошибка вылетает.
Внутренний голос подсказывает хотите типа прайса создать
Если такое количество файлов для обработки,возможно есть смысл обрабатывать HTML,мороки меньше.
Можете прикрепить файл HTML с пояснениями.что надо с него взять.

[EugeneS]

попробуй заменить часть кода:

If Not c Is Nothing Then
...
End If

на

If Not c Is Nothing Then
   .Range(Cells(1, 1), Cells(c.Row, 20)).Copy sh.Cells(iPos, 1):iPos = iPos + c.Row
 End If

в файле измененный код, если что-то непонятно

[Meta2]

Я хочу получить итоговый файл вида, как в аттаче.

Исходные файлы предоставить не могу. Это набор текстовых файлов - *.asp - страниц, в которых содержится таблицы со номерами грузов, номерами счетов в этих грузах, а также с указанием массы и объёма товаров в грузах.

Исходник дать не могу, сорри.

Программа, которая преобразовывала файлы - TotalHTMLConverter

Основная проблема в том, что наименование некоторых товаров не помещается в одну строку описания и TotalHTMLConverter разбивает его на две строки в таблице. Или сдвигает колонку с весом товара. До позиции 5 вес указывался в колонке, допустим, "K", а с позиции 6 - в колонке "L"

Как я скажу скрипту, что сдвинулась колонка с данными?? И как я ему скажу, что вот этот партномер вдруг оказался на двух строках??

Я бы слил данные из этих файлов в один, руками бы его вычислил и всё. Это одноразовая работа, в будущем она повторяться не будет.

[Meta2]

Результат работы скрипта, как я его вижу, приведён в аттаче.

Результат сформирован на основании файлов 1.xls, 2.xls, 3.xls

[Meta2]

EugeneS
Евгений, Вы - гений!!!
Спасибо, всё работает. Результат, как я и хотел!

[Meta2]

а вот ещё один вопрос вдогонку:

я хочу визуально отделить запись из одного файла от записи из другого, и пишу такой код:

            If Not c Is Nothing Then
                 .Range(Cells(1, 1), Cells(c.Row, 20)).Copy sh.Cells(iPos, 1): iPos = iPos + c.Row
                 
                 
                 For n = 1 To 30
                    sh.Cells(iPos, n).Interior.ColorIndex = 8
                 Next n
            End If

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

[EugeneS]

результат согласно Вашего примера результирующих данных.

Будучи на Лист1 файла "Main" запустите макрос "Copy_Paste". Результат выводится на Лист2.

PS. Тестировался на 20 вложеных файлах

[Meta2]

EugeneS
Да, спасибо, я уже и сам разобрался. Логическая ошибка - сначала пишу, потом сам же затираю.

Но всё равно спасибо!