Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Подождать полного открытия книги при копировании данных макросом
 
#1
01.12.2020 16:32:06
Доброго времени зашедшим!

Суть в следующем: из книги "А" макросом открываю книгу "Б" и копирую туда данные. Проблема в том, что макрос не дождавшись открытия книги "Б", выдает ошибку.

И еще, книга "Б" может открываться очень долго, так как система бывает часто сильно перегружена. Пример макроса в прикрепленном файле.
 
 
 
#2
01.12.2020 16:38:14
А если так
Код
Sub Макрос1()
Dim Wb As Workbook

    Set Wb = Workbooks.Open("Y:\Google Диск\2. Проекты Zenno\Квартиры\Сдача квартир\Таблицы\1. Онлайнер - Сдача квартир.xlsm")
    With Wb
        .Sheets("Онлайнер - Сдача квартир").Select
        .Range("F2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        .Range("B1").Select
        .Save
        .Close
    End With
    Workbooks("1. Сдача квартир - Оформление.xlsm").Activate
End Sub
 
 
 
#3
01.12.2020 16:42:00
Цитата
New написал:
Dim Wb As Workbook     Set Wb = Workbooks.Open
Я раньше и этим способом открывал. Крайне редко, конечно, но и он выдавал ошибку не дождавшись.
 
 
 
#4
01.12.2020 17:15:49
Код
    Set Wb = Workbooks.Open("Y:\Google Диск\2. Проекты Zenno\Квартиры\Сдача квартир\Таблицы\1. Онлайнер - Сдача квартир.xlsm")
DoEvents
    With Wb

попробуйте.
По вопросам из тем форума, личку не читаю.
 
 
 
#5
01.12.2020 17:56:34
по-идее, всё должно быть последовательно. В VBA нет ассинхронных методов )
 
 
 
Страницы: 1
Наверх