[转]VBA语句集400句

y2121577

分享
VBA语句集400句 【转】
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
工作簿
(102) ThisWorkbook.BuiltinDocumentProperties(“Last Save Time”)
     或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Save Time”) ‘返回上次保存工作簿的日期和时间
(103) ThisWorkbook.BuiltinDocumentProperties("Last Print Date")
     或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Print Date”) ‘返回上次打印或预览工作簿的日期和时间
(104) Workbooks.Close ‘关闭所有打开的工作簿
(105) ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接
(106) ActiveWorkbook.CodeName
     ThisWorkbook.CodeName  ‘返回工作簿代码的名称
(107) ActiveWorkbook.FileFormat
     ThisWorkbook.FileFormat  ‘返回当前工作簿文件格式代码
(108) ThisWorkbook.Path
     ActiveWorkbook.Path ‘返回当前工作簿的路径(注:若工作簿未保存,则为空)
(109) ThisWorkbook.ReadOnly
      ActiveWorkbook.ReadOnly ‘返回当前工作簿的读/写值(为False)
(110) ThisWorkbook.Saved
     ActiveWorkbook.Saved ‘返回工作簿的存储值(若已保存则为False)
(111) Application.Visible = False ‘隐藏工作簿
      Application.Visible = True ‘显示工作簿
   注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。


VBA语句集400句.rar (24.79 KB, 下载次数: 4558)

2013-5-15 20:42 上传

点击文件名下载附件
分享

banjinjiu

辛苦楼主，感觉对这样的菜鸟，具体的例子少了，还是说声谢谢。

banjinjiu

我是说自己是菜鸟，请大家别介意

xiaoqi6679

xiexie louzhu

kiss被注册

恩,虽然现在有了各种VBA翻译器,但这种实际的还是值得肯定,
感谢 楼主

韦小宝188

楼主有心，必须顶

hlssoft

谢谢楼主！

sunny_8848

谢谢楼主分享！

badzbf

好东西，学习编写很有用

as42065300

正在学习VBA谢谢楼主分享。