VBA打开文件夹下所有文件.docVIP

?????????‘sub xlsOpen() Set rrr = CreateObject(Scripting.FileSystemObject) Set r = rrr.GetFolder(D:\EXCEL练习\) ?????????? Application.ScreenUpdating = False For Each i In r.Files Workbooks.Open Filename:=( D:\EXCEL练习\ + i.Name + ) ??????????????? Sheets(1).Cells(2,5 )=“10” ActiveWorkbook.Close savechanges:=true ??????Next???????????????????? Application.ScreenUpdating = True??????? ‘End Sub??? ????????? ???????????????????????????????????????????????????????? ??????????????? ? ExecuteExcel4Macro PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE) ‘打印当前SHEET ActiveWorkbook.Close savechanges:=false??