Здравствуйте всем.
Создал макрос, который ищет в папке "88888" текстовый файл с данными по части названия "_Data", открывает его и сохраняет
как TEST_Data.xls . Так же макрос ищет в созданном файле TEST_Data.xls лист так-же по части названия "_Data"
и переименовывает этот лист в лист с названием "TEST_Data".
Макрос работает нормально, все ищет, создает и переименовывает.
Но вот неприятность, как только я удлинняю путь к тестовику и путь создания фала до "F:\88888\1111"
макрос работает, создает файл TEST_Data.xls , но увы не переименовывает лист в созданном файле.
Тоесть макрос оставляет названия листа с тем полным именем, что нашел файл текстовик.
Тоесть нашел текстовик по части имени "_Data" и с полным именем например "бла-бла-бла_Data" , так и оставляет имя листа в созданном файле "бла-бала-бла_Data". А должен как и в работающем макросе переименовать лист в "TEST_Data".
Прошу коррекции макроса.
Спасибо всем , кто откликнется.
Рабочий макрос для работы только с папкой "88888" по пути "F:\88888"
Sub create()
sFolder = "F:\88888"
sFiles = Dir(sFolder & x & "*_Data.txt")
Do While sFiles <> ""
Workbooks.Open sFolder & sFiles
sFiles = Dir
Loop
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="F:\88888\TEST_Data.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Name Like "_Data*" Then
Sheets("_Data*").Name = "TEST_Data"
End If
Next i
End Sub
НЕ рабочий макрос для работы по пути "F:\88888\1111"
Sub create()
sFolder = "F:\88888\1111"
sFiles = Dir(sFolder & x & "*_Data.txt")
Do While sFiles <> ""
Workbooks.Open sFolder & sFiles
sFiles = Dir
Loop
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="F:\88888\1111\TEST_Data.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Name Like "_Data*" Then
Sheets("_Data*").Name = "TEST_Data"
End If
Next i
End Sub