返回列表 上一主題 發帖

[分享] (已解決)感謝版主如何利用Excel VBA開啟讀入文字檔後,指定名稱跳下一行取得資料

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-29 17:53 | 只看該作者

[分享] (已解決)感謝版主如何利用Excel VBA開啟讀入文字檔後,指定名稱跳下一行取得資料

本帖最後由 cmo140497 於 2011-8-1 17:30 編輯

Dear 版主
小弟利用Excel VBA開啟讀入文字檔後,欲取得文字檔內的DefectList這個名稱後,跳下一行取得數據,不知如何修編這個程式,感謝!

20110729Test.zip (536 Bytes)
Get KLARF_20110729.zip (5.81 KB)
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-7-29 20:09 | 只看該作者
回復 1# cmo140497
If mystr Like test & "*" Then Print #2, mystr   改為    If InStr(mystr, test) = 0 Then Print #2, mystr

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
3#
發表於 2011-8-1 08:18 | 只看該作者
回復 2# GBKEE


Dear 版主 :
不好意思,小弟想要取得.txt檔內容之DefectList下一行數據資料,小弟試過skipline,也不行,謝謝!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-8-1 16:49 | 只看該作者
回復 3# cmo140497
  1. Do While Not EOF(1)
  2.        Input #1, mystr
  3.        If mystr Like test & "*" Then
  4.             Input #1, mystr   '讀取下一行
  5.             Print #2, mystr
  6.        End If
  7.     Loop
複製代碼

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
5#
發表於 2011-8-1 17:17 | 只看該作者
回復 4# GBKEE


    感謝版主,原來input還可以在迴圈內再使用一次,小弟實在沒什麼邏輯觀念,感謝版主!

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題