|
▼まき子 さん:
このマクロはご自分で書いたんですよね?
ササッとしか見てませんけど、
> Dim myFileName As String
> fn = ThisWorkbook.ActiveSheet.Range("C3") '拠点名
> fn2 = "結果" & "(" & fn & ")" '新しいBook名。
> '名前を付けて保存ダイアログボックスを開く
> myFileName = Application.GetSaveAsFilename(fn2, "Excelファイル(*.xls),*.xls")
> If myFileName = "False" Then
> Exit Sub
> Else
> With Application
> ActiveWorkbook.SaveAs myFileName, FileFormat:=xlNormal, _
> Password:="6920", WriteResPassword:="", _
> ReadOnlyRecommended:=False, CreateBackup:=False
ここで名前をつけて保存をしてますが、その時には
・ActiveWorkbookはまだ3シート持っているんじゃないですか?
UPされているソースを見る限りそれだけの問題のように見えます。
|
|