ＶＢからＥｘｃｅｌのテキストを指定して開きたい

　ＶＢのアプリケーションから文書名を指定してエクセルを起動したいのですが
出来なくて困っています。ちなみにコードは下記のとおりです。どこに問題があ
るのか教えていただけないでしょうか。

Private Sub Command1_Click()
Dim lngReturnCode As Long
Dim strFileName As String
strFileName = "AllTitles.csv"
　 lngReturnCode = ShellExecute(Me.hwnd, _
"open c:\***\***.xls", _
strFileName, _
vbNullString, _
App.Path, _
SW_SHOWNORMAL)
End Sub

No.2 ベストアンサー 回答者： baka 回答日時： 2002/03/18 10:27

#1 のご回答の通り、問題は第二引数にあり、これを "open" とすればよいと思います。

無論 CSV ファイルに関連付けられたアプリケーションの起動になります。

確実に Excel を起動したいのでしたら、Shell 関数を使ったほうがよいと思います。

Shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE " & strFileName, vbNormalFocus

No.1 回答者： TAGOSAKU7 回答日時： 2002/03/18 09:46

参考URLで検索をしてみて下さい。

キーワードは
gShellExecuteSwShowNormalOpen
です。

参考URL：http://www.vbvbvb.com/jp/gtips/index.html