llgd.net
相关文档
当前位置:首页 >> ACtivEworkBook.sAvE >>

ACtivEworkBook.sAvE

保存所有打开的工作簿

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

ActiveWorkbook.SaveAs Filename:=range("A1").value & ".xls",这是在MS EXCEL电子表格中使用的VBA代码,作用是将当前活动工作薄以A1单元格中的值做为文件名,另外保存在活动工作薄所在的位置。 1、打开原来的工作薄,按ALT+F11,打开VBA代码窗口...

你可以先把这些字符去除后再保存,我这里是利用正则,例子如下 Sub admin() Dim 原字符串 As String 原字符串 = "*a?bd$" With CreateObject("VBSCRIPT.REGEXP") .Global = True .Pattern = "[*?]" MsgBox .Replace(原字符串, "") End WithEnd Sub

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

ActiveWorkbook.Close SaveChanges:=0 试试这个

把 SaveAs 换成 SaveCopyAs 试试

当前时间 4个中文字去掉。

ActiveWorkbook.SaveAs "h:\金塑201407\" & D & ".xls" & 前后需要空格

重复性打开EXCEL程序。 VB调用完EXCEL程序后,不仅要关闭EXCEL文件,还要关闭EXCEL程序。 VB6.0 EXCEL文件扩展名为xls的情况。 Dim MyXL As Object '定义...

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