關於txt檔、excel檔程式問題?

[匿名]

2015-11-06 3:51 am

各位大哥大姐好，我是在做鐵路數據分析的研究生，想在這邊提問一些程式問題
1、將巨集(60x24x30個)的txt檔轉成excel檔的程式。
{我自己知道如何巨集開起，再分別存excel，不過覺得還是太慢，總希望有個程式能讓他一直run存檔。
2、將每個excel的data 14x22大小(B2~W15)，匯至1個excel，並轉成 1x308大小的data(B2起始)。

回答 (1)

先生

2015-11-06 12:51 pm

✔ 最佳答案

可以利用這個來改
Sub get_file()
DirPath = ThisWorkbook.Path
fs = Dir(DirPath & "\*.txt")
Do Until fs = ""
r = r + 1
Cells(r, 1) = fs '''執行程序
fs = Dir
Loop
End Sub

找個參考自行取用修改

Sub test()
DirPath = ThisWorkbook.Path
fs = Dir(DirPath & "\*.txt")
Do Until fs = ""
r = r + 1
FilNm = DirPath & "\" & fs

''''資料剖析程序
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & FilNm, Destination:=Range("$A$1"))
.AdjustColumnWidth = True
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With

''''抓筆數命名
xn = Replace(fs, ".txt", "") & "_" & [A65536].End(xlUp).Row & ".xlsx"
ActiveWorkbook.SaveAs Filename:=DirPath & "\" & xn, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Workbooks(xn).Close False
fs = Dir
Loop
MsgBox "轉檔完畢"
End Sub

👍 1 👎 0