private sub commandbutton1_click() dim app as excel.application dim xlapp as variant dim xlworkbooks as workbooks dim myfile, mypath, myname mypath = "d:/temp" myname = dir(mypath & "/" & "*.xls") do while myname <> "" ' 開始循環。
set xlapp = getobject(mypath & "/" & myname) set w_sheets = xlapp.worksheets xlapp.application.displayalerts = false '不顯示警告 xlapp.worksheets("sheet2").delete workbooks(myname).save xlapp.application.displayalerts = true xlapp.application.visible = true workbooks(myname).close myname = dir ' 查找下一個目錄。 loop end sub
