請高手指導如何將文字檔內的數值轉到EXCELL內 - Excel程式區

[發問] 請高手指導如何將文字檔內的數值轉到EXCELL內

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2016-8-27 21:13 | 顯示全部帖子

回復 1# lcctno

試試看

Option Explicit
Sub Ex()
Dim ST, xAr, Ar()
'**需修改為原油.TXT正確的資料夾****
Open "D:\原油.TXT" For Input As #1
'**********************************
ReDim Ar(0)
Do While Not EOF(1)
Line Input #1, ST
xAr = Split(ST, vbTab)
If UBound(Ar) = 0 Then xAr = Array("日期", "收盤價", "開盤價", "最高價", "最低價", "交易量", "百分比")
Ar(UBound(Ar)) = xAr
If Not EOF(1) Then ReDim Preserve Ar(0 To UBound(Ar) + 1)
Loop
Close #1
With Sheets(1)
.UsedRange.Clear
.Range("a1").Resize(UBound(Ar) + 1, 7) = Application.Transpose(Application.Transpose(Ar))
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2016-8-28 08:36 | 顯示全部帖子

回復 4# lcctno

Option Explicit
Sub Ex()
Dim ST, xAr, Ar()
'**需修改為原油.TXT正確的資料夾****
Open "D:\原油.TXT" For Input As #1
'Open ThisWorkbook.Path & "\原油.TXT" For Input As #1
'**********************************
ReDim Ar(0)
Do While Not EOF(1)
Line Input #1, ST
xAr = Split(ST, vbTab) 'Split
'Split 函數傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
'這一維陣列的內容都是文字
If UBound(Ar) = 0 Then xAr = Array("日期", "收盤價", "開盤價", "最高價", "最低價", "交易量", "百分比")
Ar(UBound(Ar)) = xAr
If Not EOF(1) Then ReDim Preserve Ar(0 To UBound(Ar) + 1)
Loop
Close #1
With Sheets(1)
.UsedRange.Clear
.Range("a1").Resize(UBound(Ar) + 1, 7).Value = Application.Transpose(Application.Transpose(Ar))
With .UsedRange.Columns(1).Offset(1)
'** 修改為日期格式 ***
.Replace "年", "/"
.Replace "月", "/"
.Replace "日", ""
End With
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。