我的天

星期一上班的时候跟往常一样，我打开了其中一个我常用的VBA脚本，结果发现当我按下按钮的时候，马上闪退。接下来会自动打开一个Excel。开始那几次我直接把那个关掉了，后来我选择新建一个空白文档，然后会看到左边显示可以恢复我之前闪退的那个Excel。到底为什么那个VBA脚本会闪退呢？上周四离开之前我没有做任何奇怪的设定，基本上查完数据就关掉了，最后的保存时间是下午5点多。放置VBA查询脚本的文件夹是本地文件夹，没有设定同步的。无论是我关闭的时候，还是说我关闭之后文件都没有被修改过。为什么之前一直没有问题，这一次却闪退了呢？重新载入，打开失败的Excel文件之前，我从同步的文件夹里把同款的VBA脚本文件复制了过去，结果发现那个VBA脚本就没有闪退这种问题。就VBA的核心编程来说没有任何区别，为什么一个会闪退，另外一个却不会？闪退了之后重新保存那个文件不闪退。

VBA脚本闪退这个问题，当我第一次看到的时候我是挺慌的，我赶紧把其它VBA也打开试了一下，发现其它没有问题。为什么就只是这个文件有问题呢？一天下来，我也再也没有发现其它的问题。周一的晚上我要用另外一个VBA文件转化数据，结果却发现不成功，被卡在了某个步骤，那个步骤是把当前工作簿的某个工作表复制到新的工作簿。我一直都是采用那种操作方式，为什么之前就没有问题呢？接着我打开另外一个同样需要复制工作表到新的工作簿的VBA文件，结果发现那个更糟糕，显示的是activeX错误。转化数据的那个VBA脚本直说卡在了另存为那个步骤，我还可以手动把已经生成的数据复制到我想要的地方，所以工作是可以继续下去的，但另外一个activeX出现问题的工作簿是属于那种另存为也不行直接保存也保存不了的状态，无论如何都说我数据错误。这就让人觉得很无语了，因为上午下午我都打开过那个文件查询过数据，为什么一直都没有问题呢？

当windows出现问题，绝大多数情况下重启一下就好了。无计可视之下，我重启了电脑，转换数据的那个VBA直接就好了，没有问题了。和另外一个activeX出现故障的那个，好像一直都是那样，但是当我把同步文件夹里面的同款复制过去以后也好了。是Office某个安装文件损坏导致的这种问题吗？为什么同样的文件复制到某个文件夹里就好了呢？VBA脚本是我自己写的，其中关联了什么我自己清楚。VBA脚本放在什么地方跟使用没有任何关系。所以到底是什么原因到导致了VBA的这种神经质呢？

星期二早上，什么都没干之前，我赶紧看了一下windows的更新，结果发现对上一次更新是在11月，显然跟我出状况的那个时间不吻合，但Microsoft365到底是什么时候自己做的孽？这个我查不出来了。反正周二的早上我首先对win10进行了更新，然后也对Microsoft365也进行了更新。如果依然出现严重的VBA问题，我觉得我得对Microsoft365进行修复。如果问题依旧，估计就只能重装Microsoft365。

一开始我以为这只是VBA的问题，结果发现，我的某个word里面的交叉引用也出现了错误。我非常肯定之前是没有这种错误的，因为那个文档我复核了很多遍。如果有那种错误，我肯定会复合得出来，之所以我完全不知道那个错误的存在是因为我复核的时候，根本没有那种错误。交叉引用的错误跟VBA的随机错误到底是不是同一个问题引发的呢？那个又到底是什么类型的问题呢？我真的希望有人说那是因为win10的某个更新导致的，卸载那个更新就可以解决问题。

现在我依然没找到原因，所以就只能祈求不要遇到这种问题，又或者遇到这种问题的时候见招拆招。

双11之前某个亲戚就说要我跟他一起去买新的华为手机。那到底他要买什么时候的华为手机呢？当时的mate6刚出，我不知道他心里的价位是多少，反正看完小米的再看华为，我就觉得华为手机的定价让我觉得很肉痛。再看一看手机的参数，我更加不明白为什么那个手机要卖到那个价格。后来当我看某些评论的时候，有些人说。之所以能忍受华为手机，是因为某些人根本就没用过其他的手机，如果用过其他安卓手机，估计就回不去了。

某个亲戚肯定是不缺钱的，但是不缺钱的人也会对花钱有所顾忌。华为的mate6系列，哪怕是最便宜的那个，我也觉得贵得实在太离谱了。他说要换手机的时候mate6刚出，还处在一个预售的状态，他去零售店问过。那里告诉他，如果要买mate6，得等三个月。为什么要先给钱，然后再等三个月呢？虽然可能只需要付一定金，不需要付全款。不是非常忠实的粉丝，绝对做不出这种事情，一个路人甲就更加不会干这种事情。当时一开始说小米手机是PPT手机，但是小米不过是一两周之后才发货而已，货是有的，但是以前的物流没有现在这么好，还有就是以前的仓库没有现在这么多。另外一些原因就是以前的手机都是得蹲点抢，手速的快慢就意味着发货的快慢。后来的小米手机不需要蹲点，不需要抢了。可能有些时候先付个定金再付尾款，在首发的时候买会便宜一些，但只要发货，正常情况下第二天就会到，哪怕是最近的仓库没有货，三天之内也会送到。所以现在卖手机的再也不能说小米是PPT手机了，但华为就是这个样子。

小米手机是如何换机的，这个我非常清楚。因为自从有这个功能以后我就一直在用，而且每一次都会比上一次更好。但华为手机是如何换机的？这个我就不清楚，理论上这应该是一个系统的功能，根据说那个东西做成了一个APP，就像一个第三方应用一样，反正在小米的应用市场是搜索不到手机克隆这个APP。因为我不晓得华为的数据迁移会遇到什么问题，所以最保险的方式是找一家华为的零售店，让店员完成这个操作。

去到珠影的门店，的确店员很快就才开始操作，一吨操作让人眼花缭乱，点击以后然后手机开始互传文件，之所以在互传之前有一个那个复杂的操作，是因为那部新的P60手机预装了很多第三方软件，夸张到满屏都是，而且有些还放进了文件夹，于是店员在互传之前就先把那些删掉，因为如果不删除的话，估计桌面的排布就不是原来那台手机的模样了。

数据开始传输没发现有什么问题，到30多GB的时候，据说已经传送了99%。我觉得亲戚的那台旧手机是128GB的，估计里面的东西超过100GB，因为过一段时间就会提醒他内存不足。为什么30多GB就已经传说传送了99%呢？两个手机都显示理论上还剩余一分钟的传输时间，但是那个一分钟却持续了一个小时以上。最后我忍无可忍查看两台手机的进程，旧的那台手机显示2000多条短信已经全部发送完毕，但是新的那台手机只接收的6条，其它显示正在传送中。就是因为那个步骤一直卡在那里，其它步骤无法进行，这是一个死循环。我第一次发现那个问题是在中午12:53，但是到下午13:04的时候依然这样，所以我们就问了一个又一个的店员，他们都说正在传输中，你只能等，但显然这种卡住，你等也没有用的，因为不知道是什么东西卡住了。如果那是一个很大的文件，还可以理解，但是那是一条短信，一条短信能有多大呢？最大的问题是一个手机说传输完毕了，另外一个手机说正在接收，信息不对称就很有问题。手机互传，理论上是不需要连接WiFi，跟店里的WiFi没有任何关系。店员在操作数据迁移的时候，也没有连接WiFi这个步骤。所以其中一个店员说可能是因为店里的WiFi性速度太慢，所以卡在那个地方，那样的回答肯定是不合理的。另外一个店员说，你只能在这里等，没有其他办法，这也是不合理的。这个数据迁移的设计就有问题，如果是这个步骤被卡住了，理论上超过一定时间，就应该暂停这个进程，开始另外的进程，但实际上却一直卡在那里，完全没有进度可言。

最后我的亲戚觉得忍无可忍，结束了互传。他的计划是回家再试一次，如果还是不行就另外找别的门店在再试。换了那么多台小米手机，我从来没有遇到过这种问题。手机的通讯录和短信理论上是最简单的，因为相对于大块头的APP资料以及图片视频等等来说，通讯录和短信肯定很小，有些短信可能不仅仅有文字，还有其他附件，但是也大不到哪里去。华为这种卡在短信传输上面的问题，实在让人觉得很无语，这种风格跟我们单位那批华为的WiFi如出一辙。突然间断掉，突然间丢包这种事情我实在太熟悉不过了。如果说单位的那些华为WiFi比较老，出现这种问题，可能我还得理解一下，但是这个P60的手机是2023年初才出的，怎么也会有这种问题？归根到底这到底是软件的问题还是硬件的问题？

反正我不用华为手机，这种事情我不用烦恼。

又是一个下班之后继续干，干到直接忘记写blog。如果不是这么着迷的话，理论上我会先烧水，把麦片泡着，然后打开语记开始口述blog，接着开吃，但如果我过于着迷，泡麦片的时候我会在那里写代码，吃麦片的时候也在那里写代码，吃完麦片以后往杯子里加水，等待水凉的时候继续写代码。可能那杯水我得花好几十分钟才喝完（一边喝一边写代码），也可能等我喝完的时候已经过去了一两个小时，又或者是我根本就不记得喝了。之所以要加一杯水，因为本来吃完麦片就得喝水，如果我不马上洗杯子，东西干在那里很不好洗，如果有水泡着就会容易些。所有习惯，只要遇上着迷于写代码这种事，全部都会变成渣渣，除了显示屏上的东西，身边的一切我都完全没办法放任何的注意力，除非是内急之类。写代码这种事对我来说通常是一发不可收拾的，完全停不下来，所以我没办法预测我得花多少时间，我知道我的目标是什么，但开始的时候通常我不知道具体该怎么做，就更加不好说得耗多久。之所以会这样，因为写代码不是我的强制工作，我不靠那个赚钱，没人要求我必须得那么干，纯粹出于个人喜欢。

光是写出来还不行，当我觉得效率很低的时候我会不断地在那里挣扎，到底有没有其它方法呢？还有没有其它的途径实现这种功能？

遇到问题，光在那里想，是不会有结果的，但只要干，埋头苦干，方法就会自己涌出来。大概是几天前，我不知道在哪里见过意思差不多的话，对我来说，写代码的时候会这样。如果我用的是python，因为我的目标很简单，所以绝大多数情况下都有现成的解决方案，只是那个方案是不是高效，能不能再提高一点而已。但如果我用的VBA+ADO+SQL，情况就很不一样的，因为VBA里的SQL被严重阉割，虽然理论上没什么东西是SQL解决不了，解决不了就输出到VBA的数组继续解决。我第一个接触的代码是CSS，然后是HTML。有段时间我迷恋于花俏的网页特效，有些联合CSS+HTML能实现，但有些不得不用javascript。当年我无数次想开始学习javascript，但一直都没开始。后来，我的大学课程里有C语言，我还考了二级C语言的等级证书。上机是满分通过的，但笔试70不到，所以我那张证书上只是合格而不是优秀。如果能重来，我会做到优秀的。但实际上，优秀不优秀又有什么意义呢，招聘的时候那不过是别人一扫而过的一张纸，甚至不会在别人脑子里留下任何记忆，但为了“优秀”那两个字我就得在上面付出很多，因为考证的考试范围大于大学课程的教学范围。

从我开始接触互联网，我的各种兴趣就没有停止过，写代码这事也一直贯穿其中，CSS、HTML、C语言、php、python、R语言、DAX、M语言、VBA、SQL，其实我也尝试过java，因为那是安卓的基础，或许还有一些我漏了没列出来。或许，码农是我天生的隐藏属性。

昨天说到当我想用VBA把一个工作簿里面的某些工作表复制到另外一个工作簿的时候，如果要复制的工作表有多个，复制过程中就会出现闪烁。如果需要复制的工作表很多，闪烁的时间会比较长。我觉得批量选择，最后一次性复制是一个解决办法。如果不是用VBA，而是手动实现这个复制功能，的确会用批量选择，然后再复制。现在按住Ctrl，然后用鼠标选择需要复制的工作表，最后进行复制。如果要在VBA里面实现这个批量选择，该怎么做呢？

一个工作簿里的工作表该如何判断哪些是需要的，哪些是不需要的，对我来说只需要判定工作表的名称就可以，所以我可以对需要的工作表以某种方式结合起来，比如形成一个以固定分隔符的字符串。VBA里要表达批量选择，然后复制，到底该用什么东西呢？这一次我没有搜索，而是直接录制了个宏。结果发现原来批量选择再复制，在宏里默认是通过数组的。需要把目标工作表的名称组合成一个一维数组，然后用最普通的复制方式把拷贝到新的工作簿。所以我要做的就是把目标工作表的名称赋值给一个一维数组。因为不知道到底要复制多少个工作表，所以这个数组应该是一个动态数组，我马上想到的方式就是以默认分隔符打断字符串的方式赋值给一维的动态数组。这个操作非常高效，而且动态数组的大小完全不需要在一开始就定义好，字符串里面有多少东西就可以生成多大的一维数组。

接下来，我要做的是经过一轮循环筛选出某个工作簿里我需要的工作表的名称，然后把这些名称以固定分隔符的方式连接起来。最后在打断之前我还要干掉一个分隔符，因为无论我把分隔符放在最前面还是最后面，整个字符串还是会多一个分格符。我不知道多一个分隔符在赋值给一维数组的时候会不会失败，作为完美主义者，我宁愿手动把那个分隔符去掉。那不过是一个字符串取值的简单操作而已。处理好字符串以后，就可以打断那个字符串赋值给一维数组，最后通过经典的复制方式，把工作簿里的目标工作表拷贝到另外一个工作簿。

我没有测试过这样处理耗时跟基础经典处理有多大差别，但就肉眼来说，差别挺大。因为如果进行这般批量选择一次性复制，基本上可以秒杀完成，但如果使用经典的方法、工作表又比较多，我感觉得闪烁一秒钟以上。秒杀就能完成我感觉那个耗时会在0.3秒以内。

批量选择再复制的确可以秒杀实现拷贝工作表，但是光标会停留在最后一个被复制的工作表里，我需要光标仍然停留在我的点击VBA控件的工作表。所以最后我又增加了一个激活目标工作表，把鼠标锁定在某个单元格的功能。这个功能不是非如此不可的，没有也不影响数据处理本身，但就方便程度而言，这是显而易见的。就如没有初始化和拷贝数据那两个模块，核心功能没问题，但是多了这些贴心的小步骤。整个核对的过程会变得更顺手。

如果使用的时候能更顺畅，我宁愿把代码搞得复杂一些。毕竟复杂的代码是一次性的。

PS：测试
复制19个工作表：批量法0.85秒，经典法7.25秒。
复制8个工作表：批量法0.59秒，经典法3.02秒。
复制4个工作表：批量法0.48秒，经典法1.59秒。

Sub 批量拷贝工作表-批量法()
    Application.ScreenUpdating = False '关闭屏幕刷新
    Dim book As Workbook
    Dim sht As Worksheet
    Dim my_name As String, stringArray() As String
 
    my_name = ""
 
    For Each book In Workbooks
        If book.Name <> "AAA.xlsm" Then
            For Each sht In book.Worksheets
                If Not sht.Name Like "*BBB*" Then
                    my_name = my_name & sht.Name & ","
                End If
            Next
            my_name = Mid(my_name, 1, Len(my_name) - 1)
            stringArray = Split(my_name, ",")
            book.Sheets(stringArray).Copy before:=ThisWorkbook.Worksheets("条件")
        End If
    Next
 
    With ThisWorkbook
        .Worksheets("条件").Activate
        .Worksheets("条件").Range("A27").Select
    End With
 
    MsgBox "完成数据抓取！"
    Application.ScreenUpdating = True '打开屏幕刷新
End Sub
 
************************************
 
Sub 批量拷贝工作表-经典法()
    Application.ScreenUpdating = False '关闭屏幕刷新
 
    Dim book As Workbook
    Dim sht As Worksheet
    For Each book In Workbooks
        If book.Name <> "AAA.xlsm" Then
            For Each sht In book.Worksheets
                If Not sht.Name Like "*BBB*" Then
                    sht.Copy before:=ThisWorkbook.Worksheets("条件")
                End If
            Next
        End If
    Next
 
    With ThisWorkbook
        .Worksheets("条件").Activate
        .Worksheets("条件").Range("A27").Select
    End With
 
    MsgBox "完成数据抓取！"
    Application.ScreenUpdating = True '打开屏幕刷新
End Sub

几年以后，我终于又在某一个我用来核对账本的VBA脚本上加了两个新的模块。之前这两个模块的内容我都是手动实现的。第一个模块是初始化，就是把已经核对过的明细数据删除掉。初始化这个步骤眨眼间就完成了，因为是在同一个工作簿里进行。另外一个模块做的是数据抓取，抓取我需要核对的那个工作簿里的明细工作表。我要核对的那个工作簿里的汇总，那个工作表默认不抓取，因为那是用来核对的。另外一个跟明细数据和汇总数据不是一伙的工作表也不能抓取，因为那个表的数据格式跟其它的不一样。过去这几年来我做的事情都是手动的在VBA脚本所在的工作簿里删除掉已核对的数据明细，然后再把我需要核对的那个工作簿里的明细粘贴到VBA脚本所在的工作簿。这个操作很机械很单一，完全可以用VBA去实现，但是我却一直没有这么干，为什么呢？大概是因为最初的时候，我写的那个VBA脚本核心部分实现的功能已经减少了我绝大部分的工作量，简单实现了非常麻烦才能实现的事情，所以我觉得自己已经上岸了，相对来说，这些复制粘贴删除的东西比较简单。简单归简单，很容易能实现，但是日积月累经常性习惯性每一次都要整那么十几二十遍也是很烦的。为了简化初始化的那个步骤，我每次核对完就以不保存的方式关闭VBA脚本所在的工作簿，然后重新打开。

我不知道对以前的我来说，写着两个模块有多难，对现在的我来说，对今年已经在VBA脚本里浸润了好几个月的我来说挺简单。实现方法很简单，但是出来的效果我感觉上应该还可以改进。初始化的那个脚本已经很完美，没啥需要再进一步了，但是那个拷贝数据的脚本，如果需要复制的工作表有很多，屏幕会出现长时间的闪烁。那种闪烁源于不同工作簿之间切换导致聚焦位置改变。之所以这样，因为我所使用的复制方式是VBA教程里最简单的那款。微软的默认教程就是那样，当然你也可以使用不一般的方式。闪烁是因为不同工作表之间切换以及活动工作表活动单元格之间的变换。这个问题之前我已经发现。我以前的VBA脚本里也有这种问题。做一个循环，把某个工作表名称符合要求的就复制到 VBA所在的工作簿，这个循环是显而易见的，但是一个一个工作表去判断，一个一个复制显然就会出现很多次闪烁。如果我先去判断，然后把符合要求的全部选定，最后一次性复制，这样会不会就可以从多次闪烁变成一次闪烁呢？多次闪烁你肯定能感觉到闪烁的存在，但如果只是一次，估计那种闪烁感就会感知不到了。有人在网上提出过如何避免闪烁这个问题，但好像大家都没有在批量选择然后一次性复制上面想。我也想参考他们的做法改进，但好像不太适合我的实际情况。

我觉得闪烁这个问题是可以攻克的。