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