VBA批量导入文本文件，如何转换二维数组？

Sub 导入文本文件()
Dim str, arr, brr, crr, drr, i As Long
With Application.FileDialog(msoFileDialogFolderPicker) '取得用户选择的文件夹路径
.AllowMultiSelect = False
If .Show Then
p = .SelectedItems(1)
Else
Exit Sub
End If
End With
If Right(p, 1) <> "\" Then
p = p & "\"
f = Dir(p & "*.txt*") '开始遍历工作簿
While f <> ""
Filename = p & "\" & f
Open Filename For Input As #1
str = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
arr = Split(str, Chr(10)) '只会生成一维数组，如何变成二维数组录入到单元格中
ReDim brr(UBound(arr))
For i = 0 To UBound(arr)
brr(i) = UBound(Split(arr(i), "|"))
Next i
n = Application.WorksheetFunction.Max(brr)
ReDim crr(UBound(arr), n)
For i = 0 To UBound(arr)
drr = Split(arr(i), "|")
For j = 0 To UBound(drr)
crr(i, j) = drr(j)
Next j
Next i
Cells(Rows.Count, 1).End(3).Offset(1).Resize(UBound(arr) + 1, n + 1) = crr
f = Dir
Wend
End If
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v2rj27j77yejrfv7x27.html