Я пытаюсь импортировать данные из нескольких рабочих книг в одну, но я пытаюсь напечатать имя файла в первом пустом столбце для каждой строки данных. Я хочу выполнить этот шаг для исходных файлов перед импортом данных в новую рабочую книгу.
Имеющийся у меня код может вставить всю информацию в одну рабочую книгу, но мне все еще нужно создать часть код, который вставляет имя файла в первый пустой столбец, и я не уверен, как это сделать.
Я плохо разбираюсь в VBA, и я впервые публикуюсь на этом форуме, поэтому, пожалуйста, дайте мне я знаю, если бы я не опубликовал sh достаточно информации. Мне было интересно, сможет ли кто-нибудь из вас помочь мне с этим? Вот код, который у меня есть (спасибо!)
Sub CopyRange()
Application.ScreenUpdating = False
Dim wkbDest As Workbook
Dim wkbSource As Workbook
Set wkbDest = ThisWorkbook
Dim LastRow As Long
Const strPath As String = "C:" 'file location
ChDir strPath
strExtension = Dir("*.xlsx")
Do While strExtension <> ""
Set wkbSource = Workbooks.Open(strPath & strExtension)
With wkbSource
LastRow = .Sheets("Sheet1Source").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Sheets("Sheet1Source").Range("A2:L" & LastRow).Copy wkbDest.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
.Close savechanges:=False
End With
strExtension = Dir
Loop
Application.ScreenUpdating = True
End Sub