ACCESSのフォームのポップアップ表示に、ファイルを開くwindowが隠れる

Question

前提・実現したいこと

エクセルのファイルを開くWindowがAccessのFormの裏側に隠れてしまうので最前面に表示したい。

発生している問題・エラーメッセージ

アクセスの表示でポップアップを「はい」にしたところ、
ファイルを開くWindowがFormの裏側に隠れてしまうようになりました。

該当のソースコード

開くときにこちらのコードを使用しています。

	
DoCmd.OpenForm "フォーム１", acNormal

フォームの中にある取り込みボタンを押すと次のようなメソッドが呼ばれるイメージです。

Sub ExcelでGetOpenFileName()

Dim ExApp As Object
Set ExApp = CreateObject(“Excel.Application”)

ExApp.Visible = True

Dim ExBook As Variant ’宣言はString型かVariant型を使う その後の分岐の条件が変わる
ExBook = ExApp.Application.GetOpenFileName(“Microsoft Excelブック,*.xls?”)

If ExBook <> False Then
ExApp.Workbooks.Open ExBook
Else
MsgBox “中止します”
Exit Sub
End If

Set ExBook = Nothing
Set ExApp = Nothing

End Sub

プロパティシートのポップアップを「はい」にしたところ、裏側で起動してしまっています。
ファイルを開くWindowを最前面に表示する方法を知りたいです。

試したこと

・formを呼び出す際の引数、acNormalのいろいろ変更してみる
・モジュール内に書き込んでいたVBAをform内に移してみる

こちらを試したのですが、うまくいきませんでした。
こちらについてお分かりになられる方、いらっしゃいましたらご教授ください。

よろしくお願いいたします。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

そのコードは Excel の GetOpenFileName関数を呼び出す方法てすね。
呼び出されたエクセルがAccessの裏側にいっているだと思います。

エクセルを使わず、FileObjectLibralyを使って呼び出す方法があります。
「Access FileObjectLibraly」で検索すればコンプルコードはいろいろ見つかります。
それらの方法を試してみてください。

例えば下記のリンク先の関数を使ってみてください。

AccessのVBAでファイルダイアログからファイルを指定する方法｜アズビーパートナーズ

Comments

[ataru2222]

hatena19さん
いつもありがとうございます。

ExcelとAccessでファイルを開く構文が違うことに驚きました。
無事問題を解決でき、気持ちのいい作品を納品できました。

本当にありがとうごじました。