随笔分类 - VBA
摘要:示例Excel文件下载链接地址如下:http://files.cnblogs.com/metree/%E7%BB%8F%E7%BA%AC%E5%BA%A6%E8%AE%A1%E7%AE%97%E6%96%B9%E4%BD%8D%E8%A7%92v2.1.rar由两点经纬度计算方位角是无线网络优化中经...
阅读全文
摘要:一、以下代码简单实现了利用VBA通过Outlook发送邮件的功能:具体代码和详细注释如下:Sub Example() '简单调用示例,调用中各参数分别为:"收件人","抄送人","密送人","主题","正文","附件"。 SendEmail "zhangjianshu_cqu@126.com", "", "", "jmail_free.rar", "hi,how are you
阅读全文
摘要:通过本人对一下两种VBA文本处理方法效率的比较发现:使用OpenText方式读取文本文件的效率略高于FileSystemObject方式读取文本文件。实验环境:1)Excel2013 64bit。2)Win7 64bit / SSD硬盘 / i7-4900MQ cpu @ 2.80GHz / 16G...
阅读全文
摘要:注:23G共站址提取工具下载链接为: http://files.cnblogs.com/files/metree/%E5%9C%B0%E7%90%86%E5%8C%96%E5%88%86%E6%9E%90%E5%B7%A5%E5%85%B7V1.2%28%E6%AD%A3%E5%BC%8F%E7%8
阅读全文
摘要:一、由经纬度计算距离VBA代码:Sub Example02() Dim Distance As Double Dim lat1 As Double Dim lon1 As Double Dim lat2 As Double Dim lon2 As Double '位置1:尧都区华洲路面粉厂 lat1 = 36.07812 lon1 = 111.54295 '位置2:尧都区秦署路党校 lat2 = 36.07436 lon2 = 111.494613 Distance = CalcDistance(l...
阅读全文
摘要:一、以下代码是通过Auto_Open事件,自动向ThisWorkbook里添加VBA代码:Private Sub Auto_Open() Call AddCodeToThisWorkbook MsgBox ("This is Auto_Open Sub !")End SubPrivate Sub AddCodeToThisWorkbook() With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .InsertLines 1, "Private Sub Workb
阅读全文

浙公网安备 33010602011771号