OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

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

  • すぐに回答を!
  • 質問No.111579
  • 閲覧数25
  • ありがとう数0
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 24% (21/85)

アクセスのフォームにテキストボックスを作り、このテキストボックス内に、ダイアログボックスで選択したエクセルやテキスト等のファイルのフルパスを取り込みたいのですがどのようにしたらいいでしょうか?
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル7

ベストアンサー率 77% (14/18)

Accessからダイアログボックスをどのように呼出したので しょうか? それがわからないと回答のしようがありません。 コントロールを追加しているのなら、プロパティがあるの ですが・・・。 また、補足してくださいね。
Accessからダイアログボックスをどのように呼出したので
しょうか?
それがわからないと回答のしようがありません。

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

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

  • 回答No.2
レベル13

ベストアンサー率 68% (791/1163)

質問に少し不明な点があるので、下記の前提で回答します。はずしていたらすいません。 (1)今,フォームにはテキストボックスしかない(テキスト0) (2)コマンドボタン(コマンド2)を押すことで、ダイアログを表示しファイル名を取得し  テキストボックスに表示する。 (3)Access2000を使っている。(Excel2000もある) ファイル名を取得するダイアログを表示する方法は色々あると思 ...続きを読む
質問に少し不明な点があるので、下記の前提で回答します。はずしていたらすいません。

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

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

VBE画面でメニューのツール→参照設定で Microsoft Excel 9.0 Object Library にチェックしOK
コマンド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
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ