如何利用VBA实现保存时 不跳出是否保存为启用宏的工作簿

暗酱

如题
代码如下

1. Sub 批量转化为XLSX()
   
2. MyFile111 = ActiveWorkbook.Name
   
3. Dim FilePath, MyFile, iPath, Name, OutPath As String
   
4. iPath = Workbooks(MyFile111).Path
   
5. OutPath = Dir(iPath & "\xlsx", vbDirectory)
   
6. If OutPath = "" Then
   
7.     MkDir (iPath & "\xlsx")
   
8. End If
   
9. MyFile = Dir(iPath & "\*.xls")
   
10. 
    
11. If MyFile <> "" Then
    
12. Do
    
13.     On Error Resume Next
    
14.     If MyFile = Workbooks(MyFile111).Name Then MyFile = Dir
    
15.     Set aa = Workbooks.Open(Filename:=iPath & "" & MyFile, UpdateLinks:=0)
    
16.     MyFile = Replace(MyFile, ".xls", ".xlsx")
    
17.     Name = "" & MyFile
    
18.     FilePath = iPath & "\xlsx" & Name
    
19.     Application.ScreenUpdating = False
    
20.     ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
21.   
    
22.     Workbooks(MyFile).Close True
    
23.    
    
24.     Application.ScreenUpdating = True
    
25.     MyFile = Dir
    
26. Loop While MyFile <> ""
    
27. End If
    
28. End Sub

复制代码

暗酱

自己顶一下 求老师们解决

mofangquan

常识性的问题，你文件带有宏而xlsx只能纯文档，显然大佬们都不愿意回答

lsc900707

这个没有关闭的必要。

ais9009

lsc900707 发表于 2019-1-21 20:11
这个没有关闭的必要。

自动生成很多文件时不关闭会卡在这一步，好像

wxhnr

Application.DisplayAlerts = False
'保存
Application.DisplayAlerts = True