Excel自動(dòng)創(chuàng)建并自動(dòng)填入解決方案

1、1.創(chuàng)建調(diào)度用于每日創(chuàng)建Excel報(bào)表用于打開.創(chuàng)建調(diào)度,設(shè)置時(shí)間為每日凌晨零點(diǎn)零一分或者兩分啟動(dòng)調(diào)度,間隔為每天執(zhí)行,沒有結(jié)束時(shí)間.執(zhí)行時(shí)運(yùn)行腳本.將如下代碼復(fù)制進(jìn)用戶腳本內(nèi)(VB編輯器):FN = Format(Now, "yyyymmdd") '定義文件名為當(dāng)前年月日excelID.Workbooks.Open ("D:ReportTemplet.xls") '打開模板文件excelID.ActiveWorkbook.SaveAs ("D:" + FN + ".xls") '將模板文件

2、另存為名為當(dāng)前年月日的文件excelID.Quit注意放進(jìn)代碼自動(dòng)生成的方法內(nèi),如下所示,(紅字部分為自動(dòng)生成的方法的開始與結(jié)束,加粗部分為定義的調(diào)度名稱,這里的名稱是BuildExcel,意為生成Excel)Private Sub BuildExcel_OnTimeOut(ByVal lTimerId As Long)FN = Format(Now, "yyyymmdd") '定義文件名為當(dāng)前年月日excelID.Workbooks.Open ("D:ReportTemplet.xls") '打開模板文件excelID.SaveWork

3、space ("D:" + FN + ".xls") '將模板文件另存為名為當(dāng)前年月日的文件End Sub注意 ,這里的調(diào)度文件內(nèi) 必須在最上面輸入如下代碼,用于創(chuàng)建 Excel 對(duì)象,如果沒有這個(gè)則代碼會(huì)報(bào)錯(cuò), Dim excelID As New Excel.Application同時(shí)還要引用Excel,引用方法如下 上方菜單欄內(nèi)工具-引用然后找到Microsoft Excel 11.0 Object Library 選好對(duì)號(hào)后按確定2.創(chuàng)建調(diào)度用于每小時(shí)打開目標(biāo)文件并寫入內(nèi)容.創(chuàng)建調(diào)度,設(shè)置每小時(shí)整點(diǎn)執(zhí)行調(diào)度,沒有結(jié)束時(shí)間,執(zhí)行時(shí)運(yùn)行用戶腳

4、本.腳本代碼如下Private Sub ExcelInput_OnTimeOut(ByVal lTimerId As Long) '此行為自動(dòng)生成,名為ExcelInput,如果有另外的名字可略掉此行Shell "cmd.exe /c taskkill /f /im excel.exe" '檢查系統(tǒng)進(jìn)程中的EXCEL進(jìn)程并關(guān)閉FN = Format(Now, "yyyymmdd") '定義變量為當(dāng)前年月日,用于文件名()'NH = Format(Now, "HH") '定義當(dāng)前小時(shí)變量,用于判斷

5、小時(shí)(NowHour)LD = CStr(Format(Now, "yyyymmdd") - 1) '定義變量為前一天年月日,用于文件名(LastDay)AN = NH '定義變量記錄行數(shù),用于添加記錄的行excelID.Visible = True '顯示當(dāng)前窗口If (NH = 1) Then '如果當(dāng)前時(shí)間是一點(diǎn)則運(yùn)行AN = 24 '列數(shù)增加24excelID.Workbooks.Open ("D:" + LD + ".xls") '打開模板文件(前一天)ElseexcelID.

6、Workbooks.Open ("D:" + FN + ".xls") '打開模板文件(當(dāng)天)AN = NH - 1End If'=sheet1excelID.Worksheets("sheet1").Activate '設(shè)置當(dāng)前活動(dòng)表,如果模板內(nèi)的sheet改名則這里必須也改名excelID.Cells(12 + AN), 2).Value = Round(Fix32.Fix.R0287.F_CV) '在當(dāng)前活動(dòng)表的目標(biāo)單元格內(nèi)賦值,并將目標(biāo)數(shù)值轉(zhuǎn)換成整數(shù)excelID.Cells(12 + AN),

7、 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.C

8、ells(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

9、.F_CV)'=sheet3excelID.Worksheets("sheet3").Activate '設(shè)置當(dāng)前活動(dòng)表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

10、).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 '設(shè)置當(dāng)前活動(dòng)表excelID.Cells(12 + AN), 13).Value = Round(Fix32.Fix.R0023.F_CV

11、)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

12、.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 '如果當(dāng)前時(shí)間不是1點(diǎn)

13、則執(zhí)行excelID.Workbooks(LD + ".xls").Close savechanges = False '不顯示提示信息直接保存前一天的文件Else '否則執(zhí)行excelID.Workbooks(FN + ".xls").Close savechanges = False '不顯示提示信息直接保存當(dāng)前天的文件End IfexcelID.QuitEnd Sub '此行為自動(dòng)生成3.創(chuàng)建用戶窗體用來相應(yīng)按鈕事件打開目標(biāo)文件.在畫面中創(chuàng)建好相應(yīng)按鈕后,右鍵點(diǎn)擊按鈕選擇編輯腳本,進(jìn)入腳本編輯器.在自動(dòng)生成的代碼中加

14、入如下代碼frmSetTime.Show這里的frmSetTime為窗體名,創(chuàng)建目標(biāo)窗體方法如下在左側(cè)的工程資源管理器內(nèi)找到當(dāng)前的畫面名稱并右鍵選擇插入用戶窗體,在窗體內(nèi)空白處右鍵點(diǎn)擊選擇屬性,此處名稱部分可以更改Caption屬性內(nèi)容為改寫當(dāng)前窗體的標(biāo)簽內(nèi)容.如將其改成”選擇查詢時(shí)間”后效果如下窗體設(shè)計(jì)大致如下 其中有一個(gè)標(biāo)簽控件,其caption屬性內(nèi)容為”選擇查詢時(shí)間:”一個(gè)DTPicker控件用于選擇時(shí)間,和一個(gè)按鈕控件,按鈕控件的名稱為cbtn_OK.雙擊確定按鈕可進(jìn)入腳本編輯器 將如下代碼貼入腳本編輯器并替換腳本編輯器內(nèi)原有內(nèi)容,注意這里也同樣需要上述的引用ExcelDim exc

15、elID As New Excel.Application '創(chuàng)建Excel對(duì)象Private Sub UserForm_Initialize() '窗體加載事件Me.DTPicker1.Value = Now '設(shè)置時(shí)間控件內(nèi)容顯示為當(dāng)前時(shí)間End SubPrivate Sub cbtn_OK_Click() '調(diào)用名為cbtn_OK按鈕的單擊事件FN = Format(Me.DTPicker1.Value, "yyyymmdd") '定義變量取得時(shí)間選擇控件內(nèi)的時(shí)間并轉(zhuǎn)換成"年年年年月月日日"格式excelID.Visible = True '顯示當(dāng)前窗口excelID.Workbooks.Open ("D:" + FN + ".xls") '打開目標(biāo)文件End Sub注意:這里的時(shí)間選擇控件來自VB6.0 需要使用改程序的機(jī)器安裝VB6.0