「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
お礼
すごいです!!!無事できました!ありがとうございました!!!