Excel VBA質問箱 IV

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

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


3609 / 13646 ツリー ←次へ | 前へ→

【61180】参照 初心者です 09/4/14(火) 21:32 質問[未読]
【61181】Re:参照 かみちゃん 09/4/14(火) 22:00 発言[未読]
【61182】Re:参照 初心者です 09/4/15(水) 0:08 お礼[未読]

【61180】参照
質問  初心者です  - 09/4/14(火) 21:32 -

引用なし
パスワード
   いろいろ調べたのでが見つける事が出来なかったので質問しました
ユーザーホームからファイルを参照したいのですが
excelなどでファイルを開くを選んだときのようにダイアログを開きそこから選びたいのですが
よろしくお願いします

【61181】Re:参照
発言  かみちゃん  - 09/4/14(火) 22:00 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>excelなどでファイルを開くを選んだときのようにダイアログを開きそこから選びたい

GetOpenFilename をヘルプや、過去ログで調べてみてください。
おおむね以下のような感じでできます。

Sub Sample()
 Dim vntFileName As Variant
 
 vntFileName = Application.GetOpenFilename()
 If VarType(vntFileName) = vbBoolean Then
  MsgBox "キャンセルしました"
  Exit Sub
 End If
 MsgBox vntFileName
End Sub

【61182】Re:参照
お礼  初心者です  - 09/4/15(水) 0:08 -

引用なし
パスワード
   ▼かみちゃん さん:
かみちゃん さん こんばんは
ばっちりです
すみませんでした僕の探し方が足らなかったみたいですね

助かりましたありがとうございます

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