有n个xls的表格，怎样一次批量添加n个文件

显示全部楼层 · 2011-10-3 10:44:40

启动Excel程序，单击工具-宏-宏...，在宏对话框中，在宏名中输入 add，单击创建，在打开的宏编辑器中，直接复制粘贴如下代码：Dim App, Xls As ObjectSet App = CreateObject("Excel.Application")App.Visible = 0App.DisplayAlerts = 0For i = 1 To 1000 '这里的1000，自己根据该文件夹中需要处理的实际工作簿的数量来定，不需要处理的工作簿，请移走On Error Resume NextSet Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str...