请教高手如何每天定期将数据报表自动发送至指定文件夹?

请教高手如何每天定期将数据报表自动发送至指定文件夹?并且自动将EXCELL文档以日期命名,谢谢!虽然可以导出数据报表,但是需要手动,请教请教!!

最佳答案

做一个Excel模板,可以存放在电脑任何路径,比如D:\model.xls盘,然后用脚本做:添加一个每日的周期定时期,到时间把数据填进去,做后把该文件复制到你指定的路径(D:\Report)下就可以了,复制脚本如下:
 Dim fso,myfile,daystr,dstr,fname
 dstr = FormatDateTime(Date,2)
 fname="D:\report\" + dstr + ".xls"
 Set fso = CreateObject("scripting.FileSystemObject")
 Set MyFile = fso.GetFile("D:\model.xls")
 MyFile.Copy(fname)

提问者对于答案的评价:
谢谢

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc270665.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐