關於 副檔名 xlsm (含巨集) 另存 xlsx (無巨集)
- 帖子
- 127
- 主題
- 38
- 精華
- 0
- 積分
- 166
- 點名
- 0
- 作業系統
- Microsoft
- 軟體版本
- Windows 7
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-7-31
- 最後登錄
- 2018-8-3
|
關於 副檔名 xlsm (含巨集) 另存 xlsx (無巨集)
各位大大好, 如題
我的問題如題, A.xlsm 要另存成 A.xlsx
用一般的 SavaAs 寫一直有問題, 上來請益各位大大, 感恩. |
|
|
|
|
|
|
|
- 帖子
- 127
- 主題
- 38
- 精華
- 0
- 積分
- 166
- 點名
- 0
- 作業系統
- Microsoft
- 軟體版本
- Windows 7
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-7-31
- 最後登錄
- 2018-8-3
|
4#
發表於 2018-4-11 14:45
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 154
- 主題
- 1
- 精華
- 0
- 積分
- 200
- 點名
- 29
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2024-11-24
|
3#
發表於 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 |
|
|
|
|
|
|
|
- 帖子
- 1
- 主題
- 0
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- windows10
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-12-31
- 最後登錄
- 2019-3-5
|
2#
發表於 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 |
|
|
|
|
|
|
|
