今天的表白节不知道大家过的如何？都心想事成了吧?祝福！

今天我们继续excel vba的分享，希望对你的工作展开有帮助！

鸣谢！

事件

Application.EnableEvents=False ''禁用所有事件

Application.EnableEvents=True ''启用所有事件

注：不适用于用户窗体控件触发的事件

对象

Set ExcelSheet = CreateObject("Excel.Sheet") ''创建一个Excel工作表对象

ExcelSheet.Application.Visible = True ''设置 Application 对象使 Excel 可见

ExcelSheet.Application.Cells(1, 1).Value = "Data" ''在表格的第一个单元中输入文本

ExcelSheet.SaveAs "C:\TEST.XLS" ''将该表格保存到C:\test.xls 目录

ExcelSheet.Application.Quit ''关闭 Excel

Set ExcelSheet = Nothing ''释放该对象变量

''声明并创建一个Excel对象引用

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.WorkSheet

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets(1)

''创建并传递一个 Excel.Application 对象的引用

Call MySub (CreateObject("Excel.Application"))

Set d = CreateObject(Scripting.Dictionary) ''创建一个 Dictionary 对象变量

d.Add "a", "Athens" ''为对象变量添加关键字和条目

其他

Application.OnKey “^I”,”macro” ''设置Ctrl+I键为macro过程的快捷键

Application.CutCopyMode=False ''退出剪切/复制模式

Application.Volatile True ''无论何时工作表中任意单元格重新计算，都会强制计算该函数

Application.Volatile False ''只有在该函数的一个或多个参数发生改变时，才会重新计算该函数

定制模块行为

Err.Clear ''清除程序运行过程中所有的错误

工作簿

ThisWorkbook.BuiltinDocumentProperties(“Last Save Time”)

或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Save Time”) ''返回上次保存工作簿的日期和时间

ThisWorkbook.BuiltinDocumentProperties("Last Print Date")

或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Print Date”) ''返回上次打印或预览工作簿的日期和时间

Workbooks.Close ''关闭所有打开的工作簿

ActiveWorkbook.LinkSources(xlExcelLinks)(1) ''返回当前工作簿中的第一条链接

ActiveWorkbook.CodeName

ThisWorkbook.CodeName ''返回工作簿代码的名称

ActiveWorkbook.FileFormat

ThisWorkbook.FileFormat ''返回当前工作簿文件格式代码

ThisWorkbook.Path

ActiveWorkbook.Path ''返回当前工作簿的路径(注:若工作簿未保存,则为空)

ThisWorkbook.ReadOnly

ActiveWorkbook.ReadOnly ''返回当前工作簿的读/写值(为False)

ThisWorkbook.Saved

ActiveWorkbook.Saved ''返回工作簿的存储值(若已保存则为False)

Application.Visible = False ''隐藏工作簿

Application.Visible = True ''显示工作簿

注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见

好了，今天就分享到这

下期精彩继续

关注咕吧课堂