怎样在WINCC中打开EXCEL表格-专业自动化论坛-中国工控网论坛

怎样在WINCC中打开EXCEL表格点击：7668 | 回复：13

dovezy

精华：0帖
求助：0帖
帖子：11帖 | 79回
年度积分：0
历史总积分：224
注册：2006年12月03日

发表于：2009-03-30 23:47:20

楼主

请教各位:我的报表是用EXCEL做的.WINCC的数据没隔1小时写到EXCEL表格中.每天写24次到EXCEL中,每一天保存一个EXCEL表格,每一个EXCEL表格都以日期为名字存的,我怎样在WINCC中可以选择查看这些文件并且打印

分享到：

邀请回答

回复楼主

沙漠的风雨

精华：0帖
求助：0帖
帖子：24帖 | 461回
年度积分：0
历史总积分：1069
注册：2003年10月23日

发表于：2009-03-31 09:21:23

1楼

我用delphi作过类似的程序，wincc 没作过，我也想知道

回复引用举报

wdccs

精华：0帖
求助：0帖
帖子：12帖 | 67回
年度积分：0
历史总积分：130
注册：2006年3月13日

发表于：2009-04-03 14:26:23

2楼

用EXCEL做太麻烦了！

回复引用举报

KingLion

精华：2帖
求助：0帖
帖子：86帖 | 1155回
年度积分：0
历史总积分：2681
注册：2002年2月26日

发表于：2009-04-03 15:51:20

3楼

用VBA做吧！参看一下别人做的例子！

回复引用举报

menghua

精华：0帖
求助：0帖
帖子：2帖 | 36回
年度积分：0
历史总积分：20
注册：2008年11月14日

发表于：2009-04-04 18:16:39

4楼

请教楼主你是怎么实现excel表格记录报表的？可以把你的程序发给我看看吗？

我我做了一段程序，可是没有数据进来。我利用VB做的。我参考了西门子官网上的文件“WinCC数据报表实现方法介绍.pdf ”

楼主看看程序上有哪些不足。

Dim objExcelApp,objExcelBook,objExcelSheet
Dim tagyali1,tagyali2,tagyali3,tagyali4
Dim tagliuliang1,tagliuliang2
Dim tago2
Dim tagshijian,sheetname
Dim i,j
Dim msg

Set tagyali1=HMIRuntime.Tags("MicroWin.fuyang.v.p1")
Set tagyali2=HMIRuntime.Tags("MicroWin.fuyang.v.p2")
Set tagyali3=HMIRuntime.Tags("MicroWin.fuyang.v.p3")
Set tagyali4=HMIRuntime.Tags("MicroWin.fuyang.v.p4")
Set tagliuliang1=HMIRuntime.Tags("MicroWin.fuyang.v.l1")
Set tagliuliang2=HMIRuntime.Tags("MicroWin.fuyang.v.lt2")
Set tago2=HMIRuntime.Tags("MicroWin.fuyang.v.o2")

msg="ok"
sheetname="sheetdemo"

On Error Resume Next
Dim ExcelApp,ExcelBook
Set ExcelApp=GetObject(,"Excel.Application")
If TypeName(ExcelApp)="Application" Then
For Each ExcelBook In ExcelApp.WorkBooks
If ExcelBook.FullName="E:\biao.xls" Then
ExcelApp.ActiveWorkbook.Save
ExcelApp.Workbooks.Close
ExcelApp.Quit
Set ExcelApp=Nothing
Exit For
End If
Next
End If

Set objExcelApp=CreateObject("Excel.Application")
open file
objExcelApp.Visible=True
objExcelApp.Workbooks.Open"E:\biao.xls"
objExcelApp.Worksheets(sheetname).Activate

With objExcelApp.Worksheets(sheetname)
For i=5 To 25
For j=1 To 8
.cells(i,j)=Null
Next
Next
For i=26 To 26
For j=1 To 7
.cells(i,j)=Null
Next
Next
End With

tagshijian=Now
objExcelApp.Worksheets(sheetname).cells(2,2).value=tagshijian
For i=5 To 25
with objExcelApp.Worksheets(sheetname)
.cell(i,1).value=tagshijian
tagyali1.Read
.cell(i,2).value=tagyali1.value
tagyali2.Read
.cell(i,3).value=tagyali2.value
tagyali3.Read
.cell(i,4).value=tagyali3.value
tagyali4.Read
.cell(i,5).value=tagyali4.value
tagliuliang1.Read
.cell(i,6).value=tagliuliang1.value
tagliuliang2.Read
.cell(i,7).value=tagliuliang2.value
tago2.Read
.cell(i,8).value=tago2.value
End With
Next
MsgBox msg
Dim patch,filename
filename=CStr(Month(Now))&CStr(Day(Now))+CStr(Hour(Now))&CStr(Minute(Now))
patch="E:\"&filename&".xls"
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp=Nothing