Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10729 / 76807

←次へ　｜　前へ→


	【71624】Re:別ファイルを指定

Abebobo - 12/3/23(金) 14:15 -


	引用なし

	パスワード

そういう意味だったのですね。

サンプルを書いた後で投稿をちゅうちょしていました。

Sub Test()

Dim My_Book　 As Workbook
Dim My_Sheet3 As Worksheet
Dim BooK_A　　As Workbook

Set My_Book = ThisWorkbook　'マクロが書いてあるブック
Set My_Sheet3 = My_Book.Sheets("Sheet3")
Set BooK_A = Workbooks.Open(Filename:="C:\book2.XLS")

MsgBox My_Book.Name & Chr(10) & BooK_A.Name

Set My_Book = Nothing
Set My_Sheet3 = Nothing
Set BooK_A = Nothing
End Sub

こんな感じで、それぞれを変数に記憶させておくことをお勧めします。

2 hits

▼

【71620】別ファイルを指定 Ｇ一朗 12/3/23(金) 13:23