エクセル奮闘記-10 --- メモ04-ブックを開く
読んで下さる方へ
エクセルのマクロの個人的なメモです。
メモがたまってきたら解説しようと思っています。
エクセルを使っている人は標準モジュールにコピーして実行してみて下さいね。
※今回はブックを開く機能についてです
追記
「~標準モジュールにコピーして実行~」も、意味がわからない方がいらっしゃると思います。そのあたりもいずれ説明していこうと思っています。しばらくは、そこそこの知識のある人でないとわからないと思いますが、そのあたりはご了承ください。
Sub 別のブックを開く()
'開くだけ
'変数を使用「フォルダーの場所」
フォルダーの場所 = "C:\A\"
'変数を使用「ブック名」
ブック名 = "Book1.xlsx"
MsgBox "ハードディスク(C)の「A」フォルダーにある「Book1.xlsx」を開きます"
MsgBox "「Book1.xlsx」がない場合、エラーになります"
'ワークブックを開く
Workbooks.Open フォルダーの場所 & ブック名
MsgBox "開きました画面(アイコン)を確認して下さい"
End Sub
Sub 別のブックを開いて閉じる()
'変数を使用「フォルダーの場所」
フォルダーの場所 = "C:\A\"
'変数を使用「ブック名」
ブック名 = "Book1.xlsx"
MsgBox "ハードディスク(C)の「A」フォルダーにある「Book1.xlsx」を開きます"
MsgBox "「Book1.xlsx」がない場合、エラーになります"
MsgBox "開いて閉じるだけです、画面の変化が一瞬なのでよく見いて下さい"
'ワークブックを開く
Workbooks.Open フォルダーの場所 & ブック名
MsgBox "開いてから閉じました。画面の変化は一瞬でしたね。"
End Sub
Sub 別のブックを開いて書き込んで閉じる1()
'変数を使用「フォルダーの場所」
フォルダーの場所 = "C:\A\"
'変数を使用「ブック名」
ブック名 = "Book1.xlsx"
MsgBox "ハードディスク(C)の「A」フォルダーにある「Book1.xlsx」を開きます"
MsgBox "開いてからアクティブシートのA1セルに「aaa」と書き込みます"
MsgBox "書き込んでから閉じます"
MsgBox "「Book1.xlsx」がない場合はエラーになります", vbExclamation
'ワークブックを開く
Workbooks.Open フォルダーの場所 & ブック名
'書き込む
Range("a1").Value = "aaa"
'閉じる
Workbooks(ブック名).Close
MsgBox "「Book1.xlsx」を開いてからA1セルに「aaa」って書き込みしましたね。" & vbNewLine & "「Book1.xlsx」を開いて確認してみてくださいね。"
End Sub
Sub 別のブックを開いて書き込んで閉じる2()
'保存しますかのメッセージなし
'変数を使用「フォルダーの場所」
フォルダーの場所 = "C:\A\"
'変数を使用「ブック名」
ブック名 = "Book1.xlsx"
MsgBox "ハードディスク(C)の「A」フォルダーにある「Book1.xlsx」を開きます"
MsgBox "開いてからアクティブシートのA1セルに「aaa」と書き込みます"
MsgBox "書き込んでから閉じます"
MsgBox "「Book1.xlsx」がない場合はエラーになります", vbExclamation
'ワークブックを開く
Workbooks.Open フォルダーの場所 & ブック名
'書き込む
Range("a1").Value = "aaa"
'セーブする
Workbooks(ブック名).Save
'閉じる
Workbooks(ブック名).Close
MsgBox "「Book1.xlsx」を開いてからA1セルに「aaa」って書き込みしました。" & vbNewLine & "今度は「はい/いいえ」の確認がないので「Book1.xlsx」を開いて確認してみてくださいね。"
End Sub