随笔分类 -  VBA

摘要:## VBA对象传参 1. 首先主函数中必须定义参数的类型 2. 函数调用语法为 `函数名 参数1 参数2` 3. 被调用函数中定义传参是否引用(byref)还是重新建立一份数据(byval) 代码示例 ``` Sub auto_count() Dim wb_obj As Workbook Dim 阅读全文
posted @ 2023-01-18 17:28 零哭谷 阅读(161) 评论(0) 推荐(0)
摘要:VBA自带的语法可以处理Outlook邮箱,但是缺点是outlook还需要配置, 但是调用系统自带的CDO接口可以用SMTP模式发送各大第三方的邮箱,只需要开启POP3/SMTP模式即可,兼容性更好. Sub CDOSENDEMAIL() 'On Error Resume Next '出错后继续执行 阅读全文
posted @ 2021-10-07 18:16 零哭谷 阅读(2346) 评论(0) 推荐(0)
摘要:用递归的话思路很简单, 函数第一部分写遍历形参路径下的文件名 第二部分利用递归传入子文件夹內的路径 Function get_folder_file(pth) 'Dim fs As New FileSystemObject Set fso = CreateObject("Scripting.File 阅读全文
posted @ 2020-05-20 22:27 零哭谷 阅读(3619) 评论(0) 推荐(0)
摘要:可以使用注册表来存储应用程序的初始和配置的设置。VBA允许读写下列注册表路径中的注册表设置: \HKEY_CURRENT_USER\Software\VB and VBA Program Settings\{子键} 要在这个注册表路径中读取注册表设置,使用GetSetting函数。要写入注册表设置到 阅读全文
posted @ 2020-05-19 14:46 零哭谷 阅读(1405) 评论(0) 推荐(0)
摘要:在日常VBA中,自带的sort函数可以定义三个排序字段(key值) 举例代码如下: Sub test() With Worksheets("SUMMARY OF DEPOT INVENTORY").Range("c10:o245") .Sort key2:=Worksheets("SUMMARY O 阅读全文
posted @ 2020-05-07 22:01 零哭谷 阅读(6463) 评论(0) 推荐(0)
摘要:转载自:https://www.cnblogs.com/dxy1982/archive/2011/09/09/2159246.html 数据结构有云:程序=数据+操作。从中可以看出,数据才是程序的核心对象,每个程序所有的操作和意图都是围绕数据展开的。每个程序的结构基本都分为三个部分:输入,处理,输出 阅读全文
posted @ 2020-03-12 10:53 零哭谷 阅读(2473) 评论(0) 推荐(0)
摘要:1)在OutLook中创建应用对象为:dim otlApplication as OutLook.application set otlApplication=CreateObject("Outlook.appliction")2)在OutLook中创建命名空间: dim nameSpace1 as 阅读全文
posted @ 2020-01-17 17:14 零哭谷 阅读(1020) 评论(0) 推荐(0)
摘要:字典: 后期绑定: Set dic = CreateObject("scripting.dictionary") 前期绑定: Microsoft Scripting Runtime Outlook: 后期绑定: Set objol = CreateObject("Outlook.Applicatio 阅读全文
posted @ 2020-01-17 16:49 零哭谷 阅读(3786) 评论(0) 推荐(0)
摘要:from https://blog.csdn.net/mengjizhiyou/article/details/81627878 (1) Option Explicit '强制对模块内所有变量进行声明 (2) Option Base 1 '指定数组的第一个下标为1(3) On Error Resum 阅读全文
posted @ 2020-01-17 16:37 零哭谷 阅读(8189) 评论(0) 推荐(0)
摘要:代码1: 程序终止及退出方法 1 Option Explicit 2 3 '一、END语句 4 5 '作用:强制退出所有正在运行的程序。 6 7 '二、Exit语句 8 9 '退出指定的语句 10 11 '1、Exit Sub 12 Sub e1() 13 Dim x As Integer 14 F 阅读全文
posted @ 2019-10-17 10:23 零哭谷 阅读(8323) 评论(0) 推荐(0)
摘要:union中必须是对象.所以这种写法必须先让一个变量定义为具体的对象 Set ran = Rows(cc(1)) For i = 2 To ySet ran = Application.Union(ran, Rows(cc(i)))Next iran.Select 阅读全文
posted @ 2019-07-10 16:09 零哭谷 阅读(2893) 评论(0) 推荐(0)
摘要:GetObject 默认会隐藏,如需调试加入 Windows(1).Visible = True 即可显示 阅读全文
posted @ 2019-07-01 17:46 零哭谷 阅读(841) 评论(0) 推荐(0)