Excelマクロで、ファイルの閉じ方
作成している実行ファイルabc.xlsのマクロについて質問です。
(過去作られたものを修正しているので、私にも説明できないコードはあります)
実行すると、別ファイルSheet1.csvを開き、
Sheet1.csvの4~1024行目を、abc.xlsにコピーし、
Sheet1.csvを閉じる。
といったことをやりたいです。
※ここまでのソースに、Sheet1.csvを開く、という部分があります。
Sheet1.csvはアクティブになっています。
※Sheet1.csvファイルには、Sheet1というシートが1つだけあるものとします。
rng1 = "4:1024"
rng2 = "4:4"
rng3 = "A4"
CurName = "abc.xls"
sheetname = "Sheet1"
ActiveSheet.Rows(rng1).Copy
Windows(CurName).Activate
Sheets(sheetname).Select
Range(rng2).Select '特に意味は無いと思われる
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range(rng3).Select '特に意味は無いと思われる
Application.CutCopyMode = False
Dim ACT As String
ACT = sheetname & ".csv"
以上を実行すると、
Sheet1.csvを開き、コピーする所までは正常に実行できます。
抜粋したのでこれだけじゃ意味不明な部分があるかもしれませんが、コピー完了までは正常に動いております。
この後に、Sheet1.csvを閉じるコマンドを入れたいのですが、
検索等して調べたコードではエラーが発生し、閉じることができません。
例えば「新しいマクロを記録する」でExcelに作ってもらったコードだと、
Windows("Sheet1.csv").Activate
ActiveWindow.Close
で閉じることができるのですが、
これを記述してもエラーが出ます。
どのように書けばよいのでしょうか。