在VBA中声明一个静态字节数组

Question

我可以像这样在VBA中声明一个静态字节数组，但是这些元素似乎不是字节类型的。

Dim A As Variant
A = Array(&H9F, &H2C, &H3B, &HFF, &H84)

我可以通过将内容复制到第二个数组来解决这个问题，但在我看来这并不是很有效。

Dim A As Variant
A = Array(&H9F, &H2C, &H3B, &HFF, &H84)
Dim N As Long: N = UBound(A)
Dim B() As Byte
ReDim B(N)
For X = 0 To N
    B(X) = A(X)
Next

所以我的问题是:是否有更好或更优雅的方法来做到这一点？

Answer 1

好吧，可能不是你想要的解决方案，但是你可以直接把一个字符串转换成一个字节数组。

所以，以你为例，像这样的事情(疯狂)会奏效的。

Dim bResult() As Byte
bResult = StrConv(Join(Array(Chr(&H9F), Chr(&H2C), Chr(&H3B), Chr(&HFF), Chr(&H84)), vbNullString), vbFromUnicode)

第二种方法是更新原始数组中的元素。它仍然需要一个循环，但是条目将由Bytes完成。

Dim i As Long
Dim vValues As Variant: vValues = Array(&H9F, &H2C, &H3B, &HFF, &H84)
For i = LBound(vValues) To UBound(vValues)
    vValues(i) = CByte(vValues(i))
Next i

最后，您可以这样做：

Dim vValues As Variant 
vValues = Array(CByte(&H9F), CByte(&H2C), CByte(&H3B), CByte(&HFF), CByte(&H84))