[已解决]为什么我导出工作表时出现错误（应用程序定义或对象定义错误）

qinhuan66

测试.rar (38.69 KB, 下载次数: 9)

2013-5-26 09:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-26 09:38

1. Private Sub CommandButton3_Click()
   
2.     Dim shp As Shape
   
3.     Dim fileSaveName
   
4.     fileSaveName = Application.GetSaveAsFilename("医疗费用支出明细（慢）", fileFilter:="Microsoft Excel Files (*.xls),*.xls")
   
5.     If fileSaveName = False Then Exit Sub
   
6.     Sheets("报销统计综合查询").Copy
   
7.     ActiveSheet.Unprotect "695360052"
   
8.     For Each shp In ActiveSheet.Shapes
   
9.         shp.Delete
   
10.     Next
    
11.     '''问题1：如果该目录下，文件名已经存在，替代可行，不替代时（若是能自动在原文件名后加上一个数，比如book1），以下代码出错？如何处理？
    
12. 
    
13.     '    ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & Range("E1") & ".xls"
    
14.     ActiveWorkbook.SaveAs fileSaveName
    
15.     'Application.WindowState = xlMinimized
    
16. 
    
17.     '''要求：生成新文件（工作薄）时，新工作薄不存放任何按扭和代码
    
18. 
    
19.     '''问题2：保存位置一般是在同个目录下，但，希望在新建过程，显示存放地址（路径），不知道如何摘取……并写在MsgBox 里
    
20. 
    
21.     ActiveWorkbook.Close
    
22. 
    
23.     MsgBox "呵呵！另保存成功！"
    
24. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

工作表保护了。

qinhuan66

hwc2ycy 发表于 2013-5-26 09:34
工作表保护了。

好的谢谢老师

hwc2ycy

1. Private Sub CommandButton3_Click()
   
2.     Dim shp As Shape
   
3.     Dim fileSaveName
   
4.     fileSaveName = Application.GetSaveAsFilename("医疗费用支出明细（慢）", fileFilter:="Microsoft Excel Files (*.xls),*.xls")
   
5.     If fileSaveName = False Then Exit Sub
   
6.     Sheets("报销统计综合查询").Copy
   
7.     ActiveSheet.Unprotect "695360052"
   
8.     For Each shp In ActiveSheet.Shapes
   
9.         shp.Delete
   
10.     Next
    
11.     '''问题1：如果该目录下，文件名已经存在，替代可行，不替代时（若是能自动在原文件名后加上一个数，比如book1），以下代码出错？如何处理？
    
12. 
    
13.     '    ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & Range("E1") & ".xls"
    
14.     ActiveWorkbook.SaveAs fileSaveName
    
15.     'Application.WindowState = xlMinimized
    
16. 
    
17.     '''要求：生成新文件（工作薄）时，新工作薄不存放任何按扭和代码
    
18. 
    
19.     '''问题2：保存位置一般是在同个目录下，但，希望在新建过程，显示存放地址（路径），不知道如何摘取……并写在MsgBox 里
    
20. 
    
21.     ActiveWorkbook.Close
    
22. 
    
23.     MsgBox "呵呵！另保存成功！"
    
24. End Sub
    

复制代码

hwc2ycy

删除控件后你可以再加上进行保护。

1. ActiveSheet.Protect "695360052"

复制代码