軟體:EXCEL
版本:2007
由於機器會自動拋檔給電腦,
會有固定的格式,於機器完成作業時會拋檔出檔案於固定的資料夾。
檔案名稱如下所示
test150609104456.xls
test150609152422.xls
如果我需要真對每個檔案的A1:B5的區域複製貼到指定的EXCEL位置,
複製完畢就要關閉該檔案
需要怎麼改寫以下的程式碼
Dim mFile As String
mFile = Dir("C:\testFild\test*.xls")
Do While mFile <> ""
Workbooks.Open Filename:="C:\testFild\" & mFile
mFile = Dir()
Loop