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

  • 47
  • 0
  • 约1.52万字
  • 约 13页
  • 2017-02-17 发布于北京
  • 举报
?????????‘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??

文档评论(0)

1亿VIP精品文档

相关文档