Копировать данные из нескольких файлов Excel

Question

У меня есть папка с 155 файлами Excel.Я должен скопировать F строку из всех 155 файлов Excel в один общий лист.Может это возможно с помощью макроса

Спасибо ~ ravi

Answer 1

Вы имеете в виду F столбец?Как насчет этого?

Sub LoopThroughDirectory()
Dim MyFile As String
Dim Filepath As String
Dim count as Integer
Filepath = "D:\DATA\"
MyFile = Dir(Filepath)
count = 1
Application.ScreenUpdating = False

While MyFile <> ""
    If MyFile = "master.xlsm" Then Exit Sub
    Workbooks.Open (Filepath & MyFile)
    Workbooks(MyFile).sheets("Sheet1").Range("F1:F100").Copy thisworkbook.sheets("Sheet1").Cells(3, count)
    Workbooks(MyFile).Close
    count = count + 1
    MyFile = Dir
Loop

Application.ScreenUpdating = True
End Sub