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

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

このQ&Aに関連する最新のQ&A

A 回答 (2件)

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

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

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

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

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


キーワードは
gShellExecuteSwShowNormalOpen
です。

参考URL:http://www.vbvbvb.com/jp/gtips/index.html
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報

カテゴリ