Excel VBA質問箱 IV

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

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


57765 / 76738 ←次へ | 前へ→

【23707】Re:別のディレクトリーからマクロを実行させたい
発言  ichinose  - 05/4/2(土) 11:01 -

引用なし
パスワード
   ▼G-Luck さん、皆さん、こんにちは。
>>EXCELのユーザ設定メニューを使ってやれば、できました。
>>
>>1).大元のブックを作り、そこにツールバーメニューを開いて、ツールバータブで、ツールバーを新規作成します。
>>
>>2).それを、コマンドタブで、新しいメニューを引っ張り出して、大元のツールバーを作成し、作成後、ツールバータブで、新規作成したツールバー右のボックスに入れて、添付ボタンを押して、いったんEXCELを閉じます。
>>
>>3).閉じた後、また開いて、その上に、大元からアクセスするマクロを複数(私の場合は、3つでしたが)開いて、それぞれにツールバーを作って、それを、大元のツールバーに入れていきます。
>>
>>4).作成後、ツールバータブで、新規作成したツールバー右のボックスに入れて、添付ボタンを押して、EXCELを閉じます。
>>
>>別のディレクトリーからマクロを実行できました。
>>一度、試してみてください。
>
>試してみたんですが、私の場合、元ファイルが開いてしまうのですが?
>もう少し詳しく、説明願えませんか?
>これが出来るとすごく広がる技だと思うもので。

この操作は、VBAでいう
'====================================================
Sub main()
  On Error Resume Next
  CommandBars("新規ツールバー").Delete
  With CommandBars.Add("新規ツールバー")
   .Visible = True
   With .Controls.Add(msoControlButton)
    .Caption = "マクロ"
    .OnAction = "'D:\My Documents\TESTエリア\testfold\automacro.xls'!sample"
    '↑ここにパスから指定する
    .Style = msoButtonCaption
    .BeginGroup = True
    End With
   End With
  On Error GoTo 0
End Sub
これとほぼ同様な手動操作ですから、
ブックは、開いてしまいますよ!!
(私もコード書く前にテストでは使いますし、
 最近はしなくなりましたが、
 コマンドバーを添付と言う形式で仕上げていた時もありました)
0 hits

【23658】別のディレクトリーからマクロを実行させたい ピングー 05/4/1(金) 14:59 質問
【23659】Re:別のディレクトリーからマクロを実行さ... G-Luck 05/4/1(金) 15:29 発言
【23661】Re:別のディレクトリーからマクロを実行さ... ピングー 05/4/1(金) 15:47 質問
【23662】Re:別のディレクトリーからマクロを実行さ... G-Luck 05/4/1(金) 15:51 発言
【23671】Re:別のディレクトリーからマクロを実行さ... ピングー 05/4/1(金) 17:00 お礼
【23672】Re:別のディレクトリーからマクロを実行さ... IROC 05/4/1(金) 17:05 回答
【23680】Re:別のディレクトリーからマクロを実行さ... ピングー 05/4/1(金) 17:37 発言
【23682】Re:別のディレクトリーからマクロを実行さ... IROC 05/4/1(金) 18:21 回答
【23702】Re:別のディレクトリーからマクロを実行さ... G-Luck 05/4/2(土) 8:35 発言
【23707】Re:別のディレクトリーからマクロを実行さ... ichinose 05/4/2(土) 11:01 発言
【23709】Re:別のディレクトリーからマクロを実行さ... G-Luck 05/4/2(土) 11:29 発言
【23711】Re:別のディレクトリーからマクロを実行さ... よろずや 05/4/2(土) 13:22 回答
【23780】Re:別のディレクトリーからマクロを実行さ... ピングー 05/4/4(月) 9:16 回答

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