如何用vba拼接不同的字节数组？

不同的字节数组如果要拼接成一个完整的数组，可以借组adodb.stream对象。

利用adodb.stream对象将不同的数组写入一个空流，然后将流另存为一个文本文件，或者整体读取。

代码如下：

Sub QQ1722187970()
    Const adSaveCreateOverWrite = 2
    Const adSaveCreateNotExist = 1
    Dim arr1(2) As Byte
    Dim arr2(3) As Byte
    Dim arr3(4) As Byte
    arr1(1) = 1
    arr2(2) = 2
    arr3(3) = 3
    Const adTypeBinary = 1
    Dim oStream
    Set oStream = VBA.CreateObject("adodb.stream")
    With oStream
        .Open
        .Type = adTypeBinary
        .write arr1
        .write arr2
        .write arr3
        .Position = 0
        '读取所有字节流
         arrResult = .read
         '把字节流覆盖式写入文本，不会添加任何额外的字节
        .savetofile "c:\Result.txt", adSaveCreateOverWrite
        .Close
    End With
End Sub