當前位置:成語大全網 - 書法字典 - 使用VBA從多個Excel中獲取信息以生成新表格。

使用VBA從多個Excel中獲取信息以生成新表格。

Sub?打開excel表格()

暗淡?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文件

申請。屏幕更新?=?“真的嗎?”凍結屏幕。這樣的語句壹般成對使用。

結束?潛水艇