Sub TestSpeed()
    Dim lRet As Excel4ReturnCodes
    Dim xNum As XL12Num, xRef As XL12Ref
    Dim xSRef As XL12SRef, i#, t1!, t2!
    Dim d#, oCell As Range
        
    MdCallBack12 xlfIndirect, 1, TempStr12p("B8"), xSRef
    Set oCell = Range("B6")
    
    xNum.xltype = xltypeNum
    t1 = Timer
    For xNum.dVal = 1# To 30000#
        Excel12p xlSet, 0, 2, VarPtr(xSRef), VarPtr(xNum)
    Next
    t1 = Timer - t1
    
    t2 = Timer
    For d = 1# To 30000#
        oCell.value = d
    Next
    t2 = Timer - t2
    
    Debug.Print t1, t2
End Sub

Private Sub TestSpeed2()
    Const maxCnt = 200000
    Static blInit As Boolean, sRndAr$()
    Dim xSRef As XL12SRef
    Dim i&, t1!, t2!, lRet As Excel4ReturnCodes
    Dim vAr$(), xStrAr() As XL12Str
    
    If blInit Then Else sRndAr = GetRndStrArray(maxCnt, 5, 10): blInit = True
    
    ReDim vAr(maxCnt - 1, 0)
    ReDim xStrAr(maxCnt - 1)
    
    t1 = Timer
    For i = 0 To maxCnt - 1
        With xStrAr(i)
          .xltype = xltypeStr
          .Str = ChrW(Len(sRndAr(i))) & sRndAr(i)
        End With
    Next
    lRet = MdCallBack12(xlfIndirect, 1, TempStr12p("B1:B" & maxCnt), xSRef)
    lRet = Excel12p(xlSet, 0, 2, VarPtr(xSRef), TempMulti12p(maxCnt, 1, VarPtr(xStrAr(0))))
    t1 = Timer - t1
    
    t2 = Timer
    For i = 0 To maxCnt - 1
        vAr(i, 0) = sRndAr(i)
    Next
    Range("C1:C" & maxCnt).value = vAr
    t2 = Timer - t2
    
    Debug.Print t1, t2
    Stop
    columns(2).Resize(, 2).Clear
End Sub

0,734375      0,6875
0,59375       0,6875
0,6132813     0,6953125

Private Sub TestBIGDATA()
    Dim xData As XL12BigData, bData() As Byte, lRet As Excel4ReturnCodes
    Dim bFile() As Byte, xName As XL12Str, lp As LongPtr
    
    bData = GetFileBytes("C:\Users\User\Documents\Excel\ExcelApi\ТекстовыйФайл.txt")
    
    'Сохранение бинарных данных
    xName = GetXl12Str("TestBDName")
    xData.xltype = xltypeBigData
    xData.BD.lpbData = VarPtr(bData(0))
    xData.BD.cbData = UBound(bData) + 1
    lRet = Excel12p(xlDefineBinaryName, 0, 2, VarPtr(xName), VarPtr(xData))
    
    Erase bData
    LSet xData = xlEmp
    
    'Получение бинарных данных
    If MdCallBack12(xlGetBinaryName, 1, VarPtr(xName), xData) = xlretSuccess Then
        ReDim bData(xData.BD.cbData - 1)
        CopyPtr lp, ByVal xData.BD.lpbData
        CopyMemory bData(0), ByVal lp, xData.BD.cbData
        MdCallBack12 xlfree, 1, VarPtr(xData)
        
        WriteBytesToFile bData, "C:\Users\User\Documents\Excel\ExcelApi\ТекстовыйФайл2.txt"
    End If
    
    'Удаление именованного выделения
    lRet = MdCallBack12(xlDefineBinaryName, 1, VarPtr(xName))
End Sub

Function GetSheetID(sShName$) As LongPtr
    Dim xRef As XL12Ref
    If MdCallBack12(xlsheetid, 1, TempStr12p(sShName), xRef) = xlretSuccess Then
        GetSheetID = xRef.idSheet
    End If
End Function

Private Sub Test_xlcCopy()
    Dim xRef1 As XL12SRef, xRef2 As XL12SRef, lRet As Excel4ReturnCodes
    
    MdCallBack12 xlfIndirect, 1, TempStr12p("C2"), xRef1
    MdCallBack12 xlfIndirect, 1, TempStr12p("E3"), xRef2
    
    lRet = Excel12p(xlcCopy, 0, 2, VarPtr(xRef1), VarPtr(xRef2)) 'xlcCut аналогичен
End Sub

Private Sub Test_xlcPasteSpecial()
    Dim xRef1 As XL12SRef, xRef2 As XL12SRef, lRet As Excel4ReturnCodes
    
    MdCallBack12 xlfIndirect, 1, TempStr12p("E3"), xRef1
    MdCallBack12 xlfIndirect, 1, TempStr12p("G3"), xRef2
    
    lRet = MdCallBack12(xlcCopy, 1, VarPtr(xRef1))
    lRet = Excel12p(xlcPasteSpecial, 0, 5, VarPtr(xRef2), VarPtr(GetXLInt12(xlPasteFormats)), _
                    VarPtr(GetXLInt12(xlNone)), VarPtr(GetXLBool12(False)), VarPtr(GetXLBool12(False)))
End Sub