想用以下这段代码做保存文件对话框,结果点击没反应,可是用.showopen方法做打开对话框是好使的,.showsave就不行。请教问题出在哪?
Sub OnClick(Byval Item)
Dim objDialog
Dim intResult
Set objDialog = CreateObject(
最佳答案
Set excelapp = CreateObject("Excel.Application")
excelapp.workbooks.open "D:\excel.xls"
excelapp.activeworkbook.save
不同的对象保存命令是不一样的
提问者对于答案的评价:
代码没粘全啊
专家置评
在帮助中Search:VBS113
原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc265058.html