llgd.net
当前位置:首页 >> ACtivEworkBook.sAvE >>

ACtivEworkBook.sAvE

保存所有打开的工作簿

ActiveWorkbook.Close SaveChanges:=0 试试这个

如果你要定义一个EXCEL 应用,楼上的说法正确。(即:不用Add的话,也可以Open一个的) 如果只是想要将当前WORKBOOK SAVE的话。可以: Sub 宏1() ActiveWorkbook.Save End Sub

没有数据 运行不起来 Application.DisplayAlerts = False 加上这个试下 应该是保存代码因为某些原因冲突了吧

...Excel.DisplayAlerts := false; //不提示任何警告信息Excel.ActiveWorkbook.Save; // 保存Excel.Quit; //退出 本回答由提问者推荐 评论 hi_qms...

Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Close savechanges:=False End Sub 亲 只需要在workbook 的BeforeClose 事件里面写上我...

ActiveWorkbook.SaveAs Filename:="文件路径和名称", FileFormat:=Excel5 而通常EXCEL2007另存为.xls格式是Excel8 ActiveWorkbook.SaveAs Filename:="文件路径和名称", FileFormat:=Excel8

Sub savetofile() Application.ScreenUpdating = False on error resume next '忽略错误,继续执行 Dim folder As String folder = ThisWorkbook.Path & "\班级成绩表" If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder Dim sht As Work...

1、文件名生成方法错误,可更改为:"d:\拆分\" & str2 & "-" & str1 & "-河南" 2、FileFormat:=xlWorkbookDefault错误,默认的格式为FileFormat:=xlNormal。 3、H盘没有“拆分”文件夹会出现错误。 公式可更改为: ActiveWorkbook.SaveAs Filename...

Workbooks(name1).Close SaveChanges:=False '关闭指定name1 ThisWorkbook.Close SaveChanges:=False '关闭指定工作薄 ActiveWorkbook.Close SaveChanges:=False '关闭当前活动工作薄

网站首页 | 网站地图
All rights reserved Powered by www.llgd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com