Excel VBA質問箱 IV

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

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


73386 / 76738 ←次へ | 前へ→

【7827】Re:別ブックからユーザーフォームを呼び出...
回答  INA  - 03/9/19(金) 11:58 -

引用なし
パスワード
   >Book2.xls!(マクロブックのことですね)の指定の仕方ですが、
>作業するブックと同時に開いているとOKですが、
>閉じた状態ではできないようなんですが、
>このとき、指定にフルパスが必要になるんであれば、
ブックが開いているので、Application.Run にフルパスは必要ないです。

>Application.Run以降のところで、ブックを変数に入れた形で指定とか
>はできるんでしょうか?

サンプルコードを掲載しておきますので、参考にして下さい。
(GetOpenFilenameにSendkeysを組み合わせて、ファイル名を指定してあります。)

Private Sub CommandButton1_Click()
Dim OpenFileName As String
Dim MacroFileName As String

  MsgBox "マクロブック Book2.xls を開いて下さい。"
  
Application.ScreenUpdating = False
    
  '選択したフルパスを取得して変数に格納
  SendKeys "Book2*{ENTER}", False
  OpenFileName = Application.GetOpenFilename("対象のExcelマクロブックを選択して下さい。,*.xls")
  
  'ブックを開く
  Workbooks.Open OpenFileName
  
  'ファイル名を変数に格納
  MacroFileName = ActiveWorkbook.Name
  
  '別ブックのマクロ実行
  Application.Run MacroFileName & "!Test1"
  
  '別ブックを閉じる
  Workbooks(MacroFileName).Close

Application.ScreenUpdating = True

End Sub

0 hits

【7694】別ブックからユーザーフォームを呼び出したい あくたいおん 03/9/12(金) 0:04 質問
【7695】Re:別ブックからユーザーフォームを呼び出... INA 03/9/12(金) 8:26 回答
【7696】Re:別ブックからユーザーフォームを呼び出... INA 03/9/12(金) 8:32 回答
【7714】Re:別ブックからユーザーフォームを呼び出... あくたいおん 03/9/16(火) 12:44 質問
【7717】Re:別ブックからユーザーフォームを呼び出... INA 03/9/16(火) 13:02 回答
【7826】Re:別ブックからユーザーフォームを呼び出... あくたいおん 03/9/19(金) 10:42 発言
【7827】Re:別ブックからユーザーフォームを呼び出... INA 03/9/19(金) 11:58 回答
【7949】Re:別ブックからユーザーフォームを呼び出... あくたいおん 03/9/25(木) 8:23 お礼

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