999久久久精品国产消防器材,国产成人久久综合77777,√最新版天堂资源网在线,精品久久久久区二区8888,卡一卡二卡三乱码视频

技成培訓(xùn)網(wǎng) 技成學習APP 技成工具箱 技成企業(yè)服務(wù)

歡迎回到技成培訓(xùn)網(wǎng)

技成培訓(xùn)網(wǎng)

電工題庫寶典

技成電工課堂

PLC練習題

技成PLC課堂

變頻器故障查詢

技成PLC學吧

伺服驅(qū)動故障查詢

技成PLC網(wǎng)校

當前位置：技成首頁 > 文章中心 > 技成百科 > 幫忙看一下這段VB程序是否正確

幫忙看一下這段VB程序是否正確

劉玉蓉 發(fā)布于2014-08-25 17:45 55 0 標簽：

下面是編寫的一段VB程序，功能是將WINCC中的監(jiān)測數(shù)值傳送到EXCEL報表指定單元格中，程序如下：
On Error Resume Next 
Dim objExcelAPP,xlbook,xlsname,isOpen
xlsname="D:shengchanjilu/R2012/R2012-baobiao.xls" 
Set objExcelAPP=GetObject("Excel.Application") 
objExcelAPP.Visible=True
If TypeName(objExcelAPP)="Application" Then

For Each xlbook In objExcelAPP.Workbooks
If xlbook.FullName=xlsname Then
isOpen=True
Exit For
End If
Next
Else
objExcelAPP.Workbooks.Open "D:shengchanjilu/R2012/R2012-baobiao.xls"
End If

If isOpen=True Then

objExcelapp.Cells(13, 4).Value=HMIRuntime.Tags("TAG1").Value
objExcelapp.Cells(13, 5).Value=HMIRuntime.Tags("TAG2").Value
objExcelapp.Cells(14, 4).Value=HMIRuntime.Tags("TAG3").Value
Else
End If
我就簡單的寫了一些直接傳輸?shù)?，間接抓取的變量沒寫，觸發(fā)器為1秒，請問一下，這個程序放在全局腳本中正確嗎？為什么報表上卻沒有相應(yīng)填寫的數(shù)據(jù)呢？需不需要建立其他的連接（比如DDB連接需要添加DDB連接方式）？如果哪里不對請指教！

佳答案

一般是要先定義變量才能讀取的，如：
dim tag1
set tag1=hmiruntime.tags("tag1")
      tag1.read
你可以先不放在全局腳本下，先放在按鈕事件中調(diào)試好先，如
objExcelapp.Cells(13, 4).Value=HMIRuntime.Tags("TAG1").Value
你在寫這句腳本之前可先用msgbox HMIRuntime.Tags("TAG1").Value看看變量的值有沒有被讀到，腳本沒問題了就可以放到全局腳本中試試了。

若有收獲，就點個贊吧！

文章來源于網(wǎng)絡(luò)及文獻如有侵權(quán)請聯(lián)系站長
分享到:

微信掃一掃分享

閱讀與本文標簽相同的文章

相關(guān)推薦

最新文章 熱門文章
最新課程 免費課程
PLC資料下載 電工電氣資料下載
應(yīng)用新秀
變頻器故障代碼查詢APP
伺服故障代碼查詢APP
技成
手機APP
熱門標簽