Excel VBA 快速入门指南：从基础到高级实战

需积分: 9 12 浏览量更新于2024-07-29 1 收藏 428KB PDF 举报

"《Excel VBA快速上手之宝典》是一本专为初学者设计的指南，作者zhoujibin于2006年7月在ExcelHome论坛发布。本书主要分为四个章节，详细介绍了Excel VBA的基础知识、常用对象操作、高级应用以及优化技巧，旨在帮助读者快速掌握这一强大的工具。第一章"Excel VBA简明语言之基础"涵盖了VBA语言的基础概念，包括标识符的定义和命名规则，以及各种运算符的类型和用法。读者可以了解到如何正确地定义和引用变量、常量、过程和函数，并了解运算符在表达式中的作用，如赋值运算符、数学运算符、逻辑运算符和关系运算符。第二章"Excel VBA常用对象之使用"深入讲解了与Excel工作簿、工作表、单元格和图表相关的操作。从文件的读写操作到工作表的基本管理，再到单元格和图表的精确控制，都有详尽的步骤和实例，帮助读者理解并实际操作。第三章"Excel VBA高级使用"则转向更进阶的主题，如WinAPI的运用，通过API函数实现与Windows操作系统底层的交互，以及如何保护程序的机密性和安全性，如使用动态链接库(DLL)和加密技术。最后一章"Excel VBA优化及结束语"关注于提高编程效率和性能，探讨了VBA代码的优化策略，同时给出了一些建议和总结，使读者在学习过程中能够不断改进自己的编程技能。附录部分提供了Excel VBA对象框架图，直观展示了对象之间的关系，有助于读者更好地理解和组织代码结构。总体来说，《Excel VBA快速上手之宝典》是一本全面且实用的教程，无论是初次接触VBA的初学者，还是希望提升Excel VBA技能的用户，都能从中受益匪浅。"

Now 返回一个 Variant (Date) ，根据计算机系统设置的日期和时间来指定日期和时间。

Date 返回包含系统日期的 Variant (Date) 。

Time 返回一个指明当前系统时间的 Variant (Date) 。

Timer 返回一个 Single ，代表从午夜开始到现在经过的秒数。

TimeSerial(hour, minute, second) 返回一个 Variant (Date) ，包含具有具体时、分、秒的时间。

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值

，

表示两个指定

日期间的时间间隔数目

Second(time) 返回一个 Variant (Integer) ，其值为 0 到 59 之间的整数，表示一分钟之中的

某个秒

Minute(time) 返回一个 Variant (Integer) ，其值为 0 到 59 之间的整数，表示一小时中的某

分钟

Hour(time) 返回一个 Variant (Integer) ，其值为 0 到 23 之间的整数，表示一天之中的某一

钟点

Day(date) 返回一个 Variant (Integer) ，其值为 1 到 31 之间的整数，表示一个月中的某一

日

Month(date) 返回一个 Variant (Integer) ，其值为 1 到 12 之间的整数，表示一年中的某月

Year(date) 返回 Variant (Integer) ，包含表示年份的整数。

Weekday(date, [firstdayofweek]) 返回一个 Variant (Integer) ，包含一个整数，代表某个日期是

星期几

第二章

Excel

Excel VBA

VBA

常用对象之使用

第一节文件的操作

1) Excel 文件

1.1 新建与打开

一 . 新建

Workbooks.Add

二 . 打开

Workbooks.Open " 路径 \" & " 文件名 .xls"

三 . 文件打开对话框的使用

Application.GetOpenFilename(fileFilter:="Excel files(*.xls),*.xls,All files (*.*),*.*")

示例 :

flag = False

Do While Not flag ' 对话框打开已有 Excel 文件

fm = Application.GetOpenFilename(fileFilter:="Excel files(*.xls),*.xls, All files (*.*),*.*")

If fm <> False Then

Workbooks.Open fm

Set bb = ActiveWorkbook

' 把 bb 变量设为当前活动工作簿对象 , 打开一工作簿时 , 该工作簿自动为当前活动工作簿

flag = True

End If

Loop

1.2 保存与关闭

一 . 保存

Workbooks(" 文件 .xls").Save

二 . 另存对话框的使用

Application.GetSaveAsFilename(fileFilter:="Excel files (*.xls),*.xls,All files (*.*),*.*")

示例 :

flag = False

Do While Not flag ' 循环要求必须输入文件名或选择文件名

fm = Application.GetSaveAsFilename(fileFilter:="Excel files (*.xls),*.xls,All files (*.*),*.*")

If fm <> False Then

activeworkbook.SaveAs fm ' 当前活动工作簿另存

flag = True

End If

Loop

三 . 关闭

1. 单个文件关闭

Workbooks("filename.xls").Close

2. 所有该 Excel 程序打开的文件都关闭

Workbooks.Close

如果文件使用中改动过内容 , 那么该命令使用时会弹出提示对话框 , 询问是否保存 .

如果要想不弹出提示对话框 , 可以使用第三或第四种文件关闭方法 , 或者如下示例 .

示例 :

关闭工作簿 “ Book1.xls ” ，但不提示用户保存所作修订。 “ Book1.xls ” 中的所有修订都不

会保存。

Application.DisplayAlerts = False ' 信息警告关闭

Workbooks("BOOK1.XLS").Close

Application.DisplayAlerts = True ' 信息警告开启

四 . 关闭同时保存

Workbooks("filename.xls").Close savechanges:=True

五 . 关闭同时不保存

Workbooks("filename.xls").Close savechanges:=False

六 .Excel 程序的关闭

Application.Quit

说明 :

使用本方法时，如果有未保存的工作簿处于打开状态，则 Microsoft Excel 将弹出一个对话

框，询问是否要保存所作修改。

为防止这一情况出现，可在使用 Quit 方法前保存所有的工作簿或将 DisplayAlerts 属性设

置为 False 。如果该属性为 False ，则 Microsoft Excel 退出时，即使存在未保存的工作簿

退出，也不会显示对话框，而且不保存就退出。如果将一个工作簿的 Saved 属性设置为 Tr

ue ，但是并没有将其保存到磁盘上，则 Microsoft Excel 在退出时不会提示保存该工作簿。

七 . 工作簿的密码保护与撤销

保护工作簿使其不至被修改。

Workbooks( “ 工作簿名 ” ).Protect (Password, Structure, Windows)

Password Variant 类型，可选。为一个字符串，该字符串为工作表或工作簿指定区分大小写

的密码。如

剩余47页未读，继续阅读

身份认证购VIP最低享 7 折!

30元优惠券

米兰小餐馆inn

粉丝: 0

Excel VBA 快速入门指南：从基础到高级实战

Excel/VBA快速上手之宝典

Excel_VBA_快速上手之宝典

Excel VBA 程序开发自学宝典 全套实例 案例

excel vba程序开发自学宝典(第3版).pdf

excelvba程序开发自学宝典第4版 随书案例文件

excelvba程序开发自学宝典实例 下载

excel vba程序开发自学宝典(第3版)光盘

罗刚君《excel vba程序开发自学宝典(第3版) 》完整版

Excel VBA编程实战宝典

excelvba 编程实战宝典

最新资源

Excel VBA 程序开发自学宝典全套实例案例

excelvba程序开发自学宝典第4版随书案例文件

excelvba程序开发自学宝典实例下载