Импорт и сохранение с одинаковыми значениями ячейки

Question

Я импортирую разные книги в одну книгу с успешным выполнением, но я не могу сохранить ее с тем же значением ячейки. Кажется, что пропустите часть Range("D2:E3").text при сохранении.

Application.DisplayAlerts = False 
Application.ScreenUpdating = False 


Path = "\\ap01\data\Reports\Scrap WHS02\Scrap History\" 
fileName = Dir(Path & Range("D2:E3").Text & "*_02*.xlsx") 
Do While fileName <> "" 
Workbooks.Open fileName:=Path & fileName, ReadOnly:=True 
For Each Sheet In ActiveWorkbook.Sheets 
Sheet.Copy After:=ThisWorkbook.Sheets(1) 
Next Sheet 
Workbooks(fileName).Close 
fileName = Dir() 
Loop 

Dim sfileName As String 
sfileName = "\\ap01\data\Reports\Scrap WHS02\Scrap History\" & Range("D2:E3").Text & "_02 Scrap.xlsx" 
ActiveWorkbook.SaveAs fileName:=sfileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False 

Application.ScreenUpdating = True 
Application.DisplayAlerts = True 

Answer 1

Проблема может быть с объединенной ячейкой. Когда я использую это будет работать, он не будет работать с слившиеся клетки в диапазоне («D2: E3»)

Dim sfileName As String 
sfileName = "C:\TestFolder\" & Range("D2") & "_02 Scrap.xlsx" 
ActiveWorkbook.SaveAs Filename:=sfileName 

Try, чтобы избежать использования объединенных ячеек в коде.

Answer 2

Я прочитал во французском сайте, чтобы вызвать файл с помощью Dir без (). Поэтому при изменении петли fileName = Dir() с fileName = Dir.