2013-12-06 6 views
0

Я новичок в , пытаясь копировать содержимое из одной книги в master.xlsxVBA Ошибка выполнения «424» Объект Rrequired

Но продолжать получать ошибку 424' Object Required.

Пожалуйста, помогите мне с этим простым вопросом.

Sub Submittomaster()  
    Dim Master As Workbook   
    Set Master = Workbook.Open("C:\Users\Elson\Documents\RR\VBA\Tutorial from youtube\master.xlsx")   

    counter = 1 

    Do Until ThisWorkbook.Sheets("sheet1").Cells(counter, 1).Value = "" 

    Master.Sheets("sheet1").Range(counter & ":" & counter).Value = ThisWorkbook.Sheets("sheet1").Range(counter & ":" & counter).Value 
    ThisWorkbook.Sheets("sheet1").Range(counter & ":" & counter).Value = "" 
    counter = counter + 1 
    Loop 

    Master.Save 
    Master.Close 
End Sub 

Спасибо тем, кто может помочь.

+6

Это 'Workbooks.Open()' –

+0

Также еще один совет ... '.Range (счетчик & ":" & счетчик)' можно записать в виде '.Rows (счетчик)' –

ответ

4

Вам не хватает слова «s» в вашем заявлении Set Master. Это должно быть как

Set Master = Workbooks.Open("C:\Users\Elson\Documents\RR\VBA\Tutorial from youtube\master.xlsx") 
Смежные вопросы