目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
17 / 263 ←次へ | 前へ→

【268】VBSファイルにxlsファイルをドラッグ&ドロップで開く
Excel  Jaka  - 11/3/1(火) 17:18 -

引用なし
パスワード
   下記コードが書かれたVBSファイルにエクセルブックをドラッグ&ドロップすると
エクセルが起動してファイルを開いてくれます。
ただ、下記コードをメモ帳にコピペしても動かないかも。
改行コードの違いか文字コードの違いか解らないけど、以前ここにアップして
試した時は動いてくれなかった。

原因。
>  MsgBox "このVbsファイルに画像ファイルをドラッグ&ドロップしてください。",

この辺など他、半角スペースがタブに返還されているから...。
このタブを消すか半角スペースに直せば動きます。


Dim WsArg,ExlApp

Set WsArg = WScript.Arguments
If WsArg.Count = 0 Then
MsgBox "このVbsファイルにエクセルファイルをドラッグ&ドロップしてください。", vbInformation,"Wクリックエラー。"
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

5,348 hits

【268】VBSファイルにxlsファイルをドラッグ&ドロップで開く Jaka 11/3/1(火) 17:18 Excel[未読]
【269】ワードの場合 Jaka 11/3/2(水) 11:27 全般[未読]
【270】動かない原因2. Jaka 11/3/2(水) 15:43 全般[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
17 / 263 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free