创建1.25GB的数组，但是实在没想明白VBA申请内存的机制 － 已解决

灰袍法师

如图，VBA可以申请这么多的内存，但是却不能在一个数组里面申请
也不能逐步redim增大

只能先申请一大块，然后再申请较小的一块，然后逐步降低申请量

估计每次申请的最大内存量是跟Windows的剩余可用内存有关

[ 本帖最后由 灰袍法师 于 2010-10-7 01:53 编辑 ]

coby001

啥意思啊？？

灰袍法师

就是想把Windows全部可用内存都创建为数组

然后在程序里面xxoo

可是貌似不能这样做，只能一小块一小块地申请
Option Explicit

Sub 按钮1_Click()
Dim x1() As Byte
Dim x2() As Byte
Dim x3() As Byte
Dim x4() As Byte
Dim x5() As Byte
Dim x6() As Byte
Dim x7() As Byte
Dim x8() As Byte
Dim i As Long, s As Long

ReDim x1(1 To 1024# * 1024 * 512) '这里申请512MB内存
ReDim x2(1 To 1024# * 1024 * 256) '这里如果再次申请512MB就会溢出
ReDim x3(1 To 1024# * 1024 * 256) '但是，实际上后续代码申请了不止512MB内存也没事
ReDim x4(1 To 1024# * 1024 * 128) '也就是说，不能一次申请
ReDim x5(1 To 1024# * 1024 * 64)
ReDim x6(1 To 1024# * 1024 * 64)
End Sub

lb_bn

应该是根据系统内存的大小而分，不能全给吧。

灰袍法师

原帖由 lb_bn 于 2009-12-6 16:12 发表
应该是根据系统内存的大小而分，不能全给吧。

即使如此，那为什么一次申请不给

多次申请就给呢，这不是制造麻烦么

我怀疑如果每次申请几k，最后是可以把Windows内存拿光的，要再试试

dul

我怀疑如果每次申请几k，最后是可以把Windows内存拿光的，要再试试,这是肯定的...

灰袍法师

原帖由 dul 于 2009-12-6 17:39 发表
我怀疑如果每次申请几k，最后是可以把Windows内存拿光的，要再试试,这是肯定的...

试过了，每次只拿128k 或者64k或者16k
到最后都只能得到300-600MB左右的内存数组
比直接拿几百MB还少,而且速度非常慢，没用。

另外我发现，直接声明一个几百MB的数组，成功与否取决于 任务管理器－－性能界面，里面的物理内存－－空闲有多少
如果数组大于此空闲内存，就会error7失败
但是如果数组小于此值，也不代表一定成功，我在空闲内存1100的时候，最大只能申请到820M
而最变态的是，空闲内存很低的时候，Windows 也并不会把 缓存内存 释放，真是见他娘的鬼了
这样一来，即使我有3G内存，后台也只是运行一些小玩意。
但是VBA一次能用的始终只有几百M，多次申请才能达到1.3G

[ 本帖最后由 灰袍法师 于 2009-12-6 19:41 编辑 ]

lb_bn

这是windows管理内存的机制，如果普通方法就能使用所有内存，那就变成linux了。

灰袍法师

原帖由 lb_bn 于 2009-12-6 19:59 发表
这是windows管理内存的机制，如果普通方法就能使用所有内存，那就变成linux了。

或者，VBA不能申请第二个大内存的原因是：没有足够大的连续内存了

如果这样的话，应该可以申请一大堆单独的小数组，直到2GB全部拿光，

嗯，还得继续试下去。

[ 本帖最后由 灰袍法师 于 2009-12-6 20:58 编辑 ]

灰袍法师

哈哈哈，果然如我所料

声明200个数组

每个数组redim为10MB

就可以顺利拿到1.8GB内存，很接近2GB了

结论：
声明数组的时候，windows必须在一个连续的内存空间给它分配
如果没有足够大的连续空间，那么即使空闲内存的总量足够，也会分配失败。

所以，要使用尽可能大的内存数组，最好是把Windows的全部可以关掉的后台程序，服务全部杀掉
干净重启，然后第一时间就运行VBA程序。
而拿光现有内存是可以的，但要分很多个数组去拿。当然要拿到1个字节也不剩就很那个了。

[ 本帖最后由 灰袍法师 于 2009-12-6 20:59 编辑 ]