Excel VBA質問箱 IV

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

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


6498 / 13644 ツリー ←次へ | 前へ→

【44867】画面からファイルを指定させるには 質問(煮詰まった) 06/12/4(月) 18:39 発言[未読]
【44868】Re:画面からファイルを指定させるには ichinose 06/12/4(月) 18:55 発言[未読]
【44870】Re:画面からファイルを指定させるには Kein 06/12/4(月) 22:12 回答[未読]
【44873】Re:画面からファイルを指定させるには 質問(煮詰まった) 06/12/5(火) 9:12 お礼[未読]

【44867】画面からファイルを指定させるには
発言  質問(煮詰まった)  - 06/12/4(月) 18:39 -

引用なし
パスワード
    初心者です。
 教えて下さい。

 拡張子XLSのファイルを、ユーザから画面指定でファイルを
 選択させて、その指定したファイルを利用してデータを
 加工したいのですが・・・・

 お手数ですがどなたか教えて下さい。
 宜しくお願いします。


 

【44868】Re:画面からファイルを指定させるには
発言  ichinose  - 06/12/4(月) 18:55 -

引用なし
パスワード
   ▼質問(煮詰まった) さん:
こんばんは。

> 初心者です。
> 教えて下さい。
>
> 拡張子XLSのファイルを、ユーザから画面指定でファイルを
> 選択させて、その指定したファイルを利用してデータを
> 加工したいのですが・・・・

Sub test()
  Dim flnm As Variant
  flnm = Application.GetOpenFilename("Excelファイル (*.xls), *.xls")
End Sub

これですか? 詳細は、GetOpenFilenameメソッドをHelpで調べてください。

【44870】Re:画面からファイルを指定させるには
回答  Kein  - 06/12/4(月) 22:12 -

引用なし
パスワード
   「利用する」というと、必ずしもブックを開かないといけない
わけではありませんが、もしはじめに開く必要があれば

Application.Dialogs(xlDialogFindFile).Show

でダイアログを出して、ファイルを選んでOKボタンを押したら、すぐに
ブックが開きます。キャンセルボタンを押すとダイアログは閉じます。
上のコードを短くして

Application.FindFile

でも同じです。

【44873】Re:画面からファイルを指定させるには
お礼  質問(煮詰まった)  - 06/12/5(火) 9:12 -

引用なし
パスワード
    やりたいことができました。
 助かりました。

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