Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10366 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【17335】ファイルを開くダイアログのファイル名を表示させる方法 rasetu 04/8/27(金) 10:40 質問[未読]
【17337】Re:ファイルを開くダイアログのファイル名... IROC 04/8/27(金) 11:00 回答[未読]
【17358】Re:ファイルを開くダイアログのファイル名... rasetu 04/8/27(金) 15:49 質問[未読]
【17359】Re:ファイルを開くダイアログのファイル名... rasetu 04/8/27(金) 15:55 発言[未読]
【17342】Re:ファイルを開くダイアログのファイル名... Jaka 04/8/27(金) 11:48 回答[未読]
【17360】↑　勘違い。 Jaka 04/8/27(金) 16:10 発言[未読]
【17361】Re:↑　勘違い。 IROC 04/8/27(金) 16:27 回答[未読]
【17374】Re:↑　勘違い。 rasetu 04/8/27(金) 17:44 お礼[未読]
【17375】Re:↑　勘違い。 IROC 04/8/27(金) 17:49 回答[未読]
【17376】Re:↑　勘違い。 Asaki 04/8/27(金) 18:03 回答[未読]
【17378】Re:↑　勘違い。 Asaki 04/8/27(金) 18:11 発言[未読]
【17382】Re:↑　勘違い。 ちゃっぴ 04/8/27(金) 22:15 回答[未読]
【17455】APIでファイルを開くダイアログを表示？ rasetu 04/8/30(月) 9:27 お礼[未読]
【22281】Re:APIでファイルを開くダイアログを表示？ Shiruhu 05/2/14(月) 16:32 発言[未読]
【17335】ファイルを開くダイアログのファイル名を...
質問  rasetu  - 04/8/27(金) 10:40 -
引用なし
パスワード
   こんにちわ！
ファイルを開くダイアログのファイル名をダイアログに表示させる方法を
教えてください。ファイルを選択した時にファイル名のboxにファイルの名前
を表示させる方法です。
これはAPI関数を使うしかないのでしょうか。
うまくいきません。
簡単な方法があったら教えてください。
ファイルを開くのコードを記述しておきます。
よろしくお願いいたします。

file_open = Application.GetOpenFilename("えくせる (*.xls; *.csv), *.xls; *.csv", , "データファイル選択")
【17337】Re:ファイルを開くダイアログのファイル...
回答  IROC  - 04/8/27(金) 11:00 -
引用なし
パスワード
   SendKeysに頼るので、完璧に動作することは望めません。


Dim file_open As String
Dim myfile As String

myfile = "test.xls"
SendKeys myfile

file_open = Application.GetOpenFilename _
("えくせる (*.xls; *.csv), *.xls; *.csv", , "データファイル選択")
【17342】Re:ファイルを開くダイアログのファイル...
回答  Jaka  - 04/8/27(金) 11:48 -
引用なし
パスワード
   http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=6984;id=excel
【17358】Re:ファイルを開くダイアログのファイル...
質問  rasetu  - 04/8/27(金) 15:49 -
引用なし
パスワード
   IROCさん、JAKAさんありがとうございます。
sendkeyはファイルを指定しなければいけないので、今回のには使えないのですが、
下のurlで教えてもらった方法でやりますと、
”名前つき引数はみつかりません”と出ました。

これはどういう意味でしょうか。ヘルプを見てもよくわかりません。
よろしくお願いいたします。

▼IROC さん：
>SendKeysに頼るので、完璧に動作することは望めません。
>
>
>Dim file_open As String
>Dim myfile As String
>
>myfile = "test.xls"
>SendKeys myfile
>
>file_open = Application.GetOpenFilename _
>("えくせる (*.xls; *.csv), *.xls; *.csv", , "データファイル選択")


▼Jaka さん：
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=6984;id=excel
【17359】Re:ファイルを開くダイアログのファイル...
発言  rasetu  - 04/8/27(金) 15:55 -
引用なし
パスワード
   InitialFilenameはgetopenfilenameでは使えないのですね。
今わかりました。


▼rasetu さん：
>IROCさん、JAKAさんありがとうございます。
>sendkeyはファイルを指定しなければいけないので、今回のには使えないのですが、
>下のurlで教えてもらった方法でやりますと、
>”名前つき引数はみつかりません”と出ました。
>
>これはどういう意味でしょうか。ヘルプを見てもよくわかりません。
>よろしくお願いいたします。
>
>▼IROC さん：
>>SendKeysに頼るので、完璧に動作することは望めません。
>>
>>
>>Dim file_open As String
>>Dim myfile As String
>>
>>myfile = "test.xls"
>>SendKeys myfile
>>
>>file_open = Application.GetOpenFilename _
>>("えくせる (*.xls; *.csv), *.xls; *.csv", , "データファイル選択")
>
>
>▼Jaka さん：
>>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=6984;id=excel
【17360】↑　勘違い。
発言  Jaka  - 04/8/27(金) 16:10 -
引用なし
パスワード
   GetSaveAsFilename
と
GetOpenFilename
を間違えていました。
【17361】Re:↑　勘違い。
回答  IROC  - 04/8/27(金) 16:27 -
引用なし
パスワード
   あとは組込ダイアログを使うしかないかな・・
【17374】Re:↑　勘違い。
お礼  rasetu  - 04/8/27(金) 17:44 -
引用なし
パスワード
   そうですか組み込みダイアログだったらファイル名を表示できるのでしょうか。えらーは極力でないようにしなければいけないので、APIしかないのかな(よく内容がつかみとれないけど）。ありがとうございました。

▼IROC さん：
>あとは組込ダイアログを使うしかないかな・・
【17375】Re:↑　勘違い。
回答  IROC  - 04/8/27(金) 17:49 -
引用なし
パスワード
   組込ダイアログでもダメですね。
気にしたことがなかったので・・すみません。

あとはユーザーフォームで自作するとか・・・

あいにくAPIによる方法は知らないです。
というか、Excelの仕様以上のことは必要ないので。
【17376】Re:↑　勘違い。
回答  Asaki  - 04/8/27(金) 18:03 -
引用なし
パスワード
   こんにちは。

組み込みダイアログって、↓これですか？
Application.Dialogs(xlDialogOpen).Show "test.xls"
【17378】Re:↑　勘違い。
発言  Asaki  - 04/8/27(金) 18:11 -
引用なし
パスワード
   でも、あちらを立てれば、こちらが立たず。。。
【17382】Re:↑　勘違い。
回答  ちゃっぴ  - 04/8/27(金) 22:15 -
引用なし
パスワード
   APIにもGetOpenFileNameがあります。

これを使えば、やりたいことができると思います。
(lpstrFileに対象のファイルパスを指定)

GetOpenFileName(A)
http://yokohama.cool.ne.jp/chokuto/urawaza/api/GetOpenFileName.html

ただ、かなり難解です。
【17455】APIでファイルを開くダイアログを表示？
お礼  rasetu  - 04/8/30(月) 9:27 -
引用なし
パスワード
   ほんと難解そう。。。みなさんありがとうございます。
これをはりつけていじればできるのかな？
難しいけどこつこつやってみます。


▼ちゃっぴ さん：
>APIにもGetOpenFileNameがあります。
>
>これを使えば、やりたいことができると思います。
>(lpstrFileに対象のファイルパスを指定)
>
>GetOpenFileName(A)
>http://yokohama.cool.ne.jp/chokuto/urawaza/api/GetOpenFileName.html
>
>ただ、かなり難解です。
【22281】Re:APIでファイルを開くダイアログを表示...
発言  Shiruhu  - 05/2/14(月) 16:32 -
引用なし
パスワード
   >>APIにもGetOpenFileNameがあります。
>>
>>これを使えば、やりたいことができると思います。
>>(lpstrFileに対象のファイルパスを指定)
>>

http://www.amy.hi-ho.ne.jp/banchan/sw/vba/v4.html
に使い方載っています。。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10366 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free