vba能不能让数组或者字典写入数据之后还能重复使用

Learner2022

比如说我让vba在表1a1读取内容然后写入数组，然后写入到表2a1，然后下次不需要再读取数据直接写入，我有这个问题是因为我需要读取的数据太多了每次都要花费很长时间，所以想看看可不可以这样做，谢谢各位大神

大灰狼1976

设置全局变量就可以了，不需要改动的时候不要给它再赋值。

feilanga

因为没有具体案例。所以猜测来想方案，方案1，结果数组brr写入到临时表中，下次直接读取临时表，省却了前面的计算过程。方案2，结果数组brr写入单元格后，没有释放数组的话，数组中数据依旧存在的。可以反复写入读取，在模块顶部写Public brr 声明全局变量，其他过程也可以读取brr。

feilanga

A过程生成结果数组brr 再次执行A过程的时候，可以判断brr是否为空，如果不为空可以不执行A过程。这样只需要执行1次A过程。

feilanga

字典是一样的道理。模块顶部声明全局字典Public dic全局 As Dictionary   
Public dic全局 As Object  '声明全局变量,后期绑定
Function 全局字典初始化()
    If Not dic全局 Is Nothing Then Exit Function '如果全局字典不为空就退出
    Set dic全局 = CreateObject("scripting.dictionary")
    Dim arr, i, key
    arr = Sheet1.Range("a1:g" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row).Value
    '源数据装入字典
    For i = 2 To UBound(arr) '从第二行开始循环
        key = arr(i, 1) & "," & arr(i, 2) & "," & arr(i, 3) '关键字所在的列
        dic全局(key) = dic全局(key) & "," & i  '多次记录字典中关键字key对应的行号,用逗号隔开
    Next
End Function

Learner2022

feilanga 发表于 2024-1-22 15:16
A过程生成结果数组brr 再次执行A过程的时候，可以判断brr是否为空，如果不为空可以不执行A过程。这样只需要 ...

老哥这个原理是啥，我在论坛还有官网都只是在说声明全局变量的作用是在任何模块和过程中都可以调用这个变量，没说它可以存储数组上次运行写入的数据

feilanga

Learner2022 发表于 2024-1-22 20:24
老哥这个原理是啥，我在论坛还有官网都只是在说声明全局变量的作用是在任何模块和过程中都可以调用这个变 ...

那么为什么要调用全局变量呢？自然是里面有你需要的数据

lizhipei78

在没有关闭工作簿的时候，全局变量可以一直使用
如果是关闭工作簿的情况，啥也没有用，除了赋值到工作表中保存下来，下次调用，要不没有办法解决

micch

读取数据花时间很多吗？  ar=range("a1:z999").value ，这不是一下就读完了？

Learner2022

micch 发表于 2024-1-22 23:56
读取数据花时间很多吗？  ar=range("a1:z999").value ，这不是一下就读完了？

我有五列1472行的数字，写入一个五维的数组，我用了论坛里如下的这个不打开工作簿获取数据的方法，所以读取很慢

1. Public Function GetValue(path, file, sheet, ref)
   
2. '   Retrieves a value from a closed workbook
   
3.     Dim arg As String
   
4. 
   
5. '   Make sure the file exists
   
6.     If Right(path, 1) <> "" Then path = path & ""
   
7.     If Dir(path & file) = "" Then
   
8.         GetValue = "File Not Found"
   
9.         Exit Function
   
10.     End If
    
11. 
    
12. '   Create the argument
    
13.     arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
    
14.       Range(ref).Address(, , xlR1C1)
    
15. 
    
16. '   Execute an XLM macro
    
17.     GetValue = ExecuteExcel4Macro(arg)
    
18. End Function
    

复制代码