Переменный каталог в Loop

Question

Я пытаюсь сделать макрос, который позволяет пользователю выбирать файл (файл excel), который затем используется для копирования информации в активную книгу из этого выбранного файла. Я не знаю, как включить каталог переменных файла в код. У кого-то появилась идея?

Sub Ref() 

    Dim Path As String 
    Path = Application.GetOpenFilename 

    Dim r As Integer 
    r = 1 

     For r = 1 To 1000 
      If Not IsEmpty(Range(Path(Cells(r, 1)))) Then 
      Cells(r, 1) = Range(Path(Cells(r, 1))) 
      End If 
     Next 
End Sub 

Answer 1

Похоже, что у вас есть список книг Excel вместе с их пути (ы) в столбце A. Вы будете иметь, чтобы открыть книгу, если вы хотите, чтобы получить информацию из ячейки (ячеек) в это рабочая тетрадь.

Эта общая структура должна помочь вам начать работу на замену, что перебирает значения в активной колонке A рабочего листа активной рабочей книги, открывает каждый файл в списке и передает значение от A1 до столбца B. оригинальной рабочей книги

Sub ref() 
    Dim wb0 As Workbook, wb1 As Workbook 
    Dim r As Long, lr As Long 

    Set wb0 = ActiveWorkbook 

    With wb0.Sheets("Sheet1") 
     lr = .Cells(Rows.Count, 1).End(xlUp).Row 
     For r = 1 To lr 
      If Not IsEmpty(.Cells(r, 1)) Then 
       Set wb1 = Workbooks.Open(.Cells(r, 1).Value2) 
       .Cells(r, 2) = wb1.Sheets("Sheet1").Cells(1, 1).Value 
       wb1.Close False 
      End If 
     Next r 
    End With 

End Sub 

Вам придется расширить, что для вашей собственной конкретной ситуации, но я считаю, вы должны увидеть процесс, как вы Переберите книги, перечисленных в столбце A.