Archive for '代码'

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模块中的事件代码如下:
阅读全文 >

在Excel中访问WebQQ网站实现聊天功能

要在Excel中实现聊天功能,经常采用的是Excel工作表共享的方式,其实还有另外一种方式。

WebQQ的界面十分简洁,而且常用功能与QQ相差不大,将WebQQ嵌入到Excel使用便可以实现聊天功能。
阅读全文 >

检测坐标点是否在多边形内部

水文GIS处理中,有时需要检测某个测站是否在某个流域或者区域内部,这就要用到“检测坐标点是否在多边形内部”,这个功能也经常会在Excel中检查某个坐标点是否在图表Chart某个区域中使用到,这里水文工具集给出一个经典而简洁的函数pt_in_polygon,以供参考。
阅读全文 >

Excel中计算不规则地区或流域面积

利用Excel计算地区或流域面积时,可根据边界情况选取结点,使结点连线与边界偏离较小,采用网格纸或直尺、三角板确定边界结点坐标(两步可同时进行),最后把计算面积(计算不规则多边形面积的方法如下面所述)乘以地图比例尺的平方即为地区或流域面积。如果图幅较大时可分为几部分,然后分别计算求和。
阅读全文 >

Excel中显示窗体时保持输入焦点在工作表上

当你在Excel中显示一个窗体时,不管是模式窗体还是非模式窗体,输入焦点都会在这个弹出的窗体的第一个控件上,但有时你并不希望这个窗体获取输入焦点,如这个弹出窗体只是显示一些相关信息时,你希望输入焦点保持在工作表上,这样你可以继续方便地录入数据。要完成这一需求,只需调用几个简单的API函数(FindWindowEx与SendMessage)即可,注意的是必须使用非模式窗体(UserForm.Show vbModeless)。
阅读全文 >