excel vbaで助けてください

質問

excel2000を利用しています。

ファイルA (sheet1-グラフデータ、sheet2-グラフ)が、あります。

Vbaで、このファイルシートをすべて選択して、コピーして、名前をつけて保存しています。

この時に、作られる ファイルB (sheet1-グラフデータ、sheet2-グラフ)ですが、グラフの元データが、ファイルAになってしまいます。

下記、記述をどのように修正すれば、ファイルBのグラフの元データを、ファイルAでなく、ファイルBにすることが出来るでしょうか。
ご教授お願いいたします。

Thisworkbook.Worksheets.Copy
SaveFilePath = Application.GetSaveAsFilename(mypath,"ExcelFile(*.xls),*.xls")
If SavefilePath <> "False" Then
ActiveWorkbook.SaveAs Filename:=SaveFilePath
Else
End if

回答No.1

cj_mover · ベストアンサー

こんにちは。
こんな感じ？

' '　　―――――――――――――――――――――――――――

　　SaveFilePath = Application.GetSaveAsFilename(mypath, "ExcelFile(*.xls),*.xls")
　　If SaveFilePath <> "False" Then
　　　　ActiveWorkbook.SaveCopyAs Filename:=SaveFilePath '（１／２択）アクティブなブック
'　　　　ThisWorkbook.SaveCopyAs Filename:=SaveFilePath '（２／２択）自ブック
　　　　Workbooks.Open Filename:=SaveFilePath ' 開く場合
　　Else
　　End If

' '　　―――――――――――――――――――――――――――

或いは、
元のブックのシート数が幾つであっても
左からふたつのシートだけをコピーする場合は以下。

' '　　―――――――――――――――――――――――――――

Dim i As Long

　　SaveFilePath = Application.GetSaveAsFilename(mypath, "ExcelFile(*.xls),*.xls")
　　If SaveFilePath <> "False" Then
　　　　ActiveWorkbook.SaveCopyAs Filename:=SaveFilePath '（１／２択）アクティブなブック
'　　　　ThisWorkbook.SaveCopyAs Filename:=SaveFilePath '（２／２択）自ブック
　　　　With Workbooks.Open(Filename:=SaveFilePath)
　　　　　　Application.DisplayAlerts = False
　　　　　　For i = .Sheets.Count To 3 Step -1
　　　　　　　　.Sheets(i).Delete
　　　　　　Next i
　　　　　　Application.DisplayAlerts = True
　　　　　　.Close True '（１／２択）閉じる
'　　　　　　.Save '（２／２択）閉じずに上書きのみ
　　　　End With
　　Else
　　End If

' '　　―――――――――――――――――――――――――――

お礼

おぉー、これは助かります。大変興味深いです。
いろんなパターンをご提示いただけたので、いろんなパターンの勉強にもなりました。
とても、親切なお気遣いに感謝いたします。
ありがとうございました。