「VBA} XLSMのファイルをXLSX保存したい

質問

いろいろとVBAが入っているシート1.xlsmがあります。
シート1の内容をXLSXで保存したいのですが、うまくいきません。
解決に向けてご教授ください。

＜ステップ1　XLSMでは保存できます。＞
Private Sub hachu_Click()
'担当者名取得(C4)
Dim s As String
s = Range("C4").Value
Debug.Print (s)
ActiveWorkbook.SaveCopyAs Filename:= _
"c:\ " & Format(Date, "mmdd") & "_" & Format(Time, "hhmmss") & s & ".xlsm"
'1013_161712木村.XLSM
End Sub

＜ステップ2　XLSXで保存できますが、ファイルを開くときにエラーが出ます。＞
　FIG.1
Private Sub hachu_Click()
'担当者名取得(C4)
Dim s As String
s = Range("C4").Value
Debug.Print (s)
ActiveWorkbook.SaveCopyAs Filename:= _
"c:\ " & Format(Date, "mmdd") & "_" & Format(Time, "hhmmss") & s & ".xlsm"
'1013_161712木村.XLSM
End Sub

＜ステップ3　マクロのないシート2にあたい張り付けして、シート2だけ保存＞
保存の際にFIG.2の様なアラートが出て、手作業が必要です。＞
'シートの複製（複製すると新しいブックが立ち上がります）
Worksheets(2).Copy '名前を付け、ファイル形式も決めて特定の場所に保存する。
ActiveWorkbook.SaveAs _
Filename:="c:\ " & Format(Date, "mmdd") & "_" & Format(Time, "hhmmss") & s & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook

回答No.2

tsubu-yuki

この程度の単純な処理なら、警告表示を無視しちゃえば良いです。

Dim s As String
　　Application.DisplayAlerts = False
　　s = Range("C4").Value
　　' Debug.Print (s)
　　ActiveWorkbook.SaveCopyAs Filename:= _
　　　　　　　　　　　"c:\ " & Format(Now, "mmdd_hhmmss") & s & ".xlsx"
　　Application.DisplayAlerts = True

回答No.1

nan93850673

SaveAs使えばいいんじゃないの？