Excel自动创建并自动填入解决方案.docVIP

1.创建调度用于每日创建Excel报表用于打开.创建调度,设置时间为每日凌晨零点零一分或者两分启动调度,间隔为每天执行,没有结束时间.执行时运行脚本.将如下代码复制进用户脚本内(VB编辑器):FN = Format(Now, yyyymmdd) 定义文件名为当前年月日excelID.Workbooks.Open (D:ReportTemplet.xls) 打开模板文件excelID.ActiveWorkbook.SaveAs (D: + FN + .xls) 将模板文件另存为名为当前年月日的文件excelID.Quit注意放进代码自动生成的方法内,如下所示,(红字部分为自动生成的方法的开始与结束,加粗部分为定义的调度名称,这里的名称是BuildExcel,意为生成Excel)Private Sub BuildExcel_OnTimeOut(ByVal lTimerId As Long)FN = Format(Now, yyyymmdd) 定义文件名为当前年月日excelID.Workbooks.Open (D:ReportTemplet.xls) 打开模板文件excelID.SaveWorkspace (D: + FN + .xls) 将模板文件另存为名为当前年月日的文件End Sub注意 ,这里的调度文件内 必须在最上面输入如下代码,用于创建 Excel 对象,如果没有这个则代码会报错, Dim excelID As New Excel.Application同时还要引用Excel,引用方法如下 上方菜单栏内工具-引用然后找到Microsoft Excel 11.0 Object Library 选好对号后按确定2.创建调度用于每小时打开目标文件并写入内容.创建调度,设置每小时整点执行调度,没有结束时间,执行时运行用户脚本.脚本代码如下Private Sub ExcelInput_OnTimeOut(ByVal lTimerId As Long) 此行为自动生成,名为ExcelInput,如果有另外的名字可略掉此行Shell cmd.exe /c taskkill /f /im excel.exe 检查系统进程中的EXCEL进程并关闭FN = Format(Now, yyyymmdd) 定义变量为当前年月日,用于文件名(FilesName)NH = Format(Now, HH) 定义当前小时变量,用于判断小时(NowHour)LD = CStr(Format(Now, yyyymmdd) - 1) 定义变量为前一天年月日,用于文件名(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 - 1End If=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 = 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_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)excelID.Cells(12 + AN), 32).Value = Round(Fix32.Fix.R0367.F_CV)=sheet3excelID.Worksheets(sheet3).Activate 设置当前活动表excelID.Cells(12 + AN), 19).Value = Round(Fix32.Fix.fct1csl.F_CV)excelID.Cells(12 + AN), 22).Value = Round(Fix32.Fix.fct1nsll.F_CV)excelID.Cells(12 + AN), 35).Value = Round(Fix32.Fix.fct2csl.F_CV)excelID.Cells(12 + AN), 38).Value = Round(Fix32.Fix.fct2nsll.F_CV)excelID.Cells(12 + AN), 42).Value = Round(Fix32.Fix.r0191.F_CV)excelID.Cells(12 + AN), 43).Value = Round(Fix32.Fix.r0187.F_CV)=sheet4excelID.Worksheets(sheet4).Activate 设置当前活动表excelID.Cells(12 + AN), 13).Value = Round(Fix32.Fix.R0023.F_CV)excelID.Cells(12 + AN), 18).Value = Round(Fix32.Fix.R0031.F_CV)excelID.Cells(12 + AN), 30).Value = Round(Fix32.Fix.R0035.F_CV)excelID.Cells(12 + AN), 31).Value = Round(Fix32.Fix.R0163.F_CV)excelID.Cells(12 + AN), 32).Value = Round(Fix32.Fix.R0199.F_CV)excelID.Cells(12 + AN), 34).Value = Round(Fix32.Fix.R0207.F_CV)excelID.Cells(12 + AN), 36).Value = Round(Fix32.Fix.R0215.F_CV)excelID.Cells(12 + AN), 38).Value = Round(Fix32.Fix.R0239.F_CV)excelID.Cells(12 + AN), 42).Value = Round(Fix32.Fix.R0243.F_CV)excelID.Cells(12 + AN), 43).Value = Round(Fix32.Fix.R0247.F_CV)If (NH = 1) Then 如果当前时间不是1点则执行excelID.Workbooks(LD + .xls).Close savechanges = False 不显示提示信息直接保存前一天的文件Else 否则执行excelID.Workbooks(FN + .xls).Close savechanges = False 不显示提示信息直接保存当前天的文件End IfexcelID.QuitEnd Sub 此行为自动生成3.创建用户窗体用来相应按钮事件打开目标文件.在画面中创建好相应按钮后,右键点击按钮选择编辑脚本,进入脚本编辑器.在自动生成的代码中加入如下代码frmSetTime.Show这里的frmSetTime为窗体名,创建目标窗体方法如下在左侧的工程资源管理器内找到当前的画面名称并右键选择插入用户窗体,在窗体内空白处右键点击选择属性,此处名称部分可以更改Caption属性内容为改写当前窗体的标签内容.如将其改成”选择查询时间”后效果如下窗体设计大致如下 其中有一个标签控件,其caption属性内容为”选择查询时间:”一个DTPicker控件用于选择时间,和一个按钮控件,按钮控件的名称为cbtn_OK.双击确定按钮可进入脚本编辑器 将如下代码贴入脚本编辑器并替换脚本编辑器内原有内容,注意这里也同样需要上述的引用ExcelDim excelID As New Excel.Application 创建Excel对象Private Sub UserForm_Initialize() 窗体加载事件Me.DTPicker1.Value = Now 设置时间控件内容显示为当前时间End SubPrivate Sub cbtn_OK_Click() 调用名为cbtn_OK按钮的单击事件FN = Format(Me.DTPicker1.Value, yyyymmdd) 定义变量取得时间选择控件内的时间并转换成年年年年月月日日格式excelID.Visible = True 显示当前窗口excelID.Workbooks.Open (D: + FN + .xls) 打开目标文件End Sub注意:这里的时间选择控件来自VB6.0 需要使用改程序的机器安装