目安箱 IV

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

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

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

【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 全般[未読]
【296】エラーになる原因 Jaka 21/3/10(水) 22:02 全般[未読]

【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

【269】ワードの場合
全般  Jaka  - 11/3/2(水) 11:27 -

引用なし
パスワード
   ワードの場合はね。
ってほとんど変わってない。
掲示板上で、半角スペースがTabに返還されているところは同じ。
修正が必要。

Dim WsArg,WdApp

Set WsArg = WScript.Arguments
If WsArg.Count = 0 Then
  WScript.Echo "このVbsファイルにWordファイルをドラッグ&ドロップしてください。"
  Wscript.Quit
End If

'起動しているワード(アプリ)があるかチェック
On Error Resume Next
Set WdApp = GetObject(, "Word.Application" )
If WdApp Is Nothing Then
  Set WdApp = CreateObject("Word.Application")
End If
On Error Goto 0

WdApp.Visible = True
WdApp.Documents.Open WsArg(0)
CreateObject("WScript.Shell").AppActivate WdApp.Caption
WdApp.WindowState = 0
Set WdApp = Nothing
Set WsArg = Nothing
Wscript.Quit

【270】動かない原因2.
全般  Jaka  - 11/3/2(水) 15:43 -

引用なし
パスワード
   ExlApp.Run ("'" & OPFL & "'!Auto_Open") 'Auto_Openの場合実行
                     ↑
  Auto_Open")の後のスペースもタブに返還されているから。

【296】エラーになる原因
全般  Jaka  - 21/3/10(水) 22:02 -

引用なし
パスワード
   Web上からコピーして、メモ帳に張り付けると
所々半角スペースが、タブに変換されていたり、
左に半角スペースが追加されて足りするので
半角スペースに変えるか消してください。

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