暗淡?myPath$,?myFile$,?AK?作為?練習本
暗淡?n?作為?整數
暗淡?答?作為?整數
答?=?2
b?=?1
申請。屏幕更新?=?“假的?”凍結屏幕以防止屏幕抖動。
我的路?=?" d:\test\ "?定義變量的文件路徑。
我的文件?=?Dir(myPath?& amp?"*.xls”)?找到*。xls文件依次放在指定的路徑中。
做什麽?什麽時候?我的文件?& lt& gt?""?當指定路徑中有文件時循環。
如果?我的文件?& lt& gt?此工作簿。名字?然後
設置?AK?=?練習冊。打開(myPath?& amp?myFile)?打開符合要求的文件。
MsgBox?""
n?=?1
做什麽?什麽時候?n?=?1
設置?Rng?=?ActiveSheet。UsedRange.Find("MTBI ")
如果?Rng?是嗎?什麽都沒有?然後
MsgBox?(“沒有這樣的值”)
其他
MsgBox?在下列項目中尋找價值:& amp?(Chr(64?+?Rng。專欄)?& amp?Rng。行)
Rng。挑選
n?=?n?+?1
將數據復制到book1的sheet2,page 1?2?3?4列,從第2行開始
工作簿(“book1”)。工作表(“工作表2”)。細胞(壹個,1)?=?ActiveSheet。細胞(Rng。劃,?Rng。專欄?+?1)
工作簿(“book1”)。工作表(“工作表2”)。細胞(壹個,2)?=?ActiveSheet。細胞(Rng。劃,?Rng。專欄?+?2)
工作簿(“book1”)。工作表(“工作表2”)。細胞(壹個,3)?=?ActiveSheet。細胞(Rng。劃,?Rng。專欄?+?3)
工作簿(“book1”)。工作表(“工作表2”)。細胞(壹個,4)?=?ActiveSheet。細胞(Rng。劃,?Rng。專欄?+?4)
答?=?答?+?1
結束?如果
環
結束?如果
我的文件?=?Dir?尋找下壹個*。xls文件
環
申請。屏幕更新?=?“真的嗎?”凍結屏幕。這樣的語句壹般成對使用。
結束?潛水艇