Консультация № 64378
27.11.2006, 09:41
0.00 руб.
0 2 2
Добрый_День_!

Как открыть файл с текущего каталлога_?
Так открываем явно.
objExcel.Workbooks.Open ("C:\RKanP\TabShVx.xls")
А как открыть его с любого каталлога_?.(_где установлена_программа_)

С уважнием Александр.

Обсуждение

Неизвестный
27.11.2006, 10:24
общий
это ответ
Здравствуйте, Гробенюк Александр Александрович!

Поэксперементируйте вот с этим (из хелпа содрано и подредактировано):

Set fs = Application.FileSearch
With fs
.LookIn = "*"
.Filename = "*.xls"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

Опорная точка - "LookIn"
Вроде работает...
Неизвестный
27.11.2006, 21:42
общий
это ответ
Здравствуйте, Гробенюк Александр Александрович!

objExcel.Workbooks.Open (Application.Path & "\TabShVx.xls")

Удачи.
Форма ответа