找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限使用任何功能尊貴會員無限看帖不用回覆安全提問(回答) 和 永久尊貴會員 事宜
mgmgmega 無無修office自慰kkbox
090118楽園ギル水質七龍珠北宋小廚被小叔拋十字軍之

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]香格里拉・開拓異

老媽沒收兒子的手機

[繁]我獨自升級08-

泰國 女學生踢球空檔

[DVD簡/日配]劇場版

✡ 狂王・03・2024.2
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 5346|回復: 1

[求助] 利用VBA!寫一行TXT文字當EXCEL裡!!有疑問??[複製鏈接]

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
111
積分
1300 點
潛水值
28565 米
發表於 2012-9-9 01:04 PM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
本帖最後由 123451758 於 2012-9-9 11:41 PM 編輯
  1. Sub 按鈕_click()
  2. file = FreeFile
  3. Open "contacts.txt" For Input As
  4. #file
  5. lLinecount = 1
  6. i = 3
  7. Do While Not EOF(file)
  8. Line Input #file,
  9. Line
  10. scount = Right(Line,
  11. 2)<=====這裡有問題?????
  12. Workbooks("百分比.xls").Sheets("佔比").Cells(4,
  13. i).Value = scount
  14. i = i + 1
  15. Loop
  16. Close fileEnd Sub
複製代碼



上面是我的語法,下面是我的文字檔格式,
20120822 1 20
20120823 1 20
20120824 1 19
20120825 1 24
20120826 1 27
20120827 1 22
20120828 1 22


但就我目前的語法,他抓到的資料只能是20.20.19.24.27.22.22..兩位數字!但如果我要文字檔的內容被改成3位數.4位數...等等,我的語法就抓不到資料了!請問有高手可以教教我怎麼改嗎??請大家幫幫小妹~謝謝大家!!^^



...
瀏覽完整內容,請先 註冊登入會員
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

owen1692 該用戶已被刪除
發表於 2012-9-15 09:54 PM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
你用的寫法是 只取字串右邊的2個字元 所以當然只會取到 最後兩位
用以下的Function的寫法才對

  1. Public Function funGetRightString(Source As String) As String

  2. Dim strReturn As String
  3. Dim i As String

  4. Dim arySource() As String
  5. arySource = Split(Source, " ")

  6. strReturn = arySource(UBound(arySource))

  7. funGetRightString = strReturn

  8. End Function
複製代碼
這一段Function 會將傳入字串的最右邊的一段文字回傳
例如傳入 2110766256 11 5444 就會回傳 5444
         傳入 2110766256 11 123 就會回傳 123
...
瀏覽完整內容,請先 註冊登入會員
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部