想把xlsm文件另存为xlsx文件时 报错Run-time error 1004

jiajif12

我想实现的功能是点击一个按键后，可以把目前的宏文件另存为普通的工作簿.xlsx。然后在save as的过程中不弹出如下弹窗，VBA直接把macro-free的文件存好。最后保存好的工作簿关闭。


我写了如下代码，但是在运行的时候总是出现Run-time Error '1004' Application-defined or object-defined error。Debug发现停在第五行，但是我看不出来哪儿有问题。求助各位大神来帮忙修正一下这个小代码。谢谢

Private Sub CommandButton1_Click()  
Dim d$  
d = Sheet1.Range("A2").Value & " Report" & ".xlsx"  
Application.DisplayAlerts = False  
ThisWorkbook.SaveAs ("D:\Use\Data\" & d)
Application.Wait Now + TimeValue("00:00:03")  
Application.DisplayAlerts = True
ThisWorkbook.Close  
End Sub

opel-wong

这样试试：

opel-wong

代码如下：

1. Private Sub CommandButton1_Click()
   
2.     Dim d$
   
3.     d = Sheet1.Range("A2").Value & " Report" & ".xlsx"
   
4.     Application.DisplayAlerts = False
   
5.     ActiveWorkbook.SaveAs "D:\Use\Data\" & d, xlOpenXMLWorkbook, , , , False
   
6.     ActiveWorkbook.Close
   
7.     Application.DisplayAlerts = True
   
8. End Sub
   
9. 
   

复制代码