ユーザーが選択したファイルディレクトリ

Question

私は現在、以下のコードを使用してAccessにExcelファイルのフルフォルダをインポートしています。マクロを他の人にエクスポートしたいのですが、ハードコーディングされたパスで他の人にはうまくいきません。しかし、私はどのようにファイルエクスプローラのように何かをしようとしたいが、どのようにしたいのユーザー入力を受け入れるようにパスを変更するか分からない。以下は

Dim otable As DAO.TableDef 
Dim strPathFile As String, strFile As String, strpath As String 
Dim strTable As String 
Dim blnHasFieldNames As Boolean 

' accept excel first line as headers for tables 
blnHasFieldNames = True 

' Path to files 
strpath = "C:\Users\MyName\Desktop\Test\" 


strFile = Dir(strpath & "*.xls") 

'import all files within selected folder 
Do While Len(strFile) > 0 
strPathFile = strpath & strFile 
strTable = Left(strFile, Len(strFile) - 5) 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ 
    strTable, strPathFile, blnHasFieldNames 
strFile = Dir() 
Loop 

は、私は「「失敗したobject_'Applicationのメソッド 『のFileDialog』」のエラーを与えられ、私は間違ってこれを使用していた場合にわからないのですけれども、私が変更しようとしているものです。

strpath = Application.FileDialog(msoFileDialogFilePicker) 

Answer 1

これを解決するのに役立つHansUpに感謝します。

フォルダを選択して、フォルダ内のすべてのファイルをアップロードするには、以下です...

Const msoFileDialogFolderPicker As Long = 4 
Dim objfiledialog As Object 
Dim otable As DAO.TableDef 
Dim strPathFile As String, strFile As String, strpath As String 
Dim strTable As String 
Dim blnHasFieldNames As Boolean 

' accept excel first line as headers for tables 
blnHasFieldNames = True 

'select folder and set path 
Set objfiledialog = Application.FileDialog(msoFileDialogFolderPicker) 

With objfiledialog 
.AllowMultiSelect = False 
If .Show Then 
strpath = .SelectedItems(1) & Chr(92) 
End If 
End With 

strFile = Dir(strpath & "*.xls") 

'import all files within selected folder 
Do While Len(strFile) > 0 
strPathFile = strpath & strFile 
strTable = Left(strFile, Len(strFile) - 5) 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ 
    strTable, strPathFile, blnHasFieldNames 
strFile = Dir() 
Loop