コモンダイアログのファイルを開くについて

質問

Windowsのファイルを開くダイアログで、ファイルを開くダイアログから
エクセルファイルを選択し、開くボタンを押したら、選択された
エクセルファイルを開きたいのですが、ヘルプで参照したところコモンダイアログ
があるのを知りました。

ダイアログを開くところまでは、できたのですが、次にエクセルファイルを選択
し、開くボタンを押したときのイベントってどうやってとればよいのかわかりません。
開くボタンを押時に、選択されているパスを取りたいのですが、それもどうやって
取ればよいのやら、、、(＋_＋)

ご教示ねがえませんでしょうか？
よろしくお願いいたします。

回答No.2

mnabe · ベストアンサー

Dim FileName As String
Const ExcelFileName = "C:\Program Files\Microsoft Office\Office\Excel.exe "
'
With CommonDialog
.DialogTitle = "HogeHogeアプリケーション"
.Filter = "Excel ファイル (*.xls)|*.xls|All File (*.*)|*.*"
.Flags = cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNLongNames Or cdlOFNNoChangeDir
.ShowOpen
'
FileName = .FileName
If (FileName <> "") Then
Shell (ExcelFileName + FileName)
End If
End With

お礼

ご丁寧に、サンプルをいただきましてありがとうございました。
とても助かりました。
ｍ(_ _)ｍ

回答No.1

maruru01

こんにちは。maruru01です。

コモンダイアログのFileNameプロパティで選択したファイルのフルパスを取得出来ます。

Dim PathName As String

（略）

With CommonDialog1
　　（略）
　　.ShowOpen
　　PathName = .FileName
End With

こんな感じです。
エクセルファイルを開くには、API関数のShellExecuteを使うと出来ます。
この関数は、拡張子に関連付けられたアプリケーション（例：xlsならMirosoft Excel）で開くことが出来ます。
ShellExecuteについては検索してみて下さい。
サンプルとかもたくさん落ちてます。
とりあえず、サンプルのあるところを１つ紹介しておきます。
では。

参考URL：

http://www.bcap.co.jp/hanafusa/

お礼

普通にOpenメソッドの後に記述すればよかったんですね。。
ありがとうございました。
助かりましたｍ(_ _)ｍ