Ребята добрый вечер! подскажите пожалуйста где ошибка в коде? Суть заключается в том, чтобы макросом подтягивать данные с закрытого файла, однако выдает ошибку в коде.И еще я слышал, но сам не знаю, что можно скрыть открывание файлов, как это сделать? Буду очень рад любой помощи!
| Код |
|---|
Option Explicit
Sub LoooL()
Dim wb As Workbook
Dim MyRow As Variant
Dim i As Long
Set wb = Workbooks.Open("C:\Users\shulc\Desktop\Тест.xlsx")
For i = 1 To ThisWorkbook.Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
MyRow = Application.Match(ThisWorkbook.Sheets("Лист1"), wb.Worksheets("Лист1").Range("A:A"), 0) 'ошибка в коде'
If Not IsError(MyRow) Then
ThisWorkbook.Sheets("Лист1").Cells(i, 10) = wb.Worksheets("Лист1").Cells(MyRow, 10)
Else
ThisWorkbook.Sheets("Лист1").Cells(i, 10) = "нд"
End If
Next
End Sub |
Изменено: - 07.11.2019 20:08:34
