关于wincc变量用vbs写入EXCEL,这个有没有错误,能详解一下吗

已锁定

烽狱

  • 帖子

    4
  • 精华

    0
  • 被关注

    2

论坛等级:游民

注册时间:2010-07-03

普通 普通 如何晋级?

关于wincc变量用vbs写入EXCEL,这个有没有错误,能详解一下吗

320

1

2021-01-25 17:44:04

Option Explicit

Function action

Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible =False

Dim c8

Set c8 = HMIRuntime.Tags("文件保存")

c8.Read

Dim c9

Set c9 = HMIRuntime.Tags("数据存储")

c9.Read

If c8.Value=1 Then

objExcelApp.Workbooks.Open"D:\benti\报表.xls"

Dim countr

For countr=1 To 50

Next

Dim patch,filename

filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))

patch="E:\报表\"&filenaME&"-报表.xls"

objExcelApp.ActiveWorkbook.SaveAs patch

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set oApp = Nothing

Else

If c9.Value=1 Then

    Dim T1

Set T1 = HMIRuntime.Tags("NewTag1")

T1.Read

    Dim T2

Set T2 = HMIRuntime.Tags("NewTag2")

T2.Read

    Dim T3

Set T3 = HMIRuntime.Tags("NewTag")

T3.Read

    Dim T4

Set T4 = HMIRuntime.Tags("NewTag_1")

T4.Read

    Dim T5

Set T5 = HMIRuntime.Tags("NewTag_2")

T5.Read

    Dim T6

Set T6 = HMIRuntime.Tags("NewTag_6")

T6.Read

字数超出中间省略

Dim I

Set I = HMIRuntime.Tags("时间")

I.Read

objExcelApp.Workbooks.Open"D:\baobiao\报表.xls"       

        If I.Value=4 Then

objExcelApp.Cells(1,6).Value=Date   

objExcelApp.Cells(3,I.value).Value=T1.value

objExcelApp.Cells(4,I.value).Value=T2.value

objExcelApp.Cells(5,I.value).Value=T3.value

objExcelApp.Cells(6,I.value).Value=T4.value

objExcelApp.Cells(7,I.value).Value=T5.value

objExcelApp.Cells(8,I.value).Value=T6.value


Dim J

        For J=5 To 27

        objExcelApp.Cells(3,J).Value=Null

        objExcelApp.Cells(4,J).Value=Null

        objExcelApp.Cells(5,J).Value=Null

        objExcelApp.Cells(6,J).Value=Null


        Next

objExcelApp.DisplayAlerts = False

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set oApp = Nothing

Else

    objExcelApp.Cells(3,I.Value).Value=T1.value

    objExcelApp.Cells(4,I.Value).Value=T2.value     

    objExcelApp.Cells(5,I.Value).Value=T3.value     

    objExcelApp.Cells(6,I.Value).Value=T4.value         

objExcelApp.Cells(7,I.value).Value=T5.value

objExcelApp.Cells(8,I.value).Value=T6.value

objExcelApp.Cells(9,I.value).Value=T7.value


objExcelApp.DisplayAlerts = False

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set oApp = Nothing     

   

End If

End If

End If

End Function


关于wincc变量用vbs写入EXCEL,这个有没有错误,能详解一下吗 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有30994条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。