[算表] VBA 如何搜尋特定檔案與儲存格??

看板Office作者nacholas0227 (風)時間14年前 (2011/10/04 23:06)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

軟體:Excel 版本:2003 最近也是因為工作因素需要使用到VBA 想要請問一下兩個問題 1. 我目前會需要開啟大量的文字檔(檔名:第一份:XXXXXX.01AA.XXXX.txt 第二份:XXXXXX.02AA.XXXX.txt) 每次數據的檔名都會不同，唯獨01AA或02AA這些是一定會有的是否有辦法能夠設計程式讓它會自動選取檔名中有特定字串"01AA"的視窗?????? 2. 在選擇特定的視窗之後，又需要去搜尋此資料內的某特定字串，如"rate" 而我需要的資料為"rate"的儲存格往下一格開始算例如 rate 為A1 我要的資料就是從A2到A10 那要如何設定呢??? 目前是大概寫出這樣 Sub aa() Windows("AAA.xlsx").Activate Cells.Find(What:="rate", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Activate Range(Worksheets("AAA").Cells(data_long, 3), Worksheets("AAA").Cells(data_long, 10)).Copy Windows("BBB.xlsx").Activate Windows("BBB.xlsx").Cells(i, 2).Select ActiveSheet.Paste Application.CutCopyMode = False data_long = 0 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Value = "rate" Then data_long = Target.Row End Sub 但是卻無法順利執行不曉得為什麼= = 希望有人能幫我解惑~ 謝謝~~ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.227.11.112