アクセスでファイル名の獲得

アクセスのフォームにテキストボックスを作り、このテキストボックス内に、ダイアログボックスで選択したエクセルやテキスト等のファイルのフルパスを取り込みたいのですがどのようにしたらいいでしょうか？

No.2 回答者： nishi6 回答日時： 2001/08/01 00:13

質問に少し不明な点があるので、下記の前提で回答します。

はずしていたらすいません。

(1)今,フォームにはテキストボックスしかない（テキスト0）
(2)コマンドボタン（コマンド2）を押すことで、ダイアログを表示しファイル名を取得し
　テキストボックスに表示する。
(3)Access2000を使っている。（Excel2000もある）

ファイル名を取得するダイアログを表示する方法は色々あると思いますが、余り難しいことは分からないので下記のような方法で実現してみました。Excelには GetOpenFilename があるので、ちょっと借用しています。

VBE画面でメニューのツール→参照設定で Microsoft Excel 9.0 Object Library にチェックしＯＫ
コマンド2を右クリック→イベントのビルド→コードビルダでコマンド2に下記を貼り付けます。

Private Sub コマンド2_Click()

　　Dim myFile As Variant '指定したファイル名
　　Dim myFileFilter As Variant 'ファイルフィルタ
　　Dim myExcel As Object 'エクセル
　　Set myExcel = Excel.Application

　　myFileFilter = "テキストファイル エクセルBook(*.txt;*.xls),*.txt;*.xls"
　　myFile = myExcel.GetOpenFilename(FileFilter:=myFileFilter)
　　　　If myFile <> False Then
　　　　　　テキスト0 = myFile
　　　　End If

　　Set myExcel = Nothing

End Sub

No.1 回答者： tom777 回答日時： 2001/07/31 09:52

Accessからダイアログボックスをどのように呼出したので

しょうか？
それがわからないと回答のしようがありません。

コントロールを追加しているのなら、プロパティがあるの
ですが・・・。

また、補足してくださいね。