亚洲国产精品一区二区久久hs,国产精品久久久久久久久久直播,亚洲人成色7777在线观看不卡,国产亚洲精品久久19p,免费无码又爽又刺激高潮视频

ucooper
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看ucooper的 主題 / 回貼
樓主  發表于: 2010-10-09 22:47
之前做項目的時候,查閱了大量資料,終于解決了將歸檔數據導出到excel的功能,這里將我的代碼發出來以供參考。注意,里面的一些參數需要根據你的具體需要進行修改。
本人還總結了一份技術文檔,由于這里不能上傳上傳文檔,請到我的個人博客里下載吧:
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;"                                                                '根據實際情況修改,查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"                                                                        '首先要創建這個文件
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("導出成功!!")
End  Sub

主站蜘蛛池模板: 国产午夜精品一区理论片| 国产一区二区三区不卡在线观看| 色偷偷av一区二区三区| 亚洲av色福利天堂| 凸凹人妻人人澡人人添| 成人综合伊人五月婷久久| 爱情岛论坛网址永久首页| 国产精品久久久久7777按摩| 亚洲男女内射在线播放| 亚洲av无码国产精品色午夜| 欧美黑人xxxx高潮猛交| 久久99热精品免费观看牛牛| 性欧美大战久久久久久久久| 日韩成人大屁股内射喷水| 久久天天躁狠狠躁夜夜免费观看| 国产在线精品一区二区三区| 国产精品99久久久久久董美香| 香蕉成人伊视频在线观看| 狠狠色婷婷久久一区二区| 天堂av无码av一区二区三区| 亚洲高清偷拍一区二区三区| 国产亚av手机在线观看| 精品久久久无码中文字幕| 精品国产污污免费网站入口| 久久久久久久人妻无码中文字幕爆 | 人妻少妇一区二区三区| 又粗又黑又大的吊av| 青青草原综合久久大伊人精品| 国产精品videossex国产高清| 激情内射亚洲一区二区三区 | 137肉体摄影日本裸交| 国产精品主播一区二区三区 | 国产成人精品a视频一区| 亚洲男同gay片| 四虎影视永久免费观看| 亚洲av无码乱码忘忧草亚洲人 | heyzo无码综合国产精品| 小说区 亚洲 自拍 另类| av成人午夜无码一区二区| 精品无码国产自产拍在线观看蜜| 国产激情无码一区二区|