Dim str、arr、brr、crr、drr、I長度
以獲取用戶選擇的文件夾路徑。
。AllowMultiSelect = False
如果。那就展示吧
p =。選擇項目（1）
其他
出口接頭
如果…就會結束
以…結尾
if Right（p，1）& lt；& gt““那麽
p = p & amp"\"
f = Dir（p & amp；"*.“txt*““開始遍歷工作簿。
而f & lt& gt""
文件名= p & amp“\“& amp；f
以#1格式打開輸入文件名
str = StrConv（InputB（LOF（1），1），vbUnicode）
關閉#1
arr = Split（str，Chr（10））‘只會生成壹維數組，如何將其改為二維數組並輸入單元格中？
ReDim brr（UBound（arr）
對於i = 0至下界（arr）
brr（I）= UBound（Split（arr（I），“|“）
接下來我
n =應用。工作表功能最大值（brr）
ReDim crr（UBound（arr），n）
對於i = 0至下界（arr）
drr = Split（arr（I），“|“）
對於j = 0至下界（drr）
crr（I，j）= drr（j）
下壹個j
接下來我
單元格（行。計數，1）。結束（三）。偏移量（1）。resize（UBound（arr）+1，n+1）= crr
f = Dir
行
如果…就會結束
末端接頭