| |
下記コードが書かれたVBSファイルにエクセルブックをドラッグ＆ドロップすると
エクセルが起動してファイルを開いてくれます。
ただ、下記コードをメモ帳にコピペしても動かないかも。
改行コードの違いか文字コードの違いか解らないけど、以前ここにアップして
試した時は動いてくれなかった。
原因。
> MsgBox "このVbsファイルに画像ファイルをドラッグ&ドロップしてください。",
↑
この辺など他、半角スペースがタブに返還されているから...。
このタブを消すか半角スペースに直せば動きます。
Dim WsArg,ExlApp
Set WsArg = WScript.Arguments
If WsArg.Count = 0 Then
MsgBox "このVbsファイルにエクセルファイルをドラッグ&ドロップしてください。", vbInformation,"Ｗクリックエラー。"
Wscript.Quit
End If
'エクセルが起動しているかチェック。
On Error Resume Next
Set ExlApp = GetObject(, "Excel.Application" )
If ExlApp Is Nothing Then
'MsgBox "エクセルが起動していないようなので中止。", vbInformation,"エクセル起動エラー"
'Wscript.Quit
'↓エクセルが起動していなかった場合、起動させたい時。
Set ExlApp = CreateObject("Excel.Application")
End If
On Error Goto 0
OPFL = WsArg(0)
ExlApp.Visible = True
ExlApp.WorkBooks.Open OPFL
CreateObject("WScript.Shell").AppActivate ExlApp.Caption
ExlApp.WindowState = -4143
On Error Resume Next
ExlApp.Run ("'" & OPFL & "'!Auto_Open") 'Auto_Openの場合実行
On Error Goto 0
Set ExlApp = Nothing
|
|
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
