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

---

作者: cmo140497    時間: 2011-7-29 17:53     標題: (已解決)感謝版主如何利用Excel VBA開啟讀入文字檔後,指定名稱跳下一行取得資料

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

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

[attach]7181[/attach]
[attach]7180[/attach]

---

作者: GBKEE    時間: 2011-7-29 20:09

回復 1# cmo140497
If mystr Like test & "*" Then Print #2, mystr   改為    If InStr(mystr, test) = 0 Then Print #2, mystr

---

作者: cmo140497    時間: 2011-8-1 08:18

回復 2# GBKEE


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

[attach]7225[/attach]

---

作者: GBKEE    時間: 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

複製代碼

---

作者: cmo140497    時間: 2011-8-1 17:17

回復 4# GBKEE


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)