资源描述：
《excel自动创建并自动填入解决方案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1.创建调度用于每日创建Excel报表用于打开.创建调度,设置时间为每日凌晨零点零一分或者两分启动调度,间隔为每天执行,没有结束时间.执行时运行脚本.将如下代码复制进用户脚本内(VB编辑器):FN=Format(Now,"yyyymmdd")'定义文件名为当前年月日excelID.Workbooks.Open("D:ReportTemplet.xls")'打开模板文件excelID.ActiveWorkbook.SaveAs("D:"+FN+".xls")'将模板文件另存为名为当前年月日的文件excelID.
2、Quit注意放进代码自动生成的方法内,如下所示,(红字部分为自动生成的方法的开始与结束,加粗部分为定义的调度名称,这里的名称是BuildExcel,意为生成Excel)PrivateSubBuildExcel_OnTimeOut(ByVallTimerIdAsLong)FN=Format(Now,"yyyymmdd")'定义文件名为当前年月日excelID.Workbooks.Open("D:ReportTemplet.xls")'打开模板文件excelID.SaveWorkspace("D:"+FN+".x
3、ls")'将模板文件另存为名为当前年月日的文件EndSub注意,这里的调度文件内必须在最上面输入如下代码,用于创建Excel对象,如果没有这个则代码会报错,DimexcelIDAsNewExcel.Application同时还要引用Excel,引用方法如下上方菜单栏内工具-引用然后找到MicrosoftExcel11.0ObjectLibrary选好对号后按确定2.创建调度用于每小时打开目标文件并写入内容.创建调度,设置每小时整点执行调度,没有结束时间,执行时运行用户脚本.脚本代码如下PrivateSubExce
4、lInput_OnTimeOut(ByVallTimerIdAsLong)'此行为自动生成,名为ExcelInput,如果有另外的名字可略掉此行Shell"cmd.exe/ctaskkill/f/imexcel.exe"'检查系统进程中的EXCEL进程并关闭FN=Format(Now,"yyyymmdd")'定义变量为当前年月日,用于文件名(FilesName)'NH=Format(Now,"HH")'定义当前小时变量,用于判断小时(NowHour)LD=CStr(Format(Now,"yyyymmdd")-1
5、)'定义变量为前一天年月日,用于文件名(LastDay)AN=NH'定义变量记录行数,用于添加记录的行excelID.Visible=True'显示当前窗口If(NH=1)Then'如果当前时间是一点则运行AN=24'列数增加24excelID.Workbooks.Open("D:"+LD+".xls")'打开模板文件(前一天)ElseexcelID.Workbooks.Open("D:"+FN+".xls")'打开模板文件(当天)AN=NH-1EndIf'==========================
6、==========sheet1excelID.Worksheets("sheet1").Activate'设置当前活动表,如果模板内的sheet改名则这里必须也改名excelID.Cells((12+AN),2).Value=Round(Fix32.Fix.R0287.F_CV)'在当前活动表的目标单元格内赋值,并将目标数值转换成整数excelID.Cells((12+AN),6).Value=Round(Fix32.Fix.R0295.F_CV)excelID.Cells((12+AN),13).Value=
7、Round(Fix32.Fix.R0359.F_CV)excelID.Cells((12+AN),17).Value=Round(Fix32.Fix.R0363.F_CV)excelID.Cells((12+AN),18).Value=Round(Fix32.Fix.R0303.F_CV)excelID.Cells((12+AN),21).Value=Round(Fix32.Fix.R0351.F_CV)excelID.Cells((12+AN),22).Value=Round(Fix32.Fix.R0311.F
8、_CV)excelID.Cells((12+AN),25).Value=Round(Fix32.Fix.R0355.F_CV)excelID.Cells((12+AN),26).Value=Round(Fix32.Fix.R0343.F_CV)excelID.Cells((12+AN),28).Value=Round(Fix32.Fix.R0335.F_CV)excelI
