Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
FileDialogメソッドは失敗しましたとエラー表示
投稿日時: 18/11/08 14:29:31
投稿者: けん太

FileDialogを使ってフォルダ指定をしようとすると
下記のようなエラーが発生いたします。
(参照設定は行っております)
何が原因となるのでしょうか?
 
 
実行時エラー -2147467259(80004005)
FileDialogメソッドは失敗しました。 '_Applicationオブジェクト
 
    '********************************
    '告知フォルダのPASS取得(出力先)
    '********************************
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = kokuchi_pass
        .Title = "対象の告知フォルダを選択"
        .AllowMultiSelect = False
        If .Show = True Then
            af_pass = .SelectedItems(1)
 
        End If
         
    End With
     
    If af_pass = "" Then
        MsgBox ("フォルダを選択してください")
        Exit Sub
    End If

回答
投稿日時: 18/11/08 14:49:37
投稿者: sk

引用:
FileDialogを使ってフォルダ指定をしようとすると
下記のようなエラーが発生いたします。
参照設定は行っております

どのライブラリへの参照を追加されたのでしょうか。
 
引用:
実行時エラー -2147467259(80004005)
FileDialogメソッドは失敗しました。 '_Applicationオブジェクト

引用:
With Application.FileDialog(msoFileDialogFolderPicker)

とりあえず、そのコードを記述しているモジュールの先頭に
Option Explicit ステートメントを挿入されることを
お奨めします。

投稿日時: 18/11/08 15:44:28
投稿者: けん太

skさん
 
  ご回答、ありがとうございます。
 

引用:
どのライブラリへの参照を追加されたのでしょうか。

 
以下となります。
Microsoft Office 15.0 Access Database engine Object Library
OLE Automation
Miclosoft Access 15.0 Object Library
Visual Basic For Application
 
 
引用:
Option Explicit ステートメントを挿入されることを
お奨めします。

 
実行すると、コンパイルエラー「変数が定義されていません」となります。
msoFileDialogFolderPicker が反転

回答
投稿日時: 18/11/08 16:00:25
投稿者: sk

引用:
Microsoft Office 15.0 Access Database engine Object Library
OLE Automation
Miclosoft Access 15.0 Object Library
Visual Basic For Application

Microsoft Office *.* Object Library への
参照が追加されていませんね。
 
引用:
実行すると、コンパイルエラー「変数が定義されていません」となります。
msoFileDialogFolderPicker が反転

上記のライブラリを参照設定に追加しない場合は、
定数 msoFileDialogFolderPicker を明示的に宣言(値は 4)するか、
msoFileDialogFolderPicker と同じ値である 4 を
代わりに渡すようになさればよろしいでしょう。

投稿日時: 18/11/08 16:11:16
投稿者: けん太

skさん
 
  ありがとうございました。
  エラーが解消されました。