Loop Through Files

Question

В строка B У меня есть список кодов и в H2 У меня есть путь к папке, который содержит все файлы для этих кодов.

Я пытаюсь просмотреть этот список, активировать соответствующий файл, скопировать и вставить значения на соответствующую вкладку в исходный файл. Хотя я не могу заставить этот код работать.

Может кто-нибудь рассказать мне, как исправить это?

Sub Master_Recipe() 

Dim MainLoop As Integer 
Dim WB As Workbook 
Dim WBmain As Workbook 
Dim Fac As Integer 

MainLoop = 2 
Set WBmain = ActiveWorkbook 

    Do While MainLoop < 15 
     Fac = Range("B" & MainLoop).Value 
     Set WB = Range("H2").Value & Fac & " - Recipe Book" 'Object required error here 

     Workbooks(WB).Activate 
      Range("C:G").Copy 

     Workbooks("WBmain").Activate 
     Worksheets("Fac").Activate 
      Range("C:G").Paste 

     MainLoop = MainLoop + 1 
    Loop 

End Sub 

Answer 1

Существует немало проблем для решения (поэтому я буду обновлять ответ, поскольку вы даете разъяснения).

Range без определенного листа ОЧЕНЬ плохая практика.

Sub Master_Recipe() 

Dim MainLoop As Integer 
Dim WB As Workbook 
Dim WBmain As Workbook 
Dim Fac As Integer 

Set WBmain = Application.Workbooks.Open("WBmain") 

    For MainLoop = 2 to 14 
     Fac = WBMain.Sheets("NAME OF SHEET with Data").Range("B" & MainLoop).Value 
     Set WB = Application.Workbooks.Open(WBMain.Sheets("NAME OF SHEET with Data").Range("H2").Value & Fac & " - Recipe Book") 

     WB.Sheets("Name of sheet in workbook").Range("C:G").Copy 
     WBMain.Sheets("Fac").Range("C:G").Paste 

    Next MainLoop 

End Sub 

Answer 2

Проблема заключается в линии вы сказали:

Set WB = Range("H2").Value & Fac & " - Recipe Book" 

WB объявлен в книге, но вы пытаетесь сделать его равным строке.

Что вы хотите:

Set WB = Application.Workbooks.Open(Range("H2").Value & Fac & " - Recipe Book") 

при условии, что созданная строка содержит полный путь к файлу.

Если вы сделаете это, вы будете иметь проблемы с этой линии:

Workbooks(WB).Activate 

Это потому, что WB объявлен как книги, но вы пытаетесь использовать его в качестве sttring. Вам нужно сделать что-либо:

WB.Activate 

или

Workbooks(Wb.Name).Activate 

Я думаю, что вы хотели об объявлении ББ в виде строки, в этом случае единственное изменение, которое нужно:

Dim WB As String 

предполагающей файл уже открыт.

**** EDIT ****

Если вы сделаете это, вы должны избавиться от "Установить" ключевое слово, так что линия должна быть:

WB = Range("H2").Value & Fac & " - Recipe Book" 

Answer 3

Вы пытаясь установить строку в качестве объекта рабочей книги, именно поэтому у вас есть ошибка:

Я добавил переменный Темп, чтобы показать вам, где проблема приходит из:

Sub Master_Recipe() 

Dim MainLoop As Integer, _ 
    WB As Workbook, _ 
    WBmain As Workbook, _ 
    Fac As Integer, _ 
    TpStrWb As String 

MainLoop = 2 
Set WBmain = ActiveWorkbook 

    Do While MainLoop < 15 
     Fac = WBmain.Sheets("Fac").Range("B" & MainLoop).Value 
     '---------Changes here------------- 
     TpStrWb = WBmain.Sheets("Fac").Range("H2").Value & Fac & " - Recipe Book" 
     Set WB = Workbooks.Open(TpStrWb) 
     '---------Changes here------------- 

     WB.Range("C:G").Copy 

     WBmain.Sheets("Fac").Range("C1").Paste 

     MainLoop = MainLoop + 1 
    Loop 

End Sub