Re: [問題] EXCEL擷取需要文件內容開啟??

看板Office作者zchien (小建)時間14年前 (2012/04/04 11:28)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《zchien (小建)》之銘言： : (若是和其他不同軟體互動之問題請記得一併填寫) : 軟體: EXCEL : 版本:2007 : 我有一個文件檔...可能有10幾萬行字.. : 他每隔幾行的開頭會用"日期"當做開頭名稱..並且日期是有順序性的. : 我是否有辦法用excel...寫巨集..去擷取..某個日期之後的的所有字串.. : 我原本想用匯入的方式把文件檔匯入到EXCEL...再去擷取我要的檔案 : 但是筆數太多...無法這樣做... : 或是用... : open 文件檔 for input as #1 : do until EOF(1) : Line input #1, myBuf : Loop : close #1 : 但這方法也不可行..因為這會將所有資料都讀入myBuf : 必須也要匯入到EXCEL才能擷取... : 請網友幫幫忙吧 : 例如:文件檔格式可能如下..我希望擷取2012-02-02之後的所有內容 : 2012-02-01 : AAAAAAAAAAAAAAAAAAAAAAAAAA : BBBBBBBBBBBBBBBBBBBBB : 2012-02-02 : CCCCCCCCCCCCCCCCCCCCCCCCCCCC : DDDDDDDDDDDDDDDDDDDDD : EEEEEEEEEEEEEEE : 2012-02-03 : EEEEEEEEEEEEEEEEEEEEEEEEEEE : FFFFFFFFFFFFFFFFFFFFF 有一位善心的網友提供下列寫法.. 是可以work的... 提供給大家參考... 謝謝大家的幫忙...讓我長知識了... Sub test() Dim 文件檔 As String Dim mybuf As String Dim BLN As Boolean 文件檔 = "D:\x2scrap2.txt" Open 文件檔 For Input As #1 Do Until EOF(1) Line Input #1, mybuf If IsDate(mybuf) Then If DateValue(mybuf) >= #2/2/2012# Then BLN = True End If If BLN Then Selection.Offset(1).Select Selection = mybuf End If Loop Close #1 End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.40.91.111