[算表] 匯入大型文字檔案巨集更改

[ptguitar (佩蒂吉他)]

軟體:excel

版本:2007


我從網路上收集到一個vba

Sub ReadTxtByInput01()
　Dim myFile$, Jm, AA$, uMax&, xArr(), xR As Range
　myFile = ThisWorkbook.Path & "\" & "stas.txt"
　Set xR = [A1]
　uMax = 65500
　Cells.ClearContents
　Open myFile For Input As #1
　Do While Not EOF(1)
　　Line Input #1, AA
　　If Jm = 0 Then ReDim xArr(1 To uMax, 0)
　　Jm = Jm + 1:   xArr(Jm, 0) = AA
　　If Jm = uMax Then
　　　　xR.Resize(uMax).Value = xArr
　　　　Jm = 0: Set xR = xR(1, 3)
　　End If
　Loop
　Close #1
　If Jm > 0 Then xR.Resize(uMax).Value = xArr
　Erase xArr
　End Sub

我想問的是

如果我只想更動:

1. 匯入的文字檔案用 "," 當分隔

2. 分割的每個部分都分配到不同的新增工作表

不知道這樣要怎麼修改??







--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1530149429.A.910.html
→ soyoso: 看要以split或range.texttocolumn來分隔
→ soyoso: 分配上看要以range.copy或新增工作表內的range指定分割
→ soyoso: range，應也可指定split的陣列位置
→ soyoso: 除迴圈方式匯入外，以querytable.add方式，也可
→ soyoso: commadelimiter以逗號分隔
→ ptguitar: 我再研究看看 感謝S大指點
→ soyoso: 如以原文巨集的話類似 https://i.imgur.com/txO3kKl.jpg
→ ptguitar: 感謝S大!!!