多维数组保存到文件 读 和 写

ldy

数组通常只在代码、内存中体现，要把一个数组进行传递（到另一个电脑）的话，一维二维的还好处理，
大于二维的数组 或 数组套数组的 数组 处理起来就困难多了。其实open 方法可以轻松解决这个问题。
用这个方法还可以很容易的得到一个数组占用内存的大小（既是硬盘中文件的大小）
注意 数组中不能包含对象，通常来说 数组中只能是 字符串和数字

1. Sub putarr()
   
2. Dim arr, brr(9, 8, 7) As Long
   
3. For i = 0 To 9
   
4. For j = o To 8
   
5. For k = 0 To 7
   
6. brr(i, j, k) = i * j * k
   
7. Next
   
8. Next
   
9. Next
   
10. arr = brr ' 用 Variant 变量转换，读取的时候就省事了灵活性比较大
    
11. Open ThisWorkbook.Path & "\arr.text" For Binary As #1
    
12. Put #1, , arr
    
13. Close #1
    
14. End Sub
    
15. 
    
16. Sub getarr()
    
17. Dim arr '用 Variant 变量读取 灵活性比较大
    
18. Open ThisWorkbook.Path & "\arr.text" For Binary As #1
    
19. Get #1, , arr '用 Variant 变量读取 灵活性比较大
    
20. Close #1
    
21. MsgBox UBound(arr, 1) & " " & UBound(arr, 2) & " " & UBound(arr, 3)
    
22. End Sub
    

复制代码

上清宫主

高！讲学习了

arg10

Open ThisWorkbook.Path & "\arr.text" For Binary As #1
这句看不懂

flying_micky

有用的，标记一下

lb_bn

这个精典。。。学习。

praijna

学习了，感谢分享！

weiqibianp

标记一下{:soso_e100:}

liucqa

学习了            

Iam辉

收下，学习

goldowl2011

Mark it .Thanks a lot.