重點提示:由于之前的dir函數(shù)獲取文件名時,由于一些BUG,所以使用try語句來輔助判斷,現(xiàn)在這個BUG修復了,所以之前的代碼就會出現(xiàn)問題。新代碼如下所示:
function 多工作表合并(){
var wb1=ThisWorkbook;
var pah=wb1.Path+"\\分數(shù)表\\*.xlsx";
var file=Dir(pah);
while (file!=""){
var pah1=wb1.Path+"\\分數(shù)表\\"+file;
var wb2=Workbooks.Open(pah1);
for (var sh of wb2.Sheets){
sh.Copy(null,wb1.Sheets("合并表"));
}
wb2.Close();
承擔因您的行為而導致的法律責任,
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。