關於 副檔名 xlsm (含巨集) 另存 xlsx (無巨集)
- 帖子
- 1
- 主題
- 0
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- windows10
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-12-31
- 最後登錄
- 2019-3-5
|
可以試試下列方法
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 |
|
|
|
|
|
|
|
發表於 2018-4-4 21:45
| 