返回列表 上一主題 發帖

關於 副檔名 xlsm (含巨集) 另存 xlsx (無巨集)

關於 副檔名 xlsm (含巨集) 另存 xlsx (無巨集)

各位大大好, 如題

我的問題如題, A.xlsm 要另存成 A.xlsx

用一般的 SavaAs 寫一直有問題, 上來請益各位大大, 感恩.

可以試試下列方法

Public Sub 另存新檔()
Dim myPath, myName, MyStr As String
Dim s As Integer
myPath = ActiveWorkbook.Path & "\"
myName = ActiveWorkbook.Name
s = Len(myName) - InStr(1, myName, ".") - 1
MyStr = VBA.Mid(myName, 1, s) '去掉附檔名
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=myPath & MyStr & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=myPath & MyStr & ".xls", FileFormat:= _
        xlExcel8, CreateBackup:=False
End Sub

TOP

sub test()
     Application.DisplayAlerts = False
    ThisWorkbook.CheckCompatibility = False
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True
end sub

TOP

感謝以上兩位大大的回覆與解答, 感恩.

TOP

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題