VBA - 读取文本文件，将其拆分为数组并在 VBA Word 中打印回来

Question

您好，我想获取包含数据字符串的 txt 文件，将其逐行拆分为数组。 但是，我无法将数据正确输入到数组，或者 GetArrLength 函数有问题。 我对 VBA 很陌生，无法解决问题。 宏因运行时错误“13”而停止：类型不匹配并突出显示这部分代码：

GetArrLength = UBound(arr) - LBound(arr) + 1

希望这不是一个大问题。 感谢您的任何想法。

Sub apokus()

'PURPOSE: Send All Data From Text File To A String Variable


Dim TextFile As Integer
Dim filePath As String
Dim FileContent As String
Dim strAll As String
Dim arrString() As String

'File Path of Text File
  filePath = InputBox("Path to your MD file.", "Path to MD", "actual path to the file")


'Determine the next file number available for use by the FileOpen function
  TextFile = FreeFile
  
'Open the text file
  Open filePath For Input As TextFile
  
'Store file content inside a variable
  FileContent = Input(LOF(TextFile), TextFile)
  Close TextFile
  
arrString = Strings.Split(FileContent, vbCr)
Selection.TypeText Text:=GetArrLength(1)
Dim i As Long
For i = 1 To GetArrLength(arrString)
   Selection.TypeText Text:=GetArrLength(i) + vbNewLine
Next i

End Sub

Public Function GetArrLength(arr As Variant) As Long
   If IsEmpty(arr) Then
      GetArrLength = 0
   Else
      GetArrLength = UBound(arr) - LBound(arr) + 1
   End If
End Function

Answer 1

您的代码应如下所示：

arrString = Strings.Split(FileContent, vbCr)
Selection.TypeText Text:=GetArrLength(arrString)
Dim i As Long
For i = 0 To UBound(arrString)
   Selection.TypeText Text:=arrString(i) + vbNewLine
Next i

但是，我看不到您的代码的意义。 您获取一个包含多个段落的文本文件，删除回车符，然后将文本插入 Word 中添加回车符。