ExcelVBマクロ

質問

新年度Ａというフォルダー内にあるbook2012.xlsを開き一部データー入力の上、表操作したものを
別名のファイルで同じフォルダー内に保存する方法を教えてください。
book2012.xlsには「報告」「管理」というシートが２つあります。
(1)「報告」シートを非表示にし、「管理」シート上のA1セル内容をファイル名にして保存。
(2)「報告」シートを再表示し、「報告」シート上のA10～A20セルの内容を一時削除、
　 「管理」シートを非表示にして「報告」シート上のA1セル内容をファイル名にして保存。
(3)「管理」シートを再表示し、「報告」シート上に先程、削除したA10～A20セルの内容を復元した
上でbook2012.xlsを上書きする。
※(1)(2)で保存時、同名ファイルがある時は上書きする。

回答No.1

queuerev2 · ベストアンサー

このマクロはbook2012.xlsにあり、book2012.xlsを開いてこのマクロを起動するところまでは手動（または別のブックのマクロ）で行うこととします。
A1セルのファイル名はフルパスで（保存先のフォルダまで）書いてあるものとしました。
book2012.xlsはA1セルのファイル名で保存してからまたbook2012.xlsに保存するので、厳密には通常の上書き保存とは異なりますが、実用上は問題ないと思います。
Sub test()
Dim WBFN, DA, RA10A20, VA10A20
ThisWorkbook.Activate
Set RA10A20 = ActiveWorkbook.Sheets("報告").Range("A10:A20")
WBFN = ActiveWorkbook.FullName
Sheets("報告").Visible = False
Sheets("管理").Select
Application.DisplayAlerts = Flase
ActiveWorkbook.SaveAs Filename:=Sheets("管理").Range("A1").Value
Application.DisplayAlerts = True
Sheets("報告").Visible = True
VA10A20 = RA10A20
RA10A20.ClearContents
Sheets("管理").Visible = False
Sheets("報告").Select
Application.DisplayAlerts = Flase
ActiveWorkbook.SaveAs Filename:=Sheets("報告").Range("A1").Value
Application.DisplayAlerts = True
Sheets("管理").Visible = True
Sheets("報告").Select
RA10A20.Value = VA10A20
Application.DisplayAlerts = Flase
ActiveWorkbook.SaveAs Filename:=WBFN
Application.DisplayAlerts = True
End Sub

お礼

ご回答ありがとうございます。
「報告.xls、管理.xls」のファイルが同じフォルダーでなくマイドキュメントに生成されました。
ほとんど完成して頂きましたので続きは勉強してやってみます。

補足

A1セルにフルパスと記載頂いてるのを見落としていました。
全てうまくいきました、ありがとうございます。