поиск файлов по маске и обработка их

gnom75

Гость

30.07.2012 10:56:28

доброе утро!

перелазил весь форум не нашел подходящие примеры для переделки.
суть такова есть куча файлов по датам.
нужно обработать за каждый месяц 62 файла.

есть ли у кого в загашнике пример макроса со следующей функцией:
1. поиск файлов по маске по заданее заданному пути в подпапках далее.
2. открыть незаметно файл и вытащить оттуда данные.

этого было бы более чем достаточно. сама проблема - первый пункт:)

заранее спасибо :)

gnom75

Гость

30.07.2012 12:16:40

с маской файла борюсь - like "*" & data & "*.xlsm"
неужели так нельзя писать?
ищу файлы с маской *[значение переменной data]*.xlsm
например значение data = 01.2012
получится маска *01.2012*.xlsm

но он не делает отбор :(( как по другому записать?

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#3 30.07.2012 13:21:18 Как вариант like "" & CStr(data) & ".xlsm"

gnom75 Гость	#4 30.07.2012 13:46:26 RAN, увы но нет. data и так string переменная. подозрение что два раза "*" применять нельзя.

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#5 30.07.2012 13:53:30 Data = "01.2010" If sFiles Like "" & Data & ".xls*" Then И все работает

gnom75 Гость	#6 30.07.2012 14:06:46 в показать в папке то работает, а чтобы по подпапкам смотрело, то забивая это дело таким образом, не ищет :( data = "03.2012" For Each objFile In objFolder.Files If Replace(objFile.Name, objFSO.GetBaseName(objFile), "") Like "" & data & ".xls*" Then

gnom75 Гость	#7 30.07.2012 14:10:36 уря :) буду дальше ковырять

Читают тему