作者ptguitar (佩蒂吉他)
看板Office
标题[算表] 汇入大型文字档案巨集更改
时间Thu Jun 28 09:30:26 2018
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1530149429.A.910.html
1F：→ soyoso: 看要以split或range.texttocolumn来分隔 06/28 09:38
2F：→ soyoso: 分配上看要以range.copy或新增工作表内的range指定分割 06/28 09:41
3F：→ soyoso: range，应也可指定split的阵列位置 06/28 09:43
4F：→ soyoso: 除回圈方式汇入外，以querytable.add方式，也可 06/28 10:00
5F：→ soyoso: commadelimiter以逗号分隔 06/28 10:00
6F：→ ptguitar: 我再研究看看 感谢S大指点 06/28 11:31
8F：→ ptguitar: 感谢S大!!! 06/29 14:24