Excel VBA：特定のシートだけを保存・読込

　Sheet1～Sheet3まであるエクセルのデータを作っています。Sheet１と３は数式などの変更しないデータが入っており、Sheet２は開く度にデータを変えます。１も３もデータが大きいため保存に時間がかかりますので（開くのには時間はそんなにかかりません）、「２だけを保存」したいのですが、特定のシートだけをCVS形式で保存できるのでしょうか。（厳密には入力の度に保存するプログラムを組み込んでいます。）　それから、Sheet１と３だけ入った先ほどのデータを開き、その後でCVS形式のSheet2を挟み込むことは出来るでしょうか。
　わかりにくい質問になってしまったかも知れませんが、どなたか教えて頂けませんでしょうか。よろしくお願いします。

No.1 ベストアンサー 回答者： chibita_papa 回答日時： 2007/06/12 11:47

キー記録で簡単に出来ます。

Sub 保存()

Application.DisplayAlerts = False
Sheets("Sheet2").Select
Sheets("Sheet2").Copy
　　'保存するファイル名を適当に変えてやってください。
ActiveWorkbook.SaveAs Filename:="Z:\Sheet2.csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWindow.Close
End Sub

Sub 読み込み()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Sheet2").Delete
　　'保存されているファイル名を適当に変えてやってください。
Workbooks.Open Filename:="Z:\Sheet2.csv"
Sheets("Sheet2").Select
Sheets("Sheet2").Move Before:=Workbooks("Book2").Sheets(2)
End Sub

この回答へのお礼

キー記録という手段がありましたね。ただ１シートだけの読込挿入の方法が分からず・・・。本当に勉強になりました。ありがとうございます。

お礼日時：2007/06/12 15:07