内存数据中的五虎上将

OKJSJSF

最近在练习VBA合并同一文件夹中的多个工作簿中（工作簿来源于系统下载）的第一个工作表中（有表头有表尾但有空行隔开数据区域）的数据，合并的同时要追加工作簿名称，要按指定列去重，发现速度很慢，提速的技术据我个人知识面只知道是通过内存变量实现，所以开本贴请家人们分享下经验，谈谈内存数据中的五大招：【名称、数组、集合、字典、无表记录集】，在完成工作表数据迁移中，如何组合速度才更快。

OKJSJSF

数据迁移的第一步，对话框指定文件夹。第二步是分析文件夹中的工作簿中的工作表中的数据表的标题行是否被更改，是否有筛选条件的同时工作表被保护，是否有合并单元格。

OKJSJSF

第三步是当数据源不正常时，把不正常的工作簿名称与不正常情况赋给内存数据，对话框提醒用户，由用户决定是将错就错执行下一步，还时退出程序纠正数据表。如选择退出，则新建工作簿，在活动工作表中第一列写入不正常的工作簿名称超链接，第二、三、四列写入三种不正常情况。
第四步，当数据源正常时，或用户纠正数据表后，或将错就错，程序操作第一个工作簿的数据。数据赋值给内存……

OKJSJSF

接下来是开始驾驶拖拉机在高速路上狂奔了。

x-xx-xx

x-xx-xx

纸上谈兵终觉浅绝知此事要躬行

OKJSJSF

x-xx-xx 发表于 2022-4-5 12:57
纸上谈兵终觉浅绝知此事要躬行

yes 一路狂奔中 runn  ing

OKJSJSF

x-xx-xx 发表于 2022-4-5 12:53

前期工作代码，提示哪些工作簿需密码才能打开。
Sub ggg()
    Dim p As String, oldn As String, r As Integer, i As Byte, wbn As String, wb As Workbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            p = .SelectedItems(1) & IIf(Right(.SelectedItems(1), 1) = "\", "", "\")
        Else
            Exit Sub
        End If
    End With
    Worksheets.Add
    Cells(1) = "下列文件需凭密码打开："
    oldn = ActiveWorkbook.Name
    wbn = Dir(p & "*.xlsx")
    Do
        If wbn = "" Then Exit Sub
        r = ActiveSheet.UsedRange.Rows.Count + 1
        On Error Resume Next
        Set wb = Workbooks.Open(Filename:=p & wbn, Password:="")
        If wb.HasPassword Then
            Workbooks(oldn).Worksheets(1).Hyperlinks.Add Cells(r, 1), p & wbn, , wbn, wbn
            Cells(r + 1, 1).Select
        End If
        wb.Close False
        wbn = Dir
    Loop
    Set wb = Nothing
End Sub
上述代码无法在执行完毕后用对话框msgbox提示一下，选择单元格的语句放在最后也无法执行，不知这是一种什么情况？

OKJSJSF

文件打开如需密码，在循环取数时会逐个提示录入密码，所以应提前一步取消密码，如坐在电脑边等，也可以一个个操作，但如遇忘了密码，那就无法正常完成任务。

OKJSJSF

今天在网上搜索工作表保护参数allowfiltering:=true时，居然第一次知道，原来，工作表保护只不过一层薄薄的肥皂泡，象爱情一样脆弱，一吹即破。工作表保护只是自己玩玩的东西，主要用于防止误操作破环格式内容。我自己设置保护时，就这样，基本只用没密的保护。解密只需二句代码，用上三个参数即可。如下插入一个宏：
sub unpr()
activesheet.protect drawingobjects:=false,contents:=true,allowfiltering:=true
activesheet.unprotect
end sub
就这么容易，运行一下宏即解除工作表保护。如此，我的“小程序”加载宏必须改进了。
这我就纳闷，莫非工作簿文件的打开保护也有简单的破解语句，或者VBE工程也可解密，只是我一个人不知道而已？我太单纯了，一直没注意过这个问题。