access2016でvbaを使用してダイアログを開いてcsvを参照する方法がわかりません。

質問

_{2018年5月15日火曜日 6:06}

お世話になります、VBA初心者です。

ファイル選択というボタンのクリック時にmsoFileDialogFilePickerを使用したいのですが、

いろんなサイトを参考にしようとしてもAccessのバージョンが違うみたいでユーザー定義型は定義されていませんなど、上手くいきません。

microsoft access 16.0 object library
vbaバージョン7.1

を使用しています。

お手数ですが、どなたかヒントをご教授いただけませんか？

すべての返信 (2)

_{2018年5月15日火曜日 9:33 ✅回答済み}

参照設定でMicrosoft Office 16.0 Object Libraryを追加してください

Private Sub コマンド1_Click()
    Dim result As Long
    Dim dialog As FileDialog
    Dim filters As FileDialogFilters
    
    Set dialog = Application.FileDialog(msoFileDialogFilePicker)
    dialog.AllowMultiSelect = False
    dialog.filters.Clear
    dialog.filters.Add "CSV", "*.csv"
    result = dialog.Show
    
    If (result <> 0) Then
        For i = 1 To dialog.SelectedItems.Count
            Dim filePath As String
            filePath = dialog.SelectedItems(i)
            MsgBox filePath
        Next
    End If
End Sub

個別に明示されていない限りgekkaがフォーラムに投稿したコードにはフォーラム使用条件に基づき「MICROSOFT LIMITED PUBLIC LICENSE」が適用されます。(かなり自由に使ってOK!)

---

_{2018年5月16日水曜日 1:48}

解決できました、ありがとうございます！