Tag Archives: VBA

VBA中有效防止更改表名后无法访问相应工作表的2种方法

VBA中通常我们都会直接使用显示在工作表标签栏中的名称(Name属性)来访问相应的工作表,如果你使用了硬编码如Worksheets(“Sheet1″),当用户对工作表重命名之后,这样的代码将会出现访问越界的错误,因为以原来的工作表名无法访问到相应的工作表了。这里水文工具集介绍VBA中2种使得在用户更改工作表名之后仍能正常使用的方法
阅读全文 >

VBA中检查枚举值Enum是否为有效值

VBA中使用枚举类型Enum时,由于可以把任意的长整形Long数值赋予Enum类型变量,即使这一长整形数值不在相应的Enum类型范围之内,要保证是有效的枚举值,这里水文工具集介绍一个检查枚举值Enum是否为有效值的方法,具体源代码如下:


阅读全文 >

Excel工作表如何使用VBA添加数据有效性

使用Excel过程中,经常通过人工设置数据有效性来限制目标单元格只能接受某种条件的参数。如何使用VBA来给工作表添加数据有效性呢,这里水文工具集从网上摘录一篇通过VBA给任意工作表设置数据有效性的文章(Add Data Validation to any worksheet using VBA)。

首先定义VBA函数AddValidation,具体源代码如下:
阅读全文 >

VBA处理JSON文件的类模块

JSON格式目前越来越流行,具体JSON格式的描述可以在JSON网站[www.json.org]了解,这里水文工具集给出一个VBA处理JSON文件的类模块,以方便调用。
阅读全文 >

Excel中如何通过VBA从SQL Server 2005数据库导入数据

现在许多应用都使用了数据库进行存储,如果我们需要使用Excel开发相关程序,就必须得面临一个如何导入数据的问题。像水文应用中什么水文历史数据库、水文实时数据库、水文水文预报数据库等 慢慢都采用SQL Server 2005作为后端数据库服务器,要在Excel中采集到相应的数据我们普通人员当然可以用Excel的导入数据进行操作,
阅读全文 >

VBA中Ping主机是否连接的2种方法

检测某主机是否连接上时,经常使用Ping命令,但并不是一般人都会很清楚调用cmd来执行这一命令的,这里水文工具集介绍2种采用VBA来实现Ping主机是否连接的方法,第一种是通过创建Wscript.Shell对象来完成,第二种是采用WMI(Windows Management Instrumentation)对象来完成,下面是具体源代码。
阅读全文 >

Excel中跟踪记录工作簿打开及关闭操作

日常工作中,有时出于安全与权限的要求,我们需要跟踪记录Excel文件被谁何时打开及关闭,要实现这一功能我们需要在ThisWorkbook模块中添加事件代码,同时添加一个隐藏的工作表(命名为shtAudit,属性为xlVeryHidden),添加到ThisWorkbook模块中的事件代码如下:
阅读全文 >