Нашел в форуме пример подстановки в программу имени файла,найденного через диалоговое окно с помощью API function. Конкретнее, нужно в команду DoCmd.TransferSpreadsheet acImport, 8, "ExelTable", имя файла, True, "" вместо конкретного имени файла подставлять имя, которое выбирается в данный момент.
Следуя примеру, хотел использовать функцию, которая
возвратит путь к файлу) :
DoCmd.TransferSpreadsheet ..., ..., ...,OpenFile(...), ..., ...

Но! 1.Не могу подключить библиотеку comdlg32.dll
2. в списке, после as, OpenFileName отсутствует и т.п.
Более того, когда просто хотел создать диалоговое окно типа:

Function Select_File(Field As String)
Dim fd As FileDialog
Dim s
Set fd = Application.FileDialog(msoFileDialogFilePicker и т.д.

То не смог выбрать после as FileDialog - нету его и все.
References на Microsoft Office вроде как есть.
использую Access 2000.

HELP PLEASE!
Ниже тот самый пример использования API :
Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean
Declare Function GetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Boolean

Public Function OpenFile(ByVal InitDir As String, ByVal FName As String, _
Optional ext As String = "mdb", _
Optional Title As String = "Открыть файл", _
Optional Flags As Long) As String
Dim strFile As String * 512
Dim of As OPENFILENAME
Dim f As String
Dim p%
' Установка начальных значений структуры
of.hwndOwner = Application.hWndAccessApp
of.hInstance = 0
of.lpstrCustomFilter = 0
of.nMaxCustrFilter = 0
of.lpfnHook = 0
of.lpTemplateName = 0
of.lCustrData = 0
'Ниже вы можете изменить фильтры для поиска файлов
of.lpstrFilter = "MS Access Database (*.mdb)" & Chr$(0) & "*.mdb" & Chr$(0) & _
"Add-ins (*.mda)" & Chr$(0) & "*.mda" & Chr$(0) & _
"MDE-Files (*.mde)" & Chr$(0) & "*.mde" & Chr$(0) & _
"Excel-Files (*.xls)" & Chr$(0) & "*.xls" & Chr$(0) & _
"Programs (*.exe)" & Chr$(0) & "*.exe" & Chr$(0) & _
"DAT-Files (*.dat)" & Chr$(0) & "*.dat" & Chr$(0) & _
"Image-Files (*.jpg)" & Chr$(0) & "*.jpg" & Chr$(0) & _
"All Files (*.*)" & Chr$(0) & "*.*" & Chr$(0) & Chr$(0)


Select Case ext
Case "xls"
of.nFilterIndex = 4
Case "mda"
of.nFilterIndex = 2
Case "mdb"
of.nFilterIndex = 1
Case "mde"
of.nFilterIndex = 1
Case "exe"
of.nFilterIndex = 5
Case "dat"
of.nFilterIndex = 6
Case "jpg"
of.nFilterIndex = 7
Case Else
of.nFilterIndex = 8

End Select

of.lpstrFile = FName & String$(512 - Len(FName), 0)
of.nMaxFile = 511

of.lpstrFileTitle = String$(512, 0)
of.nMaxFileTitle = 511
of.lpstrTitle = Title

of.lpstrInitialDir = InitDir
of.lpstrDefExt = ext

of.Flags = Flags 'OFN_FILEMUSTEXIST + OFN_PATHMUSTEXIST '+ OFN_EXPLORER
of.lStructSize = Len(of)
If GetOpenFileName(of) Then
p% = InStr(1, of.lpstrFile, Chr$(0))
OpenFile = left(of.lpstrFile, p% - 1)
Else
OpenFile = ""
End If
End Function

У меня 2000 Access
какой пршлый топик ты имеешь ввиду?
Про импорт?
дык у меня проблема с FileDialog, который я не могу выбрать из предлагаемого , нетути его там.

Да есть галка! На 9.0
Только вот с File... есть только FileSearch.
И как это понимать?
Может переустановить?

Не-а. Только по FileSearch и вские там хелпы по использованию Import/Insert File Dialog Box. так что, наверное, надо другой Office?

Тааак. Постойте.
так что делать. Ставить другой Office или не ставить?
Если нет, то что с подстановкой имени файла в команду в Access 2000 ?
Как для 97 - не получится, (я правильно понял?)
А как в 2002 (т.е. с FileDialog) -тоже нет.
Тогда как?

Да нравится он мне, только вот compile erorr
can't find library : comdlg32.dll

всем спасибо за помощь и не ругайтесь - я же только учусь :-(
Установил я 2002 , вызвал диалог (FileDialog).
Ну а дальше-то как имя выбранного файла подставлять в
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "new", ИМЯФАЙЛА?, True, ""
Что-то у меня не получается:-(((

>RVI
Спасибо огромное! Все получилось. Я, дурья голова, подставлял vrtSelectedItem впрямую.