vba中使用index字符数为什么不能超过255?

Zipall

回复 吕?布 的帖子

谢谢你的回复.
没接触过c,虽然不懂它的原理,但是我觉得你的解释更容易接受一些.

不过从7楼的test5来看,是不是index函数在excel2010中做了修改?使得它摆脱了255的限制,进而能处理这种更长的字符串了?

兰色幻想

回复 吕?布 的帖子

但在VBA受255限制有很多，象range里的字符串长度,evaluate中的表达式串，这和函数无关，我觉得这些受255字符限制是同一个原因所致。

吕?布

实际上自己写XLL也受这个255限制，就是因为为个字符类型的原因，从2007好象放宽了这个限制。我刚查了一下SDK
Strings
All versions of Excel:

[signed] char * - null-terminated byte strings of up to 255 characters

unsigned char * - length-counted byte strings of up to 255 characters

Starting in Excel 2007:

unsigned short * - Unicode strings of up to 32,767 characters, which can be null-terminated or length-counted

吕?布

Worksheet, Argument, and String Limits
In Excel 2003, the worksheet contained 256 columns x 65,536 rows (28 x 216). In Excel 2007, this was expanded to 16,384 x 1,048,576 (214 x 220)—that is, from 224 to 234 cells. These new limits overflow the integer types that were used to contain them in the old range and array structures. This made it necessary to have new data structures with wider integers to define the size of ranges and arrays.

In Excel 2003, any function, whether built-in or provided by an add-in, was limited to at most 30 arguments. In Excel 2007, this is increased to 255.

DLLs and XLLs can now exchange long Unicode strings with Excel instead of just the limited length byte strings supported in the old C API.

吕?布

从下面代码结果可以看出，字串数组在内存中的位置并不是连续的，所以Index函数一定是一个一个的拷贝字串值，而拷贝时很可能字串使用的是LPSTR类型
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub test()
    Dim arr, arr1
    Dim i As Long, j As Long
    Dim lCount As Long
    Dim s(1 To 1024) As Byte
    Dim lLen As Long, lRefCount As Long
   
    Debug.Print "元素", "内存地址", "元素值"
    arr = Range("a1:b5").Value
    For j = LBound(arr, 2) To UBound(arr, 2)
        For i = LBound(arr, 1) To UBound(arr, 1)
            CopyMemory lCount, ByVal VarPtr(arr(i, j)) + 8, 4& * 1          ' 取得字符串真实地址
            Debug.Print "arr(" + CStr(i) + "," + CStr(j) + ")", ; lCount, ;
            CopyMemory ByVal VarPtr(s(1)), ByVal lCount, LenB(arr(i, j))   ' 取得字符串内容
            Debug.Print s
        Next i
    Next j
    Debug.Print
   
    arr = Application.WorksheetFunction.Index(arr, 0, 2)
    For j = LBound(arr, 2) To UBound(arr, 2)
        For i = LBound(arr, 1) To UBound(arr, 1)
            CopyMemory lCount, ByVal VarPtr(arr(i, j)) + 8, 4& * 1          ' 取得字符串真实地址
            Debug.Print "arr(" + CStr(i) + ","; CStr(j) + ")", ; lCount, ;
            CopyMemory ByVal VarPtr(s(1)), ByVal lCount, LenB(arr(i, j))   ' 取得字符串内容
            Debug.Print s
        Next i
    Next j
    Debug.Print

    arr = Range("a6:b10").Value
    arr1 = Application.WorksheetFunction.Index(arr, 0, 2)
End Sub

兰色幻想

这个要有官方说明就好了，我们也不用在这里猜想

Zipall

回复 吕?布 的帖子

这段代码在winxp+excel2010中运行,直接关掉了excel进程

根据7楼的测试,在声明了arr为string后,index在copy时为什么就不受这个限制了?
我是否可以理解为index在处理variant类型的string时,才会将它当做LPSTR处理?

吕?布

据说是有两种字串
1. [signed] char * - null-terminated byte strings of up to 255 characters
2. unsigned char * - length-counted byte strings of up to 255 characters
你单个单元格时应该是使用的第二种。实际上，如果全是第一种，那Excel一个单元格的长度就不能超过255了，也许用的人会少很多。也许我们也不会在这里研究来研究去了

另外，我在2010里试了，代码没有问题啊，只不过CopyMemory是很容易出问题
字串数组中字串内存地址.rar (11.98 KB, 下载次数: 1)

2011-7-22 11:16 上传

点击文件名下载附件

Zipall

回复 吕?布 的帖子

这个确实没问题.
我在A列填充了公式 =row() 就出问题了


原来如此~~~

吕?布

官方网页只找到个好象有点搭界的
http://support.microsoft.com/kb/213841/zh-cn