vba二维数组（VBA批量导入文本文件，如何转换二维数组）
本文目录
VBA批量导入文本文件，如何转换二维数组
Sub 导入文本文件()
Dim str, arr, brr, crr, drr, i As Long
With *****(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 = *****(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(*****, 1).End(3).Offset(1).Resize(UBound(arr) + 1, n + 1) = crr
f = Dir
Wend
End If
End Sub
vba二维数组赋值后，全是空值，why
Range("b10:ae10").Value = myarrar 本身 myarrar就是数组了 就不需要array
第二个问题就是 myarrar(4, 29) 二维 Range("b10:ae10") 这是一维 那你myarrar就没有全部被赋值了
更多文章：
2026年5月2日 19:20
2026年5月2日 19:00
firefox清除缓存（请教问题：火狐浏览器清空缓存的快捷键是什么）
2026年5月2日 18:40
2026年5月2日 18:20
matlab解符号方程组的例子（matlab 求助 解方程组）
2026年5月2日 18:00
2026年5月2日 17:40
2026年5月2日 17:20
网络编程实用教程答案（吉林大学网络学院本学期（Java网络编程大作业）有知道答案的吗）
2026年5月2日 17:00
wampserver橙色如何变成绿色（wampserver 64 为什么总显示橙色）
2026年5月2日 16:40
计算机前端培训（哪家前端培训机构比较好_前端培训的机构哪个好）
2026年5月2日 16:20
