「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
お礼
f272様 ご回答ありがとうございます。 やはり1つファイル(xlsx)として保存できないんですね。。 何か裏ワザ的な方法で保存できたりするのかな？と 思った次第です。 ありがとうございました。