Открыть книгу Excel в Excel

[manowar_gub]

Подскажите в чём ошибка макроса:

Set app = CreateObject("excel.application")
app.Visible = False
Set wkb = app.Workbooks.Open("C:\test.xls")
wkb.Sheets("Лист1").Range("A1:M700" ).Copy

ThisWorkbook.Sheets("Лист2").Range( "A1").Select
ActiveCell.Paste

цель: из test.xls из листа1 скопировать все данные в лист2 текущего файла...

[Hugo121]

Ошибка в том, что открываете другой экземпляр Экселя.

[manowar_gub]

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

Ошибка в том, что открываете другой экземпляр Экселя.

а как сделать по-другому?

[SAS888]

Если Вы хотите скопировать данные, чтобы не было видно процесса открытия и закрытия файла-источника, томожно просто запретить обновление экрана. Например, так:

Sub qq()
    Dim wkb As Workbook: Application.ScreenUpdating = False
    Set wkb = Workbooks.Open("C:\test.xls")
    wkb.Sheets("Лист1").[A1:M700].Copy ThisWorkbook.Sheets("Лист2").[A1]
    wkb.Close: Application.ScreenUpdating = True
End Sub

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

[Hugo121]

Или можно так:

Sub tt()
    With Application
        .ScreenUpdating = False
        With GetObject("C:\test.xls")
            .Sheets("Лист1").[A1:M700].Copy ThisWorkbook.Sheets("Лист2").[A1]
            .Close 0
        End With
        .ScreenUpdating = True
    End With
End Sub

[manowar_gub]

спасиб!

не понял одно - как сравнить список из 12 тыс значений с 3 стами, причём 12 тыс перебирать по-одному? в стиле RC можно сделать как

PHP код:

=сумм(если(A4="B2:B300");1;0)) 


и протянуть на все 12 тыс но интересует аналогия на VBA... причём с сохранением всех не найденных значений в новый столбец. пробовал через

PHP код:

if sheets("Лист1").cells(x,1).value <> sheets("Лист1").cells.range("B2:B300") then sheets("Лист1").cells(y,3).value = sheets("Лист1").cells(x,1).value 


но выдаёт ошибку

[Hugo121]

Ох...
Бросьте это дело - изучайте сразу код на массивах и словаре.
Тут рядом совсем:
http://www.programmersforum.ru/showthread.php?t=205139
Кстати, сейчас потестю, сколько секунд будет 80000 сравнивать с 50000...
Проверил - 52136<->87531 строк сравнивает 1.5 секунды. Правда в примере всего одно совпадение, так что копировать ничего не приходится
Ну копирование может ещё секунду заняло бы...
Да, так и есть - имитация копирования всего диапазона (т.е.100% совпадение при сверке) добавило чуть меньше секунды.

[manowar_gub]

гыгы, ок, разберусь)

на самом деле это лучче т.к. реально под 10 мин excel шарахал подобные мои коды)

[manowar_gub]

у меня 2 диапазона, т.е. 2 столбца. один я указываю вместо М, второй - вместо b, а что делать с c и bb ?

[Hugo121]

Сравниваются диапазоны a и b. В c копируются данные из bb - в данном случае это параллельные массивы, но тут возможны варианты, смотря по задаче.
Главное сам принцип - через массив запоминаем один диапазон в словаре, затем так же через массив проверяем второй диапазон по словарю.
Массивы - не принципиально, можно и напрямую с листом работать, но это в 40 раз медленнее.