VBA字符串255個字符限制

Question

我正面臨與VBA一起工作的問題，並指出它有一個字符串限制為255個字符。 我實際上是嘗試通過POST發送JSON並暫停執行我注意到該字符串總是只有255個字符。

有沒有辦法調整字符串或其他東西？

Answer 1

我浪費了大約6個小時來解決這個問題，最后檢查它只是一個調試器限制 。 VBA調試器只顯示字符串的255個字符，但這並不意味着它只包含他正在顯示的內容。

當事情變得瘋狂時我注意到了這一點，當我使用帶有Len的MsgBox檢查字符串大小和內容時，它就浮出水面。

希望它有所幫助，因為我讀了很多人要求這個，但沒有人告訴它。

Answer 2

如果你想在控制台上打印一些東西（即時窗口）你可以簡單地將它打印到記事本，結果理論上是相同的並且高於255行（不是字符）。 以下是如何在記事本中打印1到10.000的數字：

Option Explicit

Public Sub PrintToNotepad()

    Dim strShell                As String
    Dim strFileName             As String
    Dim fs                      As Object
    Dim objText                 As Object

    strFileName = ThisWorkbook.Path & "\test" & Replace(Now, ":", "")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set objText = fs.CreateTextFile(strFileName, True)

    objText.writeline (GenerateBigString)

    strShell = "C:\WINDOWS\notepad.exe" & " "
    strShell = strShell & strFileName
    Call Shell(strShell)

End Sub

Public Function GenerateBigString() As String

    Dim i           As Long
    Dim result      As String

    For i = 1 To 10000
        result = result & i & vbCrLf
    Next i

    GenerateBigString = result

End Function