關於vba指定匯入文字檔

帖子: 21
主題: 1
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-3-13
最後登錄: 2025-3-26

1^# 跳轉到 »

發表於 2015-4-29 10:47 | 顯示全部帖子

您好!
提供之前我有寫過類似txt檔的擷取方式重點(我之前是擷取CSV. ,但是方法是一樣的)

Step1. 確認路徑(類似寫法如下)

ppath = "M:\QC\檢驗資料\Wafer\OQC特性\" + doc + "\"
myfile = Dir(ppath + "*.CSV")
<確認路徑並搜尋所有該資料夾內之csv檔>

Step2. 打開檔案並將之寫入#1暫存
         If myfile = "" Then GoTo labexit  '搜尋不到跳出重搜
         gfilename = ppath + myfile
         Open gfilename For Input As #1

Step3. 確認搜尋條件
                  If Mid(textline, 1, 3) = "TTV" Then 'TTV data
                     search = ","
                     search1 = InStr(7, textline, search, vbTextCompare)
                     search2 = InStr(search1 + 1, textline, search, vbTextCompare)
                     search3 = InStr(search2 + 1, textline, search, vbTextCompare)
<我是使用字串搜尋到我要資料的位置>

Step4. 最後當然是設立個迴圈把自己想要的資料都抓近來嚕
               Do While Not EOF(1)
                     Line Input #1, textline
               loop

以上是我的擷取方式,不知道有沒有回答到重點@@若有問題可以一起討論唷

TOP

gn001038600

中學生 Rank: 2

帖子: 21
主題: 1
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-3-13
最後登錄: 2025-3-26

2^#

發表於 2015-4-29 13:25 | 顯示全部帖子

vavashop 大大由於我加入不久還無法發送短訊息,關於您的問題

1.您是要擷取您於C:\Users\user\Google 雲端硬碟\L6模組\20140730模組\0股號模組.TXT"內的資料至您要的工作表內對吧

2.因加入時間短,還無法發出短訊息
AutoFilter Field:=6 Criteria1:="3"
<是指您要選擇最左數起第6行欄位內,取出含有3字樣的資料出來> 若要改變條件 , 把""內的3改成您要篩選的資料就可以嚕,您可以試試看!

TOP

gn001038600

中學生 Rank: 2

帖子: 21
主題: 1
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-3-13
最後登錄: 2025-3-26

3^#

發表於 2015-4-29 13:55 | 顯示全部帖子

回復 8# vavashop

您可以把原始檔案跟訴求貼上來嗎我幫您修改

TOP

gn001038600

中學生 Rank: 2

帖子: 21
主題: 1
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-3-13
最後登錄: 2025-3-26

4^#

發表於 2015-4-29 16:04 | 顯示全部帖子

回復 10# vavashop

這類型之條件,我記得錄製的無法達成(小的才疏學淺@@,可能有其他方法小ㄉ不知道),但建議自行撰寫
如您所提出之條件 "A欄位要成立  與  B欄位要成立兩者成立後的 C D E三個欄位只要有是大於0就出現嗎
dim data(100,5) , amount

amount=0
for i = 1 to sheets(2).range("A65536").end(xlup).row
               if sheets(2).cells(i,1)="A條件" and sheets(2).cells(i,2) ="B條件" then
                        if  'CDE欄位條件成立 then
                              amount =amount+1
                                       for  j = 1 to 5
                                                data(amount,j)=sheets(2).cells(i,j)
                                       next
                     end if
               end if
next

for i = 1 to amount
   for j = 1 to 5
         sheets(1).cells(i,j)=data(i,j)
   next
next

您可以試試看條件填入再跑跑看可否!

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]