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

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

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

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

No.2 ベストアンサー 回答者： mnabe 回答日時： 2002/06/12 19:15

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

この回答へのお礼

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

お礼日時：2002/06/13 08:59

No.1 回答者： maruru01 回答日時： 2002/06/12 19:13

こんにちは。

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メソッドの後に記述すればよかったんですね。。
ありがとうございました。
助かりましたｍ(_ _)ｍ

お礼日時：2002/06/13 08:58