Excel VBA 讀入外部的txt檔案 程式碼要如何撰寫呢

Option Base 1

Sub LoadTxt()
Dim arrStr() As String, InputStr As String
Dim i As Integer, j As Integer

Fn = FreeFile

Open "C:\tt.txt" For Input As #Fn '開啟 tt.txt 檔
Application.ScreenUpdating = False '畫面暫停更新
i = 1: j = 1
While Not EOF(Fn)
Line Input #Fn, InputStr '從檔案讀出一列,
If Len(InputStr) > 0 Then '略過無字串的空行
arrStr = Split(InputStr, ",")
'把讀入的文字列依逗號分成數個字串, 置於 arrStr 陣列裡
For j = 1 To UBound(arrStr)
Worksheets("sheet1").Cells(i, j) = arrStr(j) '把字串存到儲存格
Next j
End If
i = i + 1
Wend
Application.ScreenUpdating = True '畫面恢復更新
Close #Fn

End Sub

１．善用『錄製新巨集』的功能！
　ａ．選『工具』－『巨集』－『錄製新巨集』進入
　ｂ．跳出錄製巨集視窗，以內訂Macro1巨集名稱，按確定，即進行錄製
　ｃ．幾乎所有您操作的動作皆錄成VBA程式供您參考


２．讀入外部的txt檔案：方法
　ａ．選『資料』－『匯入外部資料』－『編輯文字檔匯入』
　ｂ．跳出檔案選擇視窗，找出您要的資料，按確定


３．檢視VBA程式碼：
　ａ．選『工具』－『巨集』－『巨集』
　ｂ．跳出巨集選擇視窗，選擇剛才錄製的巨集名稱，按『編輯』鍵即進入VBA編輯界面，您要的程式碼都在裡面




希望以上解釋對您有所幫助
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
http://www.gotop.idv.tw

花蓮．如園民宿主人

我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援，一開始也跟大家一樣總是問價格到處比價，因為不懂，凡事都從價格,考量，輕言聽信朋友介紹比較便宜一家，找錯家之後痛苦尾隨而來，以下省略500字........,後來自己上網找資料救援找到硬碟醫院，和他們經理溝通之後給我正確觀念，這是妳寶貴的資料，妳要考慮是救不救的回問題，而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料
http://www.datamaster.com.tw/

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

【 最新活動→迎接新會員，首存狂送20% 】

【運動→電子→對戰→現場→彩球 】

【免費服務 →電影區、討論區、KTV歡唱、運動轉播、即時比分、24H客服 】

【亞洲36588合法彩券公司直營 官網: A36588.NET 】