標題: 關於 副檔名 xlsm (含巨集) 另存 xlsx (無巨集) [打印本頁]

---

作者: EGBT    時間: 2018-3-30 13:38     標題: 關於 副檔名 xlsm (含巨集) 另存 xlsx (無巨集)

各位大大好, 如題

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

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

---

作者: Lee00777    時間: 2018-4-4 21:45

可以試試下列方法

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

---

作者: quickfixer    時間: 2018-4-5 00:13

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

---

作者: EGBT    時間: 2018-4-11 14:45

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)