国产CHINESE男男GAYGAY免费网站_日本在线一区二区三区_欧美大屁股xxxx_国产xxx精品视频大全_一区二区视频国产_人人爱国产

ucooper
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看ucooper的 主題 / 回貼
樓主  發(fā)表于: 2010-10-09 22:47
之前做項(xiàng)目的時(shí)候,查閱了大量資料,終于解決了將歸檔數(shù)據(jù)導(dǎo)出到excel的功能,這里將我的代碼發(fā)出來(lái)以供參考。注意,里面的一些參數(shù)需要根據(jù)你的具體需要進(jìn)行修改。
本人還總結(jié)了一份技術(shù)文檔,由于這里不能上傳上傳文檔,請(qǐng)到我的個(gè)人博客里下載吧:
http://www.ucooper.com/wincc-summary.html

Sub  OnLButtonDown(ByVal  Item,  ByVal  Flags,  ByVal  x,  ByVal  y)                                                    
Dim  sPro,sDsn,sSer,sCon,sSql,oRs,conn,oCom,oItem,m,n,s,i,hourdate,secdate  
Dim  k,oList,objExcelApp,oItem2,dt1,dt2,dstr1,dstr2,dstr3,dstr4
sPro  =  "Provider=WinCCOLEDBProvider.1;"
sDsn  =  "Catalog=CC_tanks_09_07_14_10_38_56R;"                                                                '根據(jù)實(shí)際情況修改,查SQLSERVER
sSer  =  "Data  Source=.\WinCC"
sCon  =  sPro  +  sDsn  +  sSer
sSql  =  "TAG:R,'tanks\aa','2009-07-16  12:30:00.000','2009-07-16  13:00:00.000'"      'tanks是歸檔名  aa  是變量名
MsgBox  "Open  with:"  &  vbCr  &  sCon  &  vbCr  &  sSql  &  vbCr
Set  conn  =  CreateObject("ADODB.Connection")
conn.ConnectionString  =  sCon
conn.CursorLocation  =  3
conn.Open
Set  oRs  =  CreateObject("ADODB.Recordset")
Set  oCom  =  CreateObject("ADODB.Command")
oCom.CommandType  =  1
Set  oCom.ActiveConnection  =  conn
oCom.CommandText  =  sSql
Set  oRs  =  oCom.Execute
n=oRs.RecordCount
MsgBox(n)
'oRs.MoveFirst
Set  objexcelApp=CreateObject("excel.application")
objexcelApp.visible=True
objexcelapp.workbooks.open"d:\book.xls"                                                                        '首先要?jiǎng)?chuàng)建這個(gè)文件
objExcelApp.Sheets(1).Range("a"&Trim(1))  =oRs.Fields(0).Name
objExcelApp.Sheets(1).Range("b"&Trim(1))  =  oRs.Fields(1).Name
objExcelApp.Sheets(1).Range("c"&Trim(1))  =  oRs.Fields(2).Name
objExcelApp.Sheets(1).Range("d"&Trim(1))  =  oRs.Fields(3).Name
objExcelApp.Sheets(1).Range("e"&Trim(1))  =  oRs.Fields(4).Name
For  i=1  To  oRs.RecordCount
'NewDate  =  DateAdd("h",  8,  "FormatNumber(oRs.Fields(1).value,  1)")
objExcelApp.Sheets(1).Range("a"&Trim(i+1))  =oRs.Fields(0).value
objExcelApp.Sheets(1).Range("b"&Trim(i+1))  =DateAdd("h",+8,oRs.Fields(1).value)
objExcelApp.Sheets(1).Range("c"&Trim(i+1))  =oRs.Fields(2).value
objExcelApp.Sheets(1).Range("d"&Trim(i+1))  =oRs.Fields(3).value
objExcelApp.Sheets(1).Range("e"&Trim(i+1))  =oRs.Fields(4).value
oRs.MoveNext
Next
oRs.Close
Set  oRs  =  Nothing
conn.Close
Set  conn  =  Nothing  
objexcelapp.activeworkbook.save
objexcelapp.workbooks.close
'Set  objexcelapp.workbooks=Nothing
objexcelapp.quit
MsgBox("aa")
Set  objexcelapp=Nothing
MsgBox("bb")
MsgBox("導(dǎo)出成功!!")
End  Sub

主站蜘蛛池模板: 国产精品99久久久久久似苏梦涵 | 永久91嫩草亚洲精品人人 | 深夜免费 | 欧美性视频精品 | 国内免费无码自拍视频网 | 国产一区二区不卡 | 国产91对白在线播放九色 | 91精品国产自产在线老师啪 | jizzjizzjizz亚洲熟妇无码 | 日本爱爱网 | 国产精品黄色小视频 | 久久激情免费视频 | 网红主播大秀福利视频日韩精品 | a在线亚洲男人的天堂 | 国产91精品久久久久久久 | 91日韩久久| 国产XXXX做受性欧美88 | 四虎影院中文字幕 | 欧美深夜视频 | 久久综合亚洲色hezyo国 | 午夜熟女插插XX免费视频 | 午夜麻豆| 火之迷恋三级无删减视频 | 91久久天天躁狠狠躁夜夜 | 国产成人AV无码永久免费一线天 | 97国产一区| 欧美激情综合亚洲一二区 | 2021精品国产综合久久 | 久久久久久自慰出白浆 | 91麻豆6部合集magnet | 天天综合7799精品影视 | 埃博拉病毒在线观看 | 色天天天综合色天天 | 啄木乌法国一区二区三区 | 国产成人精品久久免费动漫 | 人妻18毛片A级毛片免费看 | 欧美日韩无线码在线观看 | 日本在线视频www | 国产成人亚洲人欧洲 | 好硬好湿好大再深一点动态图 | 久久精品免费视频观看 |