建站
咨詢
售后
建站咨詢
新聞中心
iFIX用VB腳本編的登錄界面窗體怎么連接Access數(shù)據(jù)庫，要具體的VB語句，在線等。。。
Private Sub 歷史報表Btn_Click()
成都創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站建設、做網(wǎng)站與策劃設計,長泰網(wǎng)站建設哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設十載,網(wǎng)設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:長泰等地區(qū)。長泰做網(wǎng)站價格咨詢:18980820575
'注釋: 1。該程序需要安裝ADO 2.0目標庫并在本機注冊
' 2。Microsoft ActiveX Data Objects 2.1 Library 必須被引用 (Office 2000)
' 3。Microsoft Excel 9.0 object libraries 必須被引用 (Office 2000)
' 4。劃===處可根據(jù)具體報表修改
Dim strQuery As String
Dim c, i As Integer
Dim r As Integer
Dim Rpt_xls As Excel.Application
Dim dnm(4) As String
Dim MyDate, MyMonth, MyDay, MyHour, MyMinute, MySecond
Dim stDate, stMonth, stDay, stHour, stinute, stSecond, sttime As String
Dim StartTime, EndTime, Duration, DisplayDay, DisplayMonth As String
'++===================================================================
'報表中的 TAG
Dim Items As Integer
dnm(1) = "AI1"
dnm(2) = "AI2"
dnm(3) = "AI3"
dnm(4) = "AI4"
'從歷史庫中取得域項， 2 - DATATIME, VALUE, TAG 共三項
'--====================================================================
stDate = Date$
sttime = Time$
StartTime = stDate " 00:00:00"
EndTime = stDate + " " + sttime
Set Rpt_xls = New Excel.Application
Rpt_xls.Visible = True
'++============================================================================
'打開的報表文件名
Dim OutReportFile As String
Dim Rpt_f2 As String
Rpt_f2 = "d:\Dynamics\App\HIST"
Rpt_xls.Workbooks.Open Rpt_f2 ".XLS"
Rpt_xls.Sheets("Sheet1").Select
Range("e1").Select
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
Cells(1, 4).Value = stDate "-" sttime
' Rpt_xls.ActiveWorkbook.SaveAs (Rpt_f2 stDate)
'++==========================================================================
Dim cnADO As New ADODB.Connection
Dim rsADO As Recordset
Set cnADO = New ADODB.Connection
cnADO.ConnectionString = "DSN = FIX Dynamics Historical Data; UID =; PWD = ;"
cnADO.Open "FIX Dynamics Historical Data", "", ""
'============================================================================
'查詢，根據(jù)報表修改。注意，在“Select VALUE FROM mynd“中，mynd是當前SCADA節(jié)點名。
For i = 1 To 4
r = 3
strQuery = "Select VALUE FROM mynd " _
"WHERE (TAG='" dnm(i) "'and " _
"INTERVAL = '00:30:00' and " _
"DATETIME = {ts '" StartTime "'} and " _
"DATETIME = {ts '" EndTime "'})"
'--===========================================================================
MsgBox (strQuery)
Set rsADO = New ADODB.Recordset
rsADO.Open strQuery, cnADO, adOpenForwardOnly, adLockBatchOptimistic
rsADO.MoveFirst
Rpt_xls.Columns("a").Select
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
While rsADO.EOF True
' MsgBox ("有記錄")
Cells(r, i + 1).Value = rsADO.Fields(0)
Cells(r, i + 1).NumberFormatLocal = "0.00"
r = r + 1
rsADO.MoveNext
Wend
MsgBox (r)
Next i
Set cnADO = Nothing
' Rpt_xls.ActiveSheet.PageSetup.Orientation = xlPortrait 'xlLandscape
' Rpt_xls.ActiveSheet.PageSetup.PaperSize = xlPaperA4
' Rpt_xls.ActiveSheet.PrintOut
' Rpt_xls.DisplayAlerts = False
Rpt_xls.ActiveWorkbook.Save
' OutReportFile = Rpt_f2 "_00" MyMonth MyDay
' Rpt_xls.ActiveWorkbook.SaveAs OutReportFile
Rpt_xls.ActiveWorkbook.SaveAs (Rpt_f2 stDate)
Rpt_xls.Quit
Rpt_xls.DisplayAlerts = True
Set Rpt_xls = Nothing
End Sub
Private Sub 歷史數(shù)據(jù)庫Btn_Click()
'注釋: 1。該程序需要安裝ADO 2.0目標庫并在本機注冊
' 2。Microsoft ActiveX Data Objects 2.1 Library 必須被引用 (Office 2000)
' 3。Microsoft Excel 9.0 object libraries 必須被引用 (Office 2000)
' 4。劃===處可根據(jù)具體報表修改
Dim strQuery As String
Dim c As Integer
Dim r As Integer
Dim Intyexcel As Excel.Application
Dim MyDate, MyMonth, MyDay, MyTime, MyHour, MyMinute, MySecond
Dim StartTime, EndTime, Duration, DisplayDay, DisplayMonth As String
'從歷史庫中取得域項， 2 - DATATIME, VALUE, TAG 共三項
Items = 2
'--====================================================================
MyDate = Format(Now(), "yyyy-mm-dd")
MyTime = Format(Now(), "h:m:s")
StartTime = MyDate " " "00:00:00"
EndTime = Now()
'++==========================================================================
' strQuery = "Select value from Fix " + _
' " Where DATETIME ={ts '" + StrStarTime + "'} AND " + _
' "DATETIME ={ts '" + StrEndTime + "'} AND " + _
' "Tag = " " '" HisDate5(i, 0) "'"
'查詢，根據(jù)報表修改
strQuery = "Select * From MYND " + _
"WHERE (DATETIME = {ts '" StartTime "'} and " + _
"DATETIME = {ts '" EndTime "'}) and " + _
"(tag = 'AI1')" + _
"and INTERVAL = '00:30:00' "
'--===========================================================================
Dim cnADO As New ADODB.Connection
Dim rsADO As Recordset
Set cnADO = New ADODB.Connection
cnADO.ConnectionString = "DSN = FIX Dynamics Historical Data; UID = ; PWD = ;"
cnADO.Open "FIX Dynamics Historical Data", "", ""
Set rsADO = New ADODB.Recordset
' Rs.Open strQuery, Cn, adOpenStatic, 3, adCmdText
rsADO.Open strQuery, cnADO, adOpenForwardOnly, adLockBatchOptimistic
' rsADO.MoveFirst
'++============================================================================
'打開的報表文件名
Dim Rpt_xls As Excel.Application
Dim OutReportFile As String
Dim Rpt_f1 As String
Set Rpt_xls = New Excel.Application
Rpt_xls.Visible = True
Rpt_f1 = "d:\Dynamics\App\rt1"
Rpt_xls.Workbooks.Open Rpt_f1 ".XLS"
' Rpt_xls.ActiveWorkbook.SaveAs (Rpt_f1 stDate)
'===============================================================================
Rpt_xls.Sheets("Sheet2").Select
Rpt_xls.Range("E1").Select
r = 3
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
Cells(1, 5).Value = EndTime
While rsADO.EOF True
If rsADO(c) "" Then
Cells(r, 1) = rsADO.Fields(0)
Cells(r, 2) = rsADO.Fields(1)
Cells(r, 3) = rsADO.Fields(2)
Cells(r, 4) = rsADO.Fields(3)
Cells(r, 5) = rsADO.Fields(4)
Cells(r, 6) = rsADO.Fields(5)
Cells(r, 7) = rsADO.Fields(6)
Cells(r, 8) = rsADO.Fields(7)
Cells(r, 9) = rsADO.Fields(8)
End If
r = r + 1
rsADO.MoveNext
Wend
' Intyexcel.Sheets("Sheet1").Select
' Intyexcel.ActiveSheet.PageSetup.Orientation = xlPortrait 'xlLandscape
' Intyexcel.ActiveSheet.PageSetup.PaperSize = xlPaperA4
' Intyexcel.ActiveSheet.PrintOut
' Intyexcel.DisplayAlerts = False
' Intyexcel.ActiveWorkbook.Save
' OutReportFile = InReportFile "_00" MyMonth MyDay
' Intyexcel.ActiveWorkbook.SaveAs OutReportFile
' Intyexcel.Quit
' Intyexcel.DisplayAlerts = True
' Set Intyexcel = Nothing
Set cnADO = Nothing
End Sub
Private Sub 實時報表Btn_Click()
'注釋: 1。該程序需要安裝ADO 2.0目標庫并在本機注冊
' 2。Microsoft ActiveX Data Objects 2.1 Library 必須被引用 (Office 2000)
' 3。Microsoft Excel 9.0 object libraries 必須被引用 (Office 2000)
' 4。劃===處可根據(jù)具體報表修改
Dim c As Integer
Dim r As Integer
Dim Rpt_xls As Excel.Application
Dim MyDate, MyMonth, MyDay, MyHour, MyMinute, MySecond
Dim stDate, stMonth, stDay, stHour, stinute, stSecond, sttime As String
Dim StartTime, EndTime, Duration, DisplayDay, DisplayMonth As String
'--====================================================================
stDate = Date$
sttime = Time$
StartTime = stDate " 09:40:00"
EndTime = stDate + " " + sttime
r = 1
Items = 8
Set Rpt_xls = New Excel.Application
Rpt_xls.Visible = True
'++============================================================================
'打開的報表文件名
Dim OutReportFile As String
Dim Rpt_f1 As String
Rpt_f1 = "d:\Dynamics\App\rt1"
Rpt_xls.Workbooks.Open Rpt_f1 ".XLS"
Rpt_xls.ActiveWorkbook.SaveAs (Rpt_f1 stDate)
'===============================================================================
Rpt_xls.Sheets("Sheet1").Select
Rpt_xls.Range("E1").Select
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
Cells(1, 5).Value = stDate sttime
'================================================================================
Cells(3, 2).Value = Fix32.mynd.ai1.f_cv
Cells(3, 3).Value = Fix32.mynd.ai2.f_cv
Cells(3, 4).Value = Fix32.mynd.ai3.f_cv
Cells(3, 5).Value = Fix32.mynd.ai4.f_cv
Range("B3:E3").Select
Selection.NumberFormatLocal = "0.00_ "
'================================================================================
Rpt_xls.ActiveSheet.PageSetup.Orientation = xlPortrait 'xlLandscape
Rpt_xls.ActiveSheet.PageSetup.PaperSize = xlPaperA4
'Rpt_xls.ActiveSheet.PrintOut
Rpt_xls.DisplayAlerts = False
Rpt_xls.ActiveWorkbook.Save
OutReportFile = Rpt_f1 "_00" MyMonth MyDay
Rpt_xls.ActiveWorkbook.SaveAs OutReportFile
Rpt_xls.Quit
Rpt_xls.DisplayAlerts = True
Set Rpt_xls = Nothing
End Sub
excel中VBA有哪些作用？哪里有教程??？
分類: 電腦/網(wǎng)絡 軟件
解析:
闡述了當前自動化軟件的技術特點和發(fā)展趨勢，并介紹了在iFIX自動化軟件中使用VBA訪問歷史和實時數(shù)據(jù)的機制。通過一段使用VBA語言編寫的程序，實現(xiàn)向Excel輸出歷史數(shù)據(jù)，生成歷史報表的實例，說明了VBA語言在自動化軟件中的應用。
1、自動化軟件的發(fā)展趨勢
自動化軟件主要是指那些為用戶提供人機操作界面(HMI)的開發(fā)和運行環(huán)境的軟件，有些軟件還能夠提供回路控制功能，用戶可以實現(xiàn)基于PC的控制方案。自動化軟件應當具備如下的主要功能及特征：工業(yè)過程的動態(tài)可視化；數(shù)據(jù)采集和管理；過程監(jiān)控和報警；報表和操作記錄功能；系統(tǒng)安全等級化管理；為其他企業(yè)級程序提供實時和歷史數(shù)據(jù)；簡單的回路調節(jié)；批量控制等。
近年來，隨著計算機和網(wǎng)絡技術的發(fā)展與應用，自動化軟件的發(fā)展也呈現(xiàn)如下的發(fā)展趨勢。
1.1 開放和標準化
近年來，許多自動化軟件廠商把通用的標準化編程語言，如微軟的VBA(Visual Basic for Applications)集成在自己軟件的開發(fā)環(huán)境中。VBA與VB(Visual Basic)極為相似，只是不能編譯成可執(zhí)行文件，這就為眾多熟悉VB的用戶提供了一個編程環(huán)境。用戶在VBA環(huán)境中編寫程序，可以使用DDE，ActiveX控件，ODBC，COM／DCOM 等技術使得自動化軟件演變成開放的軟件平臺，在軟件功能不能滿足用戶特殊需要時，用戶可以根據(jù)自己的需要進行二次開發(fā)。
同時，OPC(OLE for Process Contro1)技術也是自動化軟件的一個熱點。OPC是Microsoft公司的對象鏈接和嵌入OLE／COM技術在過程控制方面的應用，為工業(yè)控制領域提供了標準的數(shù)據(jù)訪問機制。
1.2 網(wǎng)絡化
隨著Inter／Intra的普及，自動化軟件又集成了基于TCP／IP協(xié)議的網(wǎng)絡功能，使其成為協(xié)作生產制造過程中的核心系統(tǒng)，實現(xiàn)了企業(yè)網(wǎng)絡環(huán)境下實時數(shù)據(jù)的管理、實時流程查看、實時趨勢瀏覽、報警記錄與查看、報表數(shù)據(jù)存儲、歷史趨勢存儲與查看、生產過程報表生成、生產統(tǒng)計報表生成等功能，從而實現(xiàn)過程控制系統(tǒng)與信息系統(tǒng)的網(wǎng)絡集成。用戶可以通過IE瀏覽器登錄自動化軟件的Web Server服務器，實現(xiàn)遠程瀏覽生產過程。
1.3 管理控制一體化
生產管理信息系統(tǒng)是大型企業(yè)重點建設的項目，隨著大型數(shù)據(jù)庫技術的日益成熟，自動化軟件成為全廠范圍內信息收集和集成的工具。在未來企業(yè)的信息化進程中，自動化軟件將成為硬件設備與生產管理信息系統(tǒng)的橋梁。因為自動化軟件能為生產管理信息系統(tǒng)提供生產過程的實時和歷史數(shù)據(jù)，而生產管理信息系統(tǒng)叉對生產過程有著指導作用。
2、VBA在自動化軟件中的應用
下面，以iFIX軟件為例，通過VBA編寫的腳本程序，實現(xiàn)向Excel輸出歷史數(shù)據(jù)的實例來具體說明VBA在自動化軟件中的應用。
2.1 iFIX軟件簡介
iFIX軟件是GE自動化軟件產品家族中的一個基于Windows的HMI／SCADA組件。iFIX是基于開放的和組件技術的產品，專為在工廠級和商業(yè)系統(tǒng)之間提供易于集成和協(xié)同工作的設計環(huán)境。iFIX中還加入了OPC，VBA，ActiveX，DDE，ODBC等工業(yè)標準化技術，可以提供一個強大的開發(fā)環(huán)境，實現(xiàn)用戶的特殊需求。
2.2 iFIX軟件中VBA的應用實例
a) iFIX的數(shù)據(jù)訪問機制。iFIX中的數(shù)據(jù)分為實時數(shù)據(jù)庫和歷史數(shù)據(jù)庫，這2種數(shù)據(jù)庫的訪問方法不同，對于實時數(shù)據(jù)庫，iFIX的VBA項目中提供了各種iFIX對象，利用這些對象，就可以方便地在VBA中實現(xiàn)對iFIX的控制功能；對于歷史數(shù)據(jù)庫，可以訪問關系數(shù)據(jù)庫來獲得歷史數(shù)據(jù)。對于這些關系數(shù)據(jù)庫，各種編程語言大多都提供了相應的數(shù)據(jù)控件來訪問，在VBA 中，通常采用ADO對象模型來訪問這些歷史數(shù)據(jù)庫。
b) ADO Data控件使用Microsoft ActiveX數(shù)據(jù)對象(ADO)來快速建立數(shù)據(jù)綁定的控件和數(shù)據(jù)提供者之間的連接。數(shù)據(jù)綁定控件是任何具有“數(shù)據(jù)源”屬性的控件。數(shù)據(jù)提供者可以是任何符合ODBC規(guī)范的數(shù)據(jù)源。
c) 利用VBA實現(xiàn)Excel報表。通過編寫VBA腳本程序，可以實現(xiàn)向Excel輸出歷史數(shù)據(jù)，生成Excel報表。其觸發(fā)方式有2種：一種是通過iFIX的調度程序，以固定的時間或事件來啟動VBA腳本程序，生成報表；還可以直接使用VBA生成用戶操作界面，用戶可以輸入開始時間，間隔等參數(shù)，由用戶點擊按鈕啟動VBA腳本程序，生成報表。這2種方式在程序上大同小異，其主要部分VBA腳本程序如下。其中程序將歷史數(shù)據(jù)、時間、TAG名稱等參數(shù)送到Excel的Sheet2中，用戶可以將Sheet1作為報表版面，通過編輯版面格式，引用Sheet2數(shù)據(jù)等方式，形成最終報表。
根據(jù)用戶要求定義所要查詢的時間段和變量名稱
Dim MyDate，StartTime，EndTime As String Dim Tagl，Tag2 As String
Tagl＝“TIC101．F_CV”
Tag2＝“TIC102．F_CV”
MyDate＝Format(Now()，“yyyy-mm—dd”)
StartTime＝MyDate“ ” “0:00:00”
EndTime＝MyDate“ ” “23:OO:OO”
使用ADO對象來訪問ODBC數(shù)據(jù)庫，用SQL語盲查詢歷史數(shù)據(jù)
strQuerySamp＝“Select Datetime，Value，Tag From Fix Where Mode＝‘Sample’and (TAG＝‘ “＆ Tagl ”‘or TAG=’” Tag2 ) and Interval＝‘ 01:00:00’and (Datetime) ＞＝{ts‘“ StartTime ”’ )and Datetime＜＝{ts‘“ EndTime ”’})”
Dim ADO As New ADODB．Connection
Dim rsADO As Recordset
Set ADO=New ADODB．Connection
ADO．ConnectionString＝“ DSN= FIX Dynamics Historical Data；UID＝sa；PWD= ；”
AD0．Open “FIX Dynamics Historical Data”，“sa”，“”
Set rsADO— New ADODB．Recordset
rsADO．Open strQuerySamp，ADO，adOpenForwardOnly，adLockBatchOptimistic
調用Excel，將歷史數(shù)據(jù)寫入打開的Excel報表文件
Dim 0utReport File，InReportFile As String
Set Intyexcel= New Excel.Application
InReportFile-”C：＼data＼HisReport“
Intyexce1．Workbooks．Open InReportFile “．XLS”
Intyexce1．Sheets(“Sheet2”)．Select
While rsADO．EOF True
With Intyexce1．Worksheets(2)
For C＝0 To Items
If rsADO(c)= “ ”Then ．Cells(r，C + 1)．Value= rsADO(c)
Next C
r； r+ 1
rsADO．M oveNex
End With
W end
關閉Excel，保存報表文件
OutReportFile=InRep0rtFile “_” MyDate
Intyexce1． ActiveW orkbook． SaveAs OutReportFile
Intyexce1．Quit
Set Intyexcel=Nothing
Set ADO==Nothing
3、VBA應用的注意事項與展望
集成了VBA編程語言的自動化軟件，變成了標準化的、開放的軟件開發(fā)平臺，這使得自動化軟件本身具有了無限的開放性和可擴展性。但同時也帶來一些問題。首先，開發(fā)人員要確保VBA腳本程序的可靠和精簡。VBA程序要經過嚴格和全面的測試，并要編寫出錯處理程序，保證生產過程控制的萬無一失。其次，目前VBA程序還不能編寫多線程程序，開發(fā)人員要選擇恰當?shù)挠|發(fā)方式，避免發(fā)生沖突。
總之，隨著最終用戶變得更加成熟以及對自動化軟件的更加了解，他們將通過編寫程序的方式來針對其過程及系統(tǒng)進行更多的定制，以便能夠滿足其需求。自動化軟件將不斷為用戶提供這樣的安全可靠的技術手段。
參考文獻
[1] 劉恩濤，趙耀峰．Visual Basic6．0編程技術與實例分析，北京：中國水利水電出版杜，1999．455～456，472～478，479～482
[2] 劉炳文，張紳．Visual Basic程序設計——數(shù)據(jù)庫篇．北京：人民郵電出版社。1999．196～198，224～232，248～251
詳細教程：whzx.tzr/read.php?wid=455
什么是非線性動力學？
非線性動力學，是物理學的思維進入傳統(tǒng)方法所不能解決的問題的一座豐碑。也是非常有前途的工具學科，它為大數(shù)據(jù)時代提供潛在的分析引擎。為什么說非線性，因為物理之外的系統(tǒng)大多數(shù)不能用線性系統(tǒng)表述（詳情請見《動力學是如何做預測的》）。動力學的核心使命是預測系統(tǒng)的變化，非線性動力學在這點上也是一樣的。一個經典的非線性動力學系統(tǒng)具有標準的表述形式：預測一個系統(tǒng)的未來，你需要知道它在微小時間尺度里的性質并列出動力學方程x是一個向量（vector），它所具有的分量個數(shù)即系統(tǒng)的維度。維度是動力學系統(tǒng)的最基本屬性 。它決定系統(tǒng)的復雜性，及其可能具有的基本性質。 還有，我們有多大把握預測系統(tǒng)的未來。高維空間絕非之存在于宇宙之邊（廣義相對論）或者加速器的深處（弦論），而是你我的生活中處處皆是。用圖形的思維， 講述復雜性是如何隨著維度升高而產生的，同時，龐加萊，秦皇或者凱恩斯又是如何聯(lián)系起來的。最簡單的系統(tǒng)是一維系統(tǒng)，預測一個一維的非線性系統(tǒng)，往往只需抓住一個關鍵性信息-定點。一維系統(tǒng)與定點（Fix Point） “簡單系統(tǒng)偏好平衡”馬爾薩斯人口論合不合理？18世紀末，在工業(yè)革命前夜的英國，一個叫做馬爾薩斯的偉大思想家提出了這樣一個困擾了人類幾個實的問題： 人類的人口呈指數(shù)增長，而食物的總量至多成代數(shù)增長， 所以當人口的增長超過食物，人類將不可避免的陷入饑荒，疾病和戰(zhàn)爭。而普遍性的貧窮，是人類文明的宿命。這個理論解釋了為什么許多古代文明陷入發(fā)展停滯的泥沼，從埃及，兩河領域到古中國。
ifix報表怎么做
在VBA中引用Microsoft Excel 11.0 Object Library和Microsoft ADO 6.0 Library。在畫面中添加個按鈕。復制以下代碼：
‘－－－－－－－－－－開始復制(不包括此行)－－－－－－－－－－－－－－
Option Explicit
Dim rsADO As ADODB.Recordset
Dim cnADO As ADODB.Connection
Private Sub Command1_Click()
Dim StrDir As String
StrDir = "E:\"
Dim i As Long
Dim Sql As String
Sql = "SELECT * FROM THISNODE"
Set cnADO = New ADODB.Connection
Set rsADO = New ADODB.Recordset
cnADO.ConnectionString = "rovider = Microsoft OLE DB Provider for ODBC Drivers;DSN=FIX Dynamics Real Time Data;UID=WD="
cnADO.Open
rsADO.CursorLocation = adUseClient
rsADO.Open Sql, cnADO, adOpenDynamic, adLockUnspecified, -1
If rsADO.RecordCount = 0 Then
MsgBox "無數(shù)據(jù)！", vbOKOnly + vbInformation, "信息"
Set cnADO = Nothing
Set rsADO = Nothing
Exit Sub
End If
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(StrDir "\報表.xls")'需要文件(E:\報表.xls)
Set xlSheet = xlBook.Worksheets(1)
For i = 1 To rsADO.RecordCount
xlSheet.Cells(i, 1) = rsADO.Fields(1).Value ""
xlSheet.Cells(i, 2) = rsADO.Fields(2).Value ""
xlSheet.Cells(i, 3) = rsADO.Fields(3).Value ""
xlSheet.Cells(i, 4) = rsADO.Fields(4).Value ""
Next i
xlApp.Visible = True
xlApp.DisplayAlerts = False
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Set cnADO = Nothing
Set rsADO = Nothing
End Sub
‘－－－－－－－－－－結束復制(不包括次行)－－－－－－－－－－－－－－
注意：1.iFix歷史數(shù)據(jù)庫只支持讀90天的數(shù)據(jù)，在SQL語句中限定時間即可。
2.也可以讀取其他數(shù)據(jù)源的數(shù)據(jù)，如ACCESS、SQL SERVER等，只要改一下ConnectionString。
網(wǎng)站題目：包含fixdynamics的詞條
網(wǎng)頁網(wǎng)址：http://www.dlmjj.cn/article/doiojhe.html
