Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66261 / 76738 ←次へ | 前へ→

【15042】Re:ファイル名表示
回答  Jaka  - 04/6/14(月) 11:34 -

引用なし
パスワード
   ▼misa さん:
>コマンドボタンを押すと【ファイルを開く】のダイアログボックスが表示され指定したファイルを開きます。お聞きしたいのはファイルを開いたときに開いたファイル名をテキストボックス1に表示させたいです。どのようなコードを書けばよろしいですか?

こんにちは。
>【ファイルを開く】のダイアログボックス

どんな方法なのかわからないので、一応2つ。

1、
Application.Dialogs(xlDialogOpen).Show
TextBox1.Value = ActiveWorkbook.Name

2、
dim GetFL As valiant
GetFL = Application.GetOpenFilename("Excelファイル (*.xls), **.xls")
If GetFL = False Then End
TextBox1.Value = Dir(GetFL)
0 hits

【15040】ファイル名表示 misa 04/6/14(月) 11:03 質問
【15042】Re:ファイル名表示 Jaka 04/6/14(月) 11:34 回答
【15047】Re:ファイル名表示 misa 04/6/14(月) 13:14 お礼
【15051】Re:ファイル名表示 misa 04/6/14(月) 15:14 質問
【15052】Re:ファイル名表示 Jaka 04/6/14(月) 15:30 回答

66261 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free