こんにちは。VBA初心者で、現在勉強している最中のものです。
宜しくお願い致します。
現在、TEST1.xlsというブックからTEST2.xls(マクロ有)を
起動させたいと思っております。
ただ、TEST2.xlsが起動したのち、TEST1.xlsは閉じさせたいのです。
TEST1.xlsは、TEST2.xlsのキック用とし、
TEST1.xlsを実行させると、あたかも、TEST2.xlsを起動させたように
したいと思っています。
色々試してみたのですが、TEST2.xlsのマクロが無効になったり、
TEST1.xlsが閉じなかったりと試行錯誤しております。
どなたか、ご指南いただけたらと思っております。
どうぞ、宜しくお願い致しますm(_ _)m
No.2ベストアンサー
- 回答日時:
横から失礼します。
TEST1.xls 側で TEST2 の Auto_Open を実行し、UserForm は モードレスで開く
と言うのはダメでしょうか?
Excel2000で何度か試しましたところでは、失敗は無かったです。
(Excel97では使えないけど)
'TEST1側
Sub Auto_open()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Test2.xls")
Application.Run wb.Name & "!Auto_Open"
ThisWorkbook.Close
End Sub
'TEST2側
Sub auto_open()
UserForm1.Show vbModeless
End Sub
No.1
- 回答日時:
丸投げは規定違反になるので、
あなたの試行錯誤の成果を見せてください。
悪いところを指摘することはできます。
この回答への補足
大変申し訳ありませんでした。
プログラムを記載します。
現在、下記のような手順のプログラムを作りたいと思っております。
//////////////////////////////////////////
TEST1.xlsを起動したら、TEST2.xlsを開き
TEST2.xlsのマクロが実行される。
TEST2.xls起動後は、TEST1.xlsは閉じる
//////////////////////////////////////////
TEST1.xls 起動時の処理
====================
Public Sub auto_open()
'TEST2.xls起動
Workbooks.Open "C:\TEST2.xls"
'TEST1.xlsを閉じる
ThisWorkbook.Close
End Sub
TEST2.xls 起動時の処理
====================
Public Sub auto_open()
'ユーザフォームを表示
UserForm.Show
End Sub
※ユーザフォームは、ボタンを一つだけ設置
そのボタンが押下されたら、エクセルアプリケーションを終了
TEST2.xls ユーザフォーム表示後、ボタン押下時処理
====================
Private Sub CommandButton1_Click()
Application.Quit
End Sub
-----------------------------
ご指摘をお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- その他(Microsoft Office) office2010とoffice365の共存でoffice365を優先で起草させたい 3 2023/01/24 10:47
- Visual Basic(VBA) エクセルのマクロについて質問があります。 現在は下記のマクロでエクセル表を保存しています ThisW 2 2022/09/16 11:22
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Excel(エクセル) フォルダ階層が深いファイルの拡張子の一括変換 2 2022/12/23 18:40
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) エクセルVBA エクセルを開いた後に編集可能な状態にするには? 2 2023/06/14 11:58
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAで今開いているユーザ...
-
【Excel VBA】ブックを複数開い...
-
フォルダ内の全ブックのシート...
-
エクセルVBA Workbook変数に変...
-
excelマクロ、任意セルの値で名...
-
EXCELマクロでxlsとxlsxを開く方法
-
VBA、Excelのworkbook.open に...
-
Excel マクロでファイル名を変...
-
personal.xlsの削除方法
-
エクセル2010で2003形式でマク...
-
[Excel VBA] フォルダ内の複数...
-
すでに開いているブックのマク...
-
エクセル終了時の保存確認メッ...
-
コピーしたファイルのマクロを...
-
複数のデータ系列の線の太さを...
-
エクセルマクロにてパワーポイ...
-
エクセルの単票を一覧表に
-
別のパソコンでエクセルのマク...
-
cellsで特定の離れた範囲を選択...
-
excelファイルに使われているVB...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
エクセルVBA Workbook変数に変...
-
ExcelVBAで今開いているユーザ...
-
VBA、Excelのworkbook.open に...
-
【ExcelVBA】指定の書式で、マ...
-
【Excel VBA】ブックを複数開い...
-
VB2010でExcelの行をコピーして...
-
すでに開いているブックのマク...
-
フォルダ内の全てのBookに同じ...
-
VBA セル入力された日付データ...
-
フォルダ内の全ブックのシート...
-
personal.xlsの削除方法
-
EXCELマクロでxlsとxlsxを開く方法
-
EXCELマクロで上書きメッ...
-
[Excel VBA] フォルダ内の複数...
-
EXCEL VBA起動時の処理
-
コマンドボタンでマクロを起動...
-
excelマクロ、任意セルの値で名...
-
【VBA】他のExcelを起動し、呼...
-
他のBookのユーザー定義関数を使う
おすすめ情報