請高手指導如何將文字檔內的數值轉到EXCELL內 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請高手指導如何將文字檔內的數值轉到EXCELL內

返回列表下一主題上一主題發帖

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

1^# 跳轉到 »

發表於 2016-8-28 11:33 | 顯示全部帖子

可以用excel直接開啟文字檔：

Sub TEST()
Dim MySht As Worksheet
Set MySht = ActiveSheet
MySht.UsedRange.Clear
Application.ScreenUpdating = False
With Workbooks.Open(ThisWorkbook.Path & "\原油.txt")
MySht.[A:G] = .Sheets(1).[A:G].Value
.Close 0
MySht.[A1:G1] = Split("日期收盤價開盤價最高價最低價交易量百分比", " ")
End With
End Sub

複製代碼

靜思自在 : 要批評別人時，先想想自己是否完美無缺。

返回列表下一主題上一主題