小弟目前要從text格式的紀錄檔拉出特定數值，text檔每天產生一份，約有三年份，檔名是km+年月日
text紀錄檔可以使用excel+字串匯入精靈 讀取
目前我的想法是先將這將近三年份的text先全壓縮成一份excel
但有個難題是，我可以一個一個用字串匯入精靈處理，但是批量不知道如何處理，網上有找到vba，但是不知道如何取得匯入精靈的vba字串，想請大家幫幫我，拜託拜託
個人積分：136分
文章編號：75864408
個人積分：241分
文章編號：75874675
我最棒惹惹惹惹惹 wrote:
小弟目前要從text...(恕刪)
先將"txt"文字件放在同一個資料夾(例如AAA)，執行程式碼並選擇AAA資料夾即可
內容可能需要自己修一下
Sub GTC()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = 0 Then Exit Sub
fs = Dir(.SelectedItems(1) & "\*.txt")
Do Until fs = ""
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & .SelectedItems(1) & "\" & fs, Destination:=Cells(1, 1))
.Name = fs
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
fs = Dir
Loop
End With
End Sub
