Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

Excel和Word VBA语句集

时 间:2012-08-22 08:20:16
作 者:宏鹏(转载)   ID:21115  城市:上海
摘 要:前1-300句是Excel VBA语句集,后301-400句是Word VBA语句集
正 文:

 

 

点击下载此附件

Excel VBA语句集300
1-100
定制模块行为
(1) Option Explicit '强制对模块内所有变量进行声明
Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示
Option Compare Text '字符串不区分大小写
Option Base 1 '指定数组的第一个下标为1
(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置
(4) On Error GoTo 0 '恢复正常的错误提示
(5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示
(6) Application.ScreenUpdating=False '关闭屏幕刷新
Application.ScreenUpdating=True '打开屏幕刷新
(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能
工作簿
(8) Workbooks.Add() '创建一个新的工作簿
(9) Workbooks(book1.xls).Activate '激活名为book1的工作簿
(10) ThisWorkbook.Save '保存工作簿
(11) ThisWorkbook.close '关闭当前工作簿
(12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数
(13) ActiveWorkbook.name '返回活动工作薄的名称
(14) ThisWorkbook.Name ‘返回当前工作簿名称
ThisWorkbook.FullName ‘返回当前工作簿路径和名称
(15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小
(16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列
(17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化
......
 
Word VBA语句集100
Application对象
(301) Application.ActivePrinter ‘获取当前打印机
(302) Application.Height '
当前应用程序文档的高度
(303) Application.Width ‘
当前应用程序文档的宽度
(304) Application.Build ‘
获取Word版本号和编译序号
(305) Application.Caption ‘
当前应用程序名
(306) Application.DefaultSaveFormat '
返回空字符串,表示Word文档
(307) Application.DisplayRecentFiles '
返回是否显示最近使用的文档的状态
(308) Application.Documents.Count '
返回当前打开的文档数
(309) Application.FontNames.Count ‘
返回当前可用的字体数
(310) Application.Left ‘
返回当前文档的水平位置
(311) Application.MacroContainer.FullName '
返回当前文档名,包括所在路径
(312) Application.NormalTemplate.FullName '
返回文档标准模板名称及所在位置
(313) Application.RecentFiles.Count '
返回最近打开的文档数目
(314) Application.System.CountryRegion '
返回应用程序所在的地区代码
(315) Application.System.FreeDiskSpace ‘
返回应用程序所在磁盘可用空间
.....


Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助