Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60363 / 76732 ←次へ | 前へ→

【21009】Re:フォームのショートカット作成
回答  Jaka  - 05/1/6(木) 17:24 -

引用なし
パスワード
   こんにちは。

ショートカットの変わりにVBSを使ってはどうですか?
メモ帳に下記コードを書き込んで、適当な名前を付け保存。
その後、拡張子を.vbsに変えます。
後はこのファイルをクリックすると、ブックが開いてマクロが走ってくれます。
ブックのあるフルパスとブック名等は、変えておいてください。
詳しくないんで、これ以上は解りません。

Dim OjEXCEL
Dim OjBook
On Error Resume Next
Set OjEXCEL = CreateObject("Excel.Application")
OjEXCEL.Visible = True 
Set OjBook = OjEXCEL.Workbooks.Open("C:\Documents and Settings\oois5051\デスクトップ\ふふふ.xls")
If Not OjBook Is Nothing Then
  OjBook.Activate
  OjEXCEL.Run "ふふふ.xls!フォームShowの書いてあるマクロ名"
Else
  MsgBox "エラー"
End If
WScript.Quit

0 hits

【21007】フォームのショートカット作成 rei 05/1/6(木) 15:33 質問
【21009】Re:フォームのショートカット作成 Jaka 05/1/6(木) 17:24 回答

60363 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free