Работа с меню - VB

Формулировка задачи:

Открывал так когда знал путь и конкретный файл:

Set xlsWb = xlsApp.Workbooks.Open("C:\Documents and Settings\User\отчет.xls")

А когда все меняется хотелось бы загружать путь сюда:

Set xlsWb = xlsApp.Open("СЮДА")

Допустим вот так сделал:

fileToOpen = xlsApp.GetOpenFilename("Only these Files (*.txt;*.doc;*.xls), *.txt; *.doc; *.xls")
If fileToOpen <> False Then

End If

А как написать чтобы путь поместить куда нужно?

Решение задачи: «Работа с меню»

textual
                            Листинг программы 
                        
                            For S = 1 To 40
   If Dir("C:.........." & "\п." & Val(S) & ".*") <> "" Then

Оцени полезность:

6 голосов , оценка 3.667 из 5

Похожие ответы