エクセルのマクロ

質問

お世話になります。
Book1.xlsというファイルから、不特定のファイルを開き、一定の作業の後、閉じる場合のマクロについて伺います。

name1、name2のファイルを開き、vlookup関数を入力する場合のマクロの記載は、サイトを検索し、下記のようにすればできました。

Dim　name1　As　String
Dim　name2　As　String

sub　macro1（）
省略
Workbooks.Open Filename:=name1
Workbooks.Open Filename:=name2

Windows("Book1.xls").Activate
Range("C6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'[" & name1 & "]sheei1'!C1:C155,R1C,FALSE)"
Range("C7").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'[" & name2 & "]sheei1'!C1:C155,R1C,FALSE)"
（省略）
*****************************
Windows("name1").Activate
ActiveWindow.Close　
Windows("name2").Activate
ActiveWindow.Close
*****************************
として、呼び出したファイルを（保存せず）閉じたいのですが、（"name1")("name2")の部分の記載方法を教えてください。よろしくお願いします。

回答No.1

Cor_moriyan · ベストアンサー

Active～　を使う人が多いですが・・・それを使わずに Workbooks を記述するようにすれば、もっとわかりやすく出来ます。
とりあえず、ご質問の回答としては
*****************************
Windows("name1").Activate
ActiveWindow.Close　
Windows("name2").Activate
ActiveWindow.Close
*****************************
を、以下の様にして下さい。

　　Workbooks(name1).Close SaveChanges:=False
　　Workbooks(name2).Close SaveChanges:=False

で。ActiveWindowやActiveCellを使用しないで記述すると、もっとわかりやすくなります。参考まで(^^)

　　Dim name1 As String
　　Dim name2 As String

　　（省略）

　　Workbooks.Open Filename:=name1
　　Workbooks.Open Filename:=name2

　　Workbooks("Book1.xls").Range("C6").FormulaR1C1 = _
　　　　"=VLOOKUP(RC1,'[" & name1 & "]Sheet1'!C1:C155,R1C,FALSE)"
　　Workbooks("Book1.xls").Range("C7").FormulaR1C1 = _
　　　　"=VLOOKUP(RC1,'[" & name2 & "]Sheet1'!C1:C155,R1C,FALSE)"

　　（省略）

　　Workbooks(name1).Close SaveChanges:=False
　　Workbooks(name2).Close SaveChanges:=False

※気付きましたが、もしかして....
　（誤）RC1,'[" & name1 & "]sheei1'!C1
　（正）RC1,'[" & name1 & "]Sheet1'!C1
　じゃありませんか？(^^;

お礼

基本的なことが分からないものに対して親切に迅速な回答ありがとうございました。助かりました。心から感謝します。また、指摘を頂戴しました。そのとおりで汗顔の至りです。このたびはありがとうございました。