返回列表 上一主題 發帖

[發問] 文字檔要如何反序匯入Excel 呢?

mgame168

帖子
19 
主題
5 
精華
0 
積分
262 
點名
89  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2010-5-19 
最後登錄
2025-4-5 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2012龍年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-19 19:33 | 顯示全部帖子

[發問] 文字檔要如何反序匯入Excel 呢?

我有一文字檔須從檔案的最後一行開始
然後倒數的二行........到檔首匯入Excel

請問該如何改呢? 感謝各位!!!

Dim MyString As String

Open "MYFILE" For Input As #1    ' 開啟輸入檔。
i = 0
Do While Not EOF(1)              ' 檢查是否已到檔尾。
    Input #1, InputData          ' 讀入一行資料。
    ActiveCell.Offset(0, i).Value = MyString   
    i = i + 1
Loop
Close #1                         ' 關閉檔案。
收藏 分享

mgame168

帖子
19 
主題
5 
精華
0 
積分
262 
點名
89  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2010-5-19 
最後登錄
2025-4-5 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2012龍年全勤獎章
2#
發表於 2011-5-20 10:21 | 顯示全部帖子
感謝兩位版主大力幫忙~

或許我沒把問題說清楚
假設
     E:\restr.txt
restr.txt 內容
6
5
4
3
2
1

欲匯入Excel 的結果
A    B    C    D    E    F
1    2    3    4    5    6

GBKEE 版主
可能我用的資料與您的不同, 所以依您方法得到的結果如下:
6
5
4
3
2
1

Hsieh 版主
依您方法得到的結果, 倒著讀對了, 但用陣列匯入的結果
並不是我想要的, 想再請您幫忙,匯入的結果能否由直式
改橫式?

您方法的結果
1
2
3
4
5
6

欲匯入Excel 的結果
A    B    C    D    E    F
1    2    3    4    5    6

感謝兩位的幫忙

TOP

mgame168

帖子
19 
主題
5 
精華
0 
積分
262 
點名
89  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2010-5-19 
最後登錄
2025-4-5 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2012龍年全勤獎章
3#
發表於 2011-5-20 13:48 | 顯示全部帖子
回復 6# GBKEE

感謝GBKEE 版大 !!

對了~ 我要的就是您的方法~ 感恩您 !!

另將Hsieh版大的方法改成
[A1].Resize(1, UBound(Ar) + 1) = Ar
也是我要的

謝謝兩位的幫忙 !!

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題