2015-12-22 2 views
0

Я пытаюсь записать эти данные в двоичный файл, используя макрос в слове. Если я запускаю это я получаю эту ошибку "ошибка переполнения Execution (Error 6)" на Пут #handle линии ,, CByte ("& H" & выход (я))vba binary file cause overflow

Как я могу исправить это? Спасибо.

Sub HexStringToBinaryFile() 


    lol50 

    Dim output() As String 
    output = Split(lol, "|") 

    Dim handle As Long 
    handle = FreeFile 
    Open "C:\test.bin2" For Binary As #handle 

    Dim i As Long 
    For i = LBound(output) To UBound(output) 

     Put #handle, , CByte("&H" & output(i)) 

    Next i 

    Close #handle 

End Sub 
    Sub lol50() 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|01" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|02" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|03" 


End Sub 

ответ

5

Проблема заключается в том что вы не положить разделитель на конце вашей линии назначения lol. Поэтому, когда они разделены, последние две цифры предыдущей строки объединены с первой второй строкой следующего.

Ошибка возникает здесь:

lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|01" 
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00" 

Когда это анализируется, нет разделитель между 01 и 00 (на следующей строке), так что значение 0100 производит переполнение.

Завершите каждую из линий назначения lol с помощью |, и ошибка должна исчезнуть.

1

У Джейсона есть правильный ответ, но я не уверен, что создание строки и ее расщепление для получения массива - лучший способ. Вы можете просто заполнить массив напрямую.

Private lol(1 To 4656) As String 

Sub HexStringToBinaryFile() 

    Dim i As Long 
    Dim handle As Long 

    lol50 

    handle = FreeFile 
    Open "C:\test.bin2" For Binary As #handle 
     For i = LBound(lol) To UBound(lol) 
      Put #handle, , CByte("&H" & lol(i)) 
     Next i 
    Close #handle 

End Sub 
Sub lol50() 

    Dim i As Long 

    For i = 1 To 4656 
     lol(i) = "00" 
    Next i 

    For i = 9 To 4656 Step 16 
     lol(i) = "40" 
    Next i 

    lol(4000) = "01" 
    lol(4416) = "02" 
    lol(4656) = "03" 

End Sub