[算表] 匯入大型文字檔案巨集更改
軟體: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
→
06/28 09:38,
7年前
, 1F
06/28 09:38, 1F
→
06/28 09:41,
7年前
, 2F
06/28 09:41, 2F
→
06/28 09:43,
7年前
, 3F
06/28 09:43, 3F
→
06/28 10:00,
7年前
, 4F
06/28 10:00, 4F
→
06/28 10:00,
7年前
, 5F
06/28 10:00, 5F
→
06/28 11:31,
7年前
, 6F
06/28 11:31, 6F
→
06/28 15:49,
7年前
, 7F
06/28 15:49, 7F
→
06/29 14:24,
7年前
, 8F
06/29 14:24, 8F
Office 近期熱門文章
PTT數位生活區 即時熱門文章