<meta property=”og:title” content=”アニメ” />

ペントスのほぼ日ブログ

劇場アニメとWordpressの話をアップしています

劇場アニメ
コラム
劇場アニメ
観て来た
劇場アニメ
公開前
劇場アニメ
公開中
イベント お知らせ
ゴジラ Webサンデー
コナン
コナン コードギアス 新妹魔王 曇天に笑う
Fate 僕のヒーロー
アカデミア
マクロス 妖怪ウォッチ デジタルイラスト タグ

エクセル奮闘記-10 --- メモ04-ブックを開く

読んで下さる方へ

エクセルのマクロの個人的なメモです。

メモがたまってきたら解説しようと思っています。

エクセルを使っている人は標準モジュールにコピーして実行してみて下さいね。

※今回はブックを開く機能についてです

 

 追記

「~標準モジュールにコピーして実行~」も、意味がわからない方がいらっしゃると思います。そのあたりもいずれ説明していこうと思っています。しばらくは、そこそこの知識のある人でないとわからないと思いますが、そのあたりはご了承ください。

 

f:id:pen-toss:20150323214553j:plain

 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

 

f:id:pen-toss:20150323214553j:plain

 

f:id:pen-toss:20170201231242j:plain