Поиск файла с датой в имени

nike1972

Пользователь

Сообщений: 137 Регистрация: 08.01.2013

14.11.2012 18:32:26

Добрый вечер!
Подскажите что нужно добавить в строку макроса
Files = Dir(sFolder & "*" & Format(Date, "yymmdd") & "*.xls*")
для поиска файла с датой(сегодня)в имени
Пример названия файла Export_settlement_positions_121114142829.xls
правда как видно из имни там не только дата но и время, но может это можно как то игнорировать при поиске
С уважением

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#2 15.11.2012 12:04:02 так что не получается-то? формально все правильно.. Живи и дай жить..

nike1972 Пользователь Сообщений: 137 Регистрация: 08.01.2013	#3 15.11.2012 12:52:31 ноль эмоций, не находит :(

Baklanoff Пользователь Сообщений: 580 Регистрация: 25.12.2012	#4 15.11.2012 12:56:38 NIKE, попробуйте через оператор Like. Например Files Like Dir(sFolder & "" & Format(Date, "yymmdd") & ".xls*"). Пальцем в небо, конечно, но вдруг...

nike1972 Пользователь Сообщений: 137 Регистрация: 08.01.2013	#5 15.11.2012 13:16:38 нет,не хочет работать

nike1972 Пользователь Сообщений: 137 Регистрация: 08.01.2013	#6 15.11.2012 13:20:54 А я правелно проставил???? sFiles = Files Like Dir(sFolder & "" & Format(Date, "yymmdd") & ".xls*")

Baklanoff Пользователь Сообщений: 580 Регистрация: 25.12.2012	#7 15.11.2012 13:33:50 Нет. Like ставится вместо =

Guest

Гость

15.11.2012 13:42:49

да именно с этой ссылки и брал информацию,видать знаний не хватает!!!
весь код

Sub Get_All_File_from_Folder2()
Dim sFiles As String
ChDir "O:\COMMON.DIR\V.O.N.G\CLS"
sFiles = Dir(sFolder & "*" & Format(Date, "yymmdd") & "*.xls*")
Do While sFiles <> ""
'otkrivaem
Workbooks.Open sFolder & sFiles
'kopiruem i zakrivaem
ActiveWorkbook.Sheets(1).Range("A1:E20").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWorkbook.Close True
Windows("книга1.xls").Activate
Range("A5").Select
ActiveSheet.Paste
Range("A2").Select
sFiles = Dir
Loop
Application.ScreenUpdating = True
End Sub

nike1972 Пользователь Сообщений: 137 Регистрация: 08.01.2013	#9 15.11.2012 14:08:20 с кодом sFiles = Dir(sFolder & "Export.xls*") всё прекрасно работает , но нужно зацепиться за дату в имени файла а вот ето не получаеться

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#10 15.11.2012 14:19:14 а где определяется sfolder ? Живи и дай жить..

nike1972 Пользователь Сообщений: 137 Регистрация: 08.01.2013	#11 15.11.2012 14:42:41 во как! спасибо Слэн!!! не убрал с копируемого примера определение sfolder теперь всё работает sFiles = Dir("" & Format(Date, "yymmdd") & ".xls*") Do While sFiles <> "" 'otkrivaem Workbooks.Open sFiles Спасибо огромное!! Хорошего дня!!!!