wps如何用wps vba 宏插件下载将数据添加到轻办公里的文件中

来源：蜘蛛抓取(WebSpider) 时间：2015-08-18 07:24 标签： wps的vba模块
求助EXCEL使用VBA批量打开一系列表格文件并复制里面的数据到另一个表格文件中_百度知道
提问者采纳
Sub&Copy_Data()Dim&wb&As&Workbook,&rng&As&Range,&sht&As&WorksheetDim&sht_Name,&theDatesht_Name&=&&Sheet1&&'假设所有报表文件中的数据都在&Sheet1Set&sht&=&ActiveSheet&'保存当前工作表对象fn&=&Dir(ThisWorkbook.Path&&&&\报表-*.xls&,&vbReadOnly)&'打开第一个报表文件Do&While&fn&&&&&&&'开始循环&&&&Set&wb&=&Workbooks.Open(fn)&'以只读模式打开报表文件&&&&&&&&'取得报表文件中的日期字符串&&&&theDate&=&Mid(fn,&InStr(fn,&&\报表-&)&+&4,&Len(fn)&-&InStr(fn,&&\报表-&)&-&7)&&&&'将报表文件中的数据复制到当前工作表&&&&With&wb.Worksheets(sht_Name)&&&&&&&&.Range(.Range(&A2&),&.Range(&A1&).End(xlToRight).End(xlDown)).Copy&_&&&&&&&&&&&&Destination:=sht.Range(&A65536&).End(xlUp).Offset(1,&1)&&&&End&With&&&&wb.Close&(False)&'关闭报表文件，不保存&&&&sht.Activate&'激活当前工作表&&&&Range(Range(&A65536&).End(xlUp).Offset(1,&0),&Range(&B65536&).End(xlUp).Offset(0,&-1))&=&DateValue(Format(theDate,&&&))&'在A列填充报表文件的日期信息&&&&fn&=&DirLoop&'循环下一个报表文件End&Sub
我确定把这个工作表和报表是放在同一个文件夹的，运行宏的时候怎么出现这种错误
请问，报表文件是
版的吗？那么后缀应该是 xlsx（我看提问中写的是 xls），那么代码要略作修改：Sub&Copy_Data()Dim&wb&As&Workbook,&rng&As&Range,&sht&As&WorksheetDim&sht_Name,&theDatesht_Name&=&&Sheet1&Set&sht&=&ActiveSheetfn&=&Dir(ThisWorkbook.Path&&&&\报表-*.xlsx&,&vbReadOnly)Do&While&fn&&&&&&&&&&Set&wb&=&Workbooks.Open(fn)&&&&theDate&=&Mid(fn,&InStr(fn,&&\报表-&)&+&4,&Len(fn)&-&InStr(fn,&&\报表-&)&-&8)&&&&With&wb.Worksheets(sht_Name)&&&&&&&&.Range(.Range(&A2&),&.Range(&A1&).End(xlToRight).End(xlDown)).Copy&_&&&&&&&&&&&&Destination:=sht.Range(&A65536&).End(xlUp).Offset(1,&1)&&&&End&With&&&&wb.Close&(False)&&&&sht.Activate&&&&Range(Range(&A65536&).End(xlUp).Offset(1,&0),&Range(&B65536&).End(xlUp).Offset(0,&-1))&=&DateValue(Format(theDate,&&&))&&&&fn&=&DirLoopEnd&Sub上面的代码请粘贴在 worksheet 的代码窗口，然后将这个文件与报表文件保存在同一个文件夹中。fn = Dir(ThisWorkbook.Path & &\报表-*.xlsx&, vbReadOnly) 这句代码保证了能够打开同一文件夹中的所有报表文件。
我是office2013，我开始就是修改了xls为xlsx，但还是不能打开，我再试试
呃！2013，太先进了，俺木有这个环境，T_T
提问者评价
这是百度知道上我收到的质量最高的回答，又快又准，第一次代码就测试通过了，
来自团队：
其他类似问题
为您推荐：
excel的相关知识
其他1条回答
报表数据区不一样，怎么选择？？？？最少你报表的列是一样的呀，行数是可以不一样的。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁访问本页面，您的浏览器需要支持JavaScript

我要回帖

更多关于 wps的vba模块 的文章

 

随机推荐