VBS wincc报表模板批量生产
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Excel批量模板生成文件
用于WINCC报表生成。
dim i,j,m
Dim fso
On Error Resume Next
‘**************************************************生成目录
set fso=createobject("scripting.filesystemobject")
if fso.FolderExists("F:\报表") then '判断生成目录为报表生成做准备如果存在什么都不干else
Set objFolder=fso.CreateFolder("F:\报表")'如果不存在则生成它（下面的一样）
end if
if fso.FolderExists("F:\报表\日报") then
else
Set objFolder=fso.CreateFolder("F:\报表\日报")
end if
for m=1 to 12
if fso.FolderExists("F:\报表\日报\"&m&"月") then
else
Set objFolder=fso.CreateFolder("F:\报表\日报\"&m&"月")
end if
next
Set fso = Nothing
'**************************************************生成目录
On Error Resume Next
set fso1=createobject("scripting.filesystemobject")
Filename="F:\Repot.xls" '模板提取
'**************************************************生成保存文件
Set oExcel= CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open(Filename) '打开Filenames的文件
Set fso1 = CreateObject("Scripting.FileSystemObject")
for i=1 to 12 '12个月
for j=1 to 31 '每个月算31天
patch="F:\报表\日报\"&i&"月\"&Year(Now )&"年"&i&"月"&j&"日.xls" '组建地址
If fso1.FileExists(patch) Then '判断文件是否存在如果存在什么都不干
else oExcel.ActiveWorkBook.SaveAs( patch ) '假如不存在则另存为（地址）
end if
next
next
'**************************************************生成保存文件
Set fso1 = Nothing
oExcel.WorkBooks.Close
oExcel.Quit
Set oExcel = Nothing
On Error Resume Next
'********************************************结束进程
Sub CloseProcess(sProcessName)
For each Process inGetObject("winmgmts:{impersonation Level=impersonate}").Instances
Of("Win32_process") '利用wimp遍历所有进程
If Process. Name = sProcessName Then '判断进程名称
Process. terminate '关闭指定进程
End If
Next
End Sub
'********************************************结束进程
CloseProcess "EXCEL.EXE"
'********************************************结束EXCEL
VBS Excel写入数据用于WINCC与EXCEL 报表生成，用动作定时产生。配合上面程序让wincc报表变得简单。
Dim oExcel,oWb,oSheet,HK
'********************************************地址组建
Dim Patch,filename,fso,MyFile,Filenames
Set fso = CreateObject("Scripting.FileSystemObject")
filename=Year(Now )&"年"&Month(Now)&"月"&Day(x)&"日" & Hour(Now)&"时"'&Minute(Now) &"分"'&Second(Now)&"秒"'时间
patch="F:\"&filename&".xls" '模板提取
'********************************************地址组建
'********************************************判断是否存在
If fso.FileExists(patch) Then
Filenames=patch
HK=1
Else Filenames="F:\Repot.xls":HK=0
END IF
'********************************************判断是否存在