Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10582 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21007】フォームのショートカット作成 rei 05/1/6(木) 15:33 質問[未読]
【21009】Re:フォームのショートカット作成 Jaka 05/1/6(木) 17:24 回答[未読]
【21007】フォームのショートカット作成
質問  rei  - 05/1/6(木) 15:33 -
引用なし
パスワード
   フォームのショートカットをデスクトップに貼り付けてそこからフォームを開きたいのですができますでしょうか？？よろしくお願いいたします。
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10582 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free