sub?測試()
暗淡?f?作為?字符串,mPath?作為?字符串,Wb?作為?練習冊,Sh?作為?工作表
如果?workbooks.count & gt1?然後呢?msgbox?"關閉其他工作簿!":退出?潛水艇
mPath?=?" D:\臨時文件夾\ "?指定路徑,註意分層標記\
f=dir(mPath?& amp?"*.xls* ")
做什麽?什麽時候?f & lt& gt""
如果?f & lt& gtthisworkbook.name?然後
設置?Wb=workbooks.open(mPath?& amp?f)?以只讀模式打開
用什麽?韋伯
為了什麽?每個?噓?在?。工作表
操作工作表的代碼片段,自己寫的。
然後
結束?隨著
wb.close?0?關閉文件
結束?如果
f=dir?枚舉來訪問下壹個工作簿。
環
結束?潛水艇