VBA写入非常大的字符串

Dim largeString As String
largeString = "This is a large string" & _
              " that spans multiple lines" & _
              " and contains a lot of text."

Dim largeStringArray() As String
largeStringArray = Split("This is a large string that spans multiple lines and contains a lot of text.", " ")
Dim largeString As String
largeString = Join(largeStringArray, " ")

' StringBuilder类模块代码
Private m_str As String

Public Sub Append(ByVal str As String)
    m_str = m_str & str
End Sub

Public Function ToString() As String
    ToString = m_str
End Function

' 在主模块中使用StringBuilder
Dim sb As New StringBuilder
sb.Append "This is a large string"
sb.Append " that spans multiple lines"
sb.Append " and contains a lot of text."
Dim largeString As String
largeString = sb.ToString