「ファイルを開く」ダイアログの使用

LINKS

BLOG
ENTRY
LIST
SEARCH
HELP

Sfo26U <a href="http://zjulmsoodbuq.com/">zjulmsoodbuq</a>, [url=http://mioawchehsbz.com/]mioawchehsbz[/url], [link=http://obucagbgvrzj.com/]obucagbgvrzj[/link], http://ljsvessnzlmu.com/

「ファイルを開く」ダイアログを使う †

ファイル選んでもらって、そのファイルをベースに処理をしたいケースも出てくるかと思います。
ファイルを開くダイアログを開くのは簡単です。
詳細はヘルプファイルを見てもらうとして、

   Dim varPATH as Variant
   
   varPATH = Application.GetOpenFilename( _
       FileFilter:="エクセルファイル(*.xls),*.xls", _
       FilterIndex:=1, _
       Title:="処理対象ファイルの選択", _
       MultiSelect:=False _
   )
   If varPATH <> False Then
       '   ここにファイル名を使用した処理を書く
   
   End If

こんな感じですか。

Shue