碰碰虎-CSDN博客

原创【VB.Net】利用LumiSoft获取Email邮件

简介本次文章介绍使用VB.Net，利用LumiSoft获取Email邮件。计划使用VB.Net写一个能够自动获取Email邮箱所有邮件，逐个邮件读取标题、收件时间、发件人、邮件正文，然后根据设定好的条件进行相应操作。本以为会比较容易，轻敌乃是兵家大忌，碰到许多意想不到的技术难题：现在的Email光是协议就一大堆：POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务，貌似最初的POP3协议因为安全性基本淘汰，暂时选定使用IMAP协议；.Net本身无相应的库支持IMAP协议

2022-05-16 23:12:15 1253 1

原创【Excel VBA】超级实用的UsedRange

Excel vba 使用两种方法介绍如果得到数据区最后一行行号、最后一列列号，这两种方法分别是End(xlUp) 和UsedRange。另外举例说明了使用UsedRange在循环中使用的便利。

2022-05-09 22:32:13 7907 4

原创【.net】利用FFmpeg获取视频截图

目标及工具这里使用vb.net结合FFmpeg截取视频中的图片。本文使用的编程工具是Visual Studio Community 2022，这个版本是在官方下载的安装的纯免费使用，而且基本功能都可以使用，个人使用完全够用。FFmpeg这个也可以自GitHub下载，是开源的。

2022-05-04 04:10:23 1323

原创【.net】关于命名的规则

使用.net已经很久了，不断地的编写着各种各样的小工具，但是每次回看自己的写的代码或者想要复用以前的代码时总是面临着一些麻烦，那就是命名规则的不统一，导致阅读时理解代码需要花费很长时间，或者是复用代码时总是要再次修改各种类、模块、变量的命名，不仅麻烦而且还容易出现错误。于是想要写下这篇文章用来规范命名的规则，虽然这些规则不是教科书中的那种方式，但是毕竟是在实践中摸索出来的，总归是能够便于阅读和复用的。...

2022-04-16 12:14:37 364

原创【.net】无法启动服务。System.Messaging.MessageQueueException: 对消息队列系统的访问被拒绝。

无法启动服务。System.Messaging.MessageQueueException: 对消息队列系统的访问被拒绝。使用Windows的消息队列时，窗体界面的应用可以对消息队列进行全部权限的操作，但是编写的Windows服务对消息队列进行操作时有可能会出现此错误提示，在这里提供一种解决方法：首先明确Windows服务程序的运行的的用户，在任务管理器中可以找到，例如我的服务登陆身份是“本地系统账户”，在任务管理器找到此进程，可以看到用户名为“SYSTEM"。在”计算机管理“->”服务和应用

2022-04-09 12:27:27 1565

原创【Excel VBA】使用代码生成图表——Chart和Shape的使用方法

纲举目张说明运行效果代码code使用说明说明因为在日常应用中很少用到图表，最近帮同事写一个自动生成报告的功能，需要自动生成很多图表以便添加到他的报告中，看来需要写一写使用代码生成图表的文章，一方面自己留存，一方面能帮助到需要它的人。运行效果代码codePrivate Sub CommandButton1_Click() '定义数据区 Dim strRange As String strRange = "$B$2:$C$9" '查找所有本Sheet中的所有图表，然后删除

2021-06-17 23:50:16 8436

原创【Excel VBA】单元格变更事件，单元格内容变更自动触发：Worksheet_Change

纲举目张说明实现功能代码code使用说明说明我们一般触发或者执行一段宏命令都是通过自定义按钮或者自定义快速访问栏调用相关宏命令，前一段时间在CSDN中回答网友提问的问题时，我无意中测试成功了一些Excel的内置事件，其中符合网友要求的就是单元格变更事件Worksheet_Change。添加该事件的方法：Alt+F11调出Microsoft Visual Basic for Applications窗口，双击该文件下的相应的Sheet，例如Sheet1，在右侧出现的Sheet1 （代码）窗口的左上部选择

2021-06-15 23:15:58 28803

原创【Excel VBA】逐个读取Excel文件并将内容复制到汇总表中——每月自动汇总考勤数据实例

纲举目张说明关键技术点：Workbooks.Open代码code运行效果图使用说明说明上一讲【Excel VBA】利用数组、集合、循环等检查各单位报送情况——每月自动汇总考勤数据实例已经完成了检查各单位报送情况的功能，对已报送单位进行打标，未打标的表示是未报送，催促其报送考勤数据。经过不懈的催促终于将考勤数据报送齐全了，接下来就是逐个统计表进行打开，复制其考勤数据，粘贴到汇总表中。关键技术点：Workbooks.Open这个函数有许多的参数，但是大多数的应用都不会用到，如果有特殊情况用到的请查看Wo

2021-06-14 23:37:26 2923

原创【Excel VBA】利用数组、集合、循环等检查各单位报送情况——每月自动汇总考勤数据实例

纲举目张说明关键技术点：Collection类型代码code运行效果图使用说明说明之前的一篇文章，讲了如何使用Dir函数遍历获取文件夹下所有文件，当然演示使用的实例比较简单，方便演示结果。实际工作中各部门报送的考勤除了明细统计表还有通报文件。具体文件信息如下图：本文章就演示如何只挑选出统计表，并且挑选出不符合命名规则的文件名、不符合统计规则的文件名、通过对比将已经报送的部门进行打标。关键技术点：Collection类型Collection 对象是一组可称为“单元”的有序项。集合的创建方式与其

2021-06-13 00:04:38 821

原创【Excel VBA】遍历获取文件夹下所有文件——每月自动汇总考勤数据实例

纲举目张说明关键技术点：Dir函数代码code运行效果图使用说明说明本次所讲的遍历获取某文件夹下所有文件，其实是我的《每月自动汇总考勤数据》案例中的其中一个知识点，近期我将会集中将本案例中所有应用到的知识点逐一的写出来，最后汇总成一个真正可用的成品。本案例中首要的突破的技术难关就是如何获取各部门报送的考勤表文件，然后对比有哪些部门没有报送，如果全都报送了，则逐个读取文件内容填入汇总表中。关键技术点：Dir函数返回一个 String，它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹

2021-06-09 23:47:05 3132

原创【Excel VBA】Application类下的一些常用功能总结

纲举目张说明代码code说明在Excel VBA的Application类中有很多常用的功能，这里总结一下我用到过的，以后有好用的我也会逐渐更新。代码code取消/开启屏幕刷新说明：取消屏幕刷新后代码运行时，我们看不到实时的效果，但是能够加速代码运行的速度，因为CPU不用再拿出资源来计算呈现效果。一般在代码最开始的地方设置取消屏幕刷新，在代码即将结束时设置屏幕刷新。Application.ScreenUpdating = False '取消屏幕刷新Application.ScreenUpd

2021-06-04 21:55:37 1227

原创【Excel VBA】用datediff函数计算两个日期的间隔，实例代码亲测好用

纲举目张说明代码code使用说明说明前一段时间在CSDN上回答了一位朋友的提问，其中就用到了datediff函数。个人认为这个自带的函数功能很强大，但是了解的人很少，我在最开始写一写功能的时候偶尔就会遇到求日期间隔或时间间隔的情形，不知道此函数就头疼的很，因为日期和时间的间隔不像是数字的间隔，直接使用“-”减号就计算出来了。日期中涉及不同月份所含天数有30天的、有31天的，甚至2月份有28天或29天的情形，跨年的时候就是12进制；时间则是60进制、24进制，真的是想想就头疼，写起来更是痛苦。直到某一

2021-05-31 23:46:08 6689 2

原创【Excel VBA】设置宏语句的快速访问按钮即如何设置快速访问工具栏

纲举目张说明代码code使用说明说明在上一讲轻松搞定数字、文本单元格格式错乱问题中，我们已经通过VBA代码快速的重新调整数字、文本格式，在文章结尾也提到了，可以通过在“快速访问工具栏”中添加按钮，一键完成转换为数字或转换为文本。首先，将代码重新修改一下：代码codeSub 转换为文本() uSplit Selection, 2End SubSub 转换为数字() uSplit Selection, 1End SubFunction uSplit(obj As Range, Dat

2021-05-29 23:28:59 961

原创【Excel VBA】轻松搞定数字、文本单元格格式错乱问题

纲举目张说明代码code使用说明说明在使用Excel的时候最遇到的烦恼就是本来应该是数字的却被认为的文本，导致不能进行计算，本来应该是文本的内容结果被认为是数字，结果显示成了科学计数法，甚至内容较长的字符被替换成了零，失去了意义。具体情形见下图：其实这些烦恼在最开始录入数据前，设置对了单元格格式，就可以避免：对于应该是数字的列，除了“文本”、“日期”和“时间”之外，都可以根据实际需要进行设置；对于像身份证号、手机号和账号等一定要在录入数据前设置成“文本”格式。如果数据不是你录入的，你进行操作时就已

2021-05-29 16:25:33 3292

原创【Excel VBA】Len的有趣之处——获取的长度怎么不一致？

纲举目张说明代码code使用说明说明在Excel的单元格中输入函数=LEN(“abc”)结果为3；输入函数=LEN(“啊bc”)结果也是3，看似没有问题但是实际上LEN的两个参数实际占用的长度可是不一样的，见下图：“啊bc”就是比“abc”长1个字符。原因是LEN函数计算的是字符的个数，虽然1个汉字占据了两个英文字母的长度，但是也是1个字符。如果在实际的应用中我们要考虑的是字符串占据的长度该如何呢？那么就有请LENB函数：输入函数=LENB(“abc”)结果为3；输入函数=LENB(“啊bc”)结

2021-05-26 23:46:15 2760

原创【Excel VBA】超级Range——Union的用法，提高效率的必备函数

纲举目张说明代码code使用说明说明作为一名优秀人才，总是能碰到最复杂的情况，就比如下面的图片中的数据情况：图中姓名等信息均为虚构，不存在泄露个人信息问题。看着如此数据情形，要将无用的页头、空行等删除，你会怎么操作呢？手动删除？这里我只胡编了45行数据，可是如果实际中有一千行、一万行甚至近十万行的数据呢？使用Excel VBA操作当然是又准确又高效了。第一种方式是：1、首先获取最后一行数据所在行数；2、从最后一行开始到第一行逐行检查是否是有效数据行，如果不是则整行删除；3、运行的结果就仅剩有效数据

2021-05-25 23:25:12 6895

原创【Excel VBA】检查日期输入校验函数

纲举目张说明代码code使用说明另外说明说明在之前的博文中讲述了身份证号校验功能函数和银行卡信用卡卡号校验功能函数，主要用于检查身份证号和银行卡信用卡卡号录入是否正确，这里再为大家介绍一下用于检查日期录入是否正确的函数。代码codeSub 检查日期录入() Dim strDate As String strDate = "20210431" Dim bolCheck As Boolean bolCheck = CheckDate(strDate)End SubFuncti

2021-05-24 23:30:36 2681 3

原创【Excel VBA】神操作之命名单元格或区域（三）——遍历所有已命名区域名称及删除命名方法

纲举目张说明代码code使用说明本系列博文说明本次系列前两期已经讲了为单元格区域命名和引用命名单元格或区域，本期继续深入了解命名单元格或区域功能。如果一篇文档中已经存在着命名的单元格或区域，那么怎么遍历这些已经存在的命名呢。代码codeDim nm As NameFor Each nm In ActiveWorkbook.Names dim strRangeName As String strRangeName=nm.name '获取已命名的名称 nm.delete '删除

2021-05-23 23:22:46 1480

原创【Excel VBA】神操作之命名单元格或区域（二）——引用命名单元格或区域

纲举目张说明代码code使用说明本系列博文说明在上一篇文章《神操作之命名单元格或区域（一）——为单元格或区域命名》中，已经详细介绍了多种为单元格命名的语句。在成功为单元格或区域命名后，又该如何操作呢？首先就能够通过命名的名字取得相对应的单元和或区域。代码codeSub 引用命名() Dim r As Range Set r = Range("R_003") Application.Goto Reference:="R_003" '如果要选中某一命名区域则必须使用这种方式End S

2021-05-22 10:22:18 2471

原创【Excel VBA】神操作之命名单元格或区域（一）——为单元格或区域命名

纲举目张说明代码code说明单看这个标题名称似乎不是很吸睛，如果没有接触过这个功能，可能不了解其强大的能力，强烈建议继续读下去，关键时刻很有用，能够节省很多代码。在Excel中有一个很隐蔽的功能，就是为某一个或某一片区域进行命名操作，手动操作如下：例如我们选中A1:C5这个区域，然后在编辑框的最左侧的“名称框”中直接输入“R_001”回车，那么就完成了对A1:C5这个区域的命名操作，如果我们后续在操作时打算快速的选择这片区域，则可以直接在“名称框”中选择“R_001”，则完成了对这片区域的选择。图如

2021-05-21 23:37:46 4281 1

原创【Excel VBA】枚举一下设置单元格格式的所有方法，以备随时调用

纲举目张说明代码code使用方法说明单元格格式设置的不恰当会引发灾难的，估计在操作身份证、银行卡号等信息时踩坑的小伙伴深有同感。使用代码设置单元格格式时，虽然我们可以使用录制宏的方法得知如何设置，但是录制得到的代码比较啰嗦，对象不是很清晰，在此我总结了一下常用的设置单元格格式的代码，方便小伙伴们随时取用。代码codeSub 设置单元格格式() '首先为大家展示使用录制宏的方式得到的设置单元格格式的代码 Range("B2").Select Selection.NumberFormatLo

2021-05-19 23:46:50 3546 1

原创【Excel VBA】新建工作表-踩坑多年经验教训

纲举目张说明代码code使用方法说明在新建工作表的这条路上踩过太多的坑了，虽然仅有个别的项目才需要用到新建工作表，但是很久不用，难免习惯性的baidu，然后就是一大堆乱七八糟的搜索结果：1、代码独立，获取不到新建工作表对象，无法在后续调用中使用；2、天下文章一大抄，抄到的全是错的，根本不能用…在无数次的尝试之后，我决定总结一下比较简单但是却很实用的新建工作表的函数，能够获取到新建的工作表的对象，以便于后续代码的操作，这个我造的“轮子”较为简单和粗略，但是注释很丰满！可以依据个人需要进行调整。代码co

2021-05-18 23:39:36 978

原创【Excel VBA】银行卡信用卡卡号校验功能函数

纲举目张说明代码code使用方法说明之前我讲了身份证号校验功能函数，本次就介绍一下，银行卡和信用卡卡号的校验功能函数。参考百度百科中的介绍：Luhn 算法或是Luhn 公式，也被称作“模10算法”。它是一种简单的校验公式，一般会被用于身份证号码，IMEI号码，美国供应商识别号码，或是加拿大的社会保险号码的验证。该算法是由IBM的科学家Hans Peter Luhn所创造，于1954年1月6日提出该专利的申请，并于1960年8月23日被授予，在美国的专利号为2950048。该算法一直都被大家所公用，

2021-05-17 23:34:08 1377

碰碰虎的博客