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

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

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

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

電工題庫(kù)寶典

技成電工課堂

PLC練習(xí)題

技成PLC課堂

變頻器故障查詢

技成PLC學(xué)吧

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

技成PLC網(wǎng)校

當(dāng)前位置：技成首頁(yè) > 文章中心 > 技成百科 > 通過VBS腳本將wincc數(shù)據(jù)導(dǎo)出至excel

通過VBS腳本將wincc數(shù)據(jù)導(dǎo)出至excel

劉玉蓉 發(fā)布于2014-12-11 17:12 7 0 標(biāo)簽：

目的：每單擊一次鼠標(biāo)左鍵，將一個(gè)wincc內(nèi)部變量"tag1"寫入excel表格中。次單擊鼠標(biāo)，數(shù)據(jù)存進(jìn)表格的行，其中列為單擊鼠標(biāo)的時(shí)間，第二列為當(dāng)前"tag1"的數(shù)值；第二次單擊鼠標(biāo)時(shí)，數(shù)據(jù)存進(jìn)第二行。。。依此類推， 代碼如下：但問題是功能始終實(shí)現(xiàn)不了，請(qǐng)看看這段代碼問題出在哪里了！
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byvaly)                   
Dim value,k
Set value = HMIRuntime.Tags("i")   // 變量“i”是內(nèi)部變量無(wú)符號(hào)32數(shù)，
k = value.Read                              // 記錄鼠標(biāo)單機(jī)的次數(shù)

Dim fname
fname="D: eport3.xlsx"
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open fname
objExcelApp.worksheets ("sheet1").Cells(k, 2).Value = HMIRuntime.Tags("tag1").read
objExcelApp.worksheets ("sheet1").Cells(k, 1).Value = Now

k = k + 1
HMIRuntime.Tags ("i").Write k

objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set ObjExcelApp = Nothing

End Sub

問題補(bǔ)充：
這種方法還是可以的，問題出在 i 的初始值上了，從行開始記錄 初始值需要設(shè)定為1

佳答案

你的方法有問題，試試用 還有你的定義不要用value。這是屬性詞
Set tag = HMIRuntime.Tags("i")
With objExcelApp.worksheets(sheetname)
  .cells(t,1).value=NOW
tag.read
  .cells(t,2).value=tag.value
  End With 
  Next

若有收獲，就點(diǎn)個(gè)贊吧！

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

微信掃一掃分享

閱讀與本文標(biāo)簽相同的文章

相關(guān)推薦

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