не видит файла

[formentor]

здравствуйте
у меня макрос открывает файлы в указанной папке, что-то с ними делает и закрывает
путь у него прописан
но вот он сам не находит - говорит, файла не обнаружено, проверьте и т.д.
а вот если я нужный файл сама открою-закрою, то все находит

я даже не знаю, в связи с чем это?
такая фраза, как "ну это глюк Microsofta" меня перестала устраивать
может, знает кто, в чем проблема?

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

[Алексей К.]

код макроса в студию!

[formentor]

Sub MyOpenFile()
Dim fs As New FileSystemObject
MyFolder = "C:\test"
For Each XLS In fs.GetFolder(MyFolder).Files
MyFile = XLS.Name
Set Mybook = Application.Workbooks.Open(MyFile)
ну и т.д.

[ZlydenGL]

formentor, а не проще командой Dir() пользоваться?

Тогда твой код будет выглядеть так:

Код: Выделить всё

Sub MyOpenFile()
Dim MyFile as String
MyFolder = "C:\test"
MyFile=Dir(MyFolder & "\*.xls")
While Not MyFile=""
If MyFile<>"." And MyFile<>".." Then
Set Mybook = Application.Workbooks.Open(MyFolder & "\" & MyFile)
....
End If
MyFile=Dir()
wend

Такая конструкция ИМХО глючить не будет

[formentor]

да, все работает
только потом у меня убивание только что отработанного файла завязано на FSO, и я не знаю, как это сделать в вашей версии((
маленькая я еще

а в остальном ббольшое спасиббо

[alibek]

Ну например Kill MyFile.