返回列表 上一主題 發帖

關於 副檔名 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

        靜思自在 : 人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
返回列表 上一主題