Копирование диапазона данных в другую книгу

Question

Я пытаюсь скопировать ряд данных из одной книги в другую. Я бы хотел (а) скопировать любой R ????????? в диапазоне A3: A999 и соответствующая версия из диапазона D3: D999 на следующую доступную пустую ячейку в другой книге, начиная с A2 для R ????????? и D2 для номера версии.

Это то, что я сделал до сих пор, однако я продолжаю получать сообщение об ошибке, пожалуйста, помогите.

Application.ScreenUpdating = False 
Application.EnableEvents = False 
Application.Calculation = xlCalculationManual 

iForm = ("Workbook Location path") 

workbooks.Open(iForm).Worksheets("Scheduled Forms").Select 

Envrange = "A2:D999" 
RowNo = 3 

For Each C In workbooks("Daily Release Process.xlsm").Worksheets("Applications").Range(Envrange) 

    If C.Value Like "R?????????" Then 
    workbooks(iForm).Worksheet("Scheduled Forms").Cells(RowNo, 1).Value = C.Value 
    workbooks(iForm).Worksheet("Scheduled Forms").Cells(RowNo, 4).Value = C.Offset(0, 3).Value 
    RowNo = RowNo + 1 
    End If 
Next C 

ActiveWorkbook.Save 

Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic  
Application.EnableEvents = True 

End Sub 

Заранее спасибо.

Answer 1

Все, что вам нужно сделать, это изменить iForm = ("Workbook Location path") к iForm = "Workbook Location path"