程序如下：但有錯(cuò)誤！哪位大俠幫我改改??！
‘創(chuàng)建 EXCEL對(duì)象
Set objExcel = Createbbbbbb("Excel.Application")
‘ 設(shè)置EXCEL的屬性
With objExcel
‘顯示EXCEL
.Application.Visible = True
‘創(chuàng)建新的工作簿
.Application.Workbooks.Add ‘
激活一個(gè)第一個(gè)工作表
.Worksheets("Sheet1").Activate End With（這句話有錯(cuò)誤，需要定義?。。?/FONT>
下面是寫入歷史數(shù)據(jù)！也是我想問的地方，大俠們幫我改改?。。?！
‘創(chuàng)建ADO的CONNECTION對(duì)象以便建立與數(shù)據(jù)庫的連接
Set cn1 = Createbbbbbb("adodb.connection")
‘打開連接DBQ的屬性按歷史數(shù)據(jù)庫實(shí)際路徑填寫，數(shù)據(jù)庫的驅(qū)動(dòng)程序 ‘使用dbase IV驅(qū)動(dòng) cn1.open "driver={microsoft dbase driver_ (*.dbf)};DBQ=E:\rs_test\_ DLGLOG\RSVIEW"（××××××××這就話有錯(cuò)誤?。∥也粫?huì)找路徑！應(yīng)該怎么寫路徑??！總說找不到）
‘創(chuàng)建游標(biāo)
Set rs = Createbbbbbb("adodb.recordset")
‘設(shè)置SQL語言的查詢命令，在這里可以按照不同的需要編寫相應(yīng)的SQL語句
‘ 來實(shí)現(xiàn)我們的要求
SQL = "select * from 040504AW"
‘打開游標(biāo) rs.open SQL, cn1
‘將ANALOG\FT2的數(shù)據(jù)寫入EXCEL的第一列中
i=1
Do While Not rs.EOF
objExcel.sheets(1).cells(i, 1) = rs("ANALOG\FT2")
rs.movenext
i = i + 1
Loop
程序就是這樣！各位幫我試試！成功了把該過的代碼發(fā)一下！！小弟不勝感謝?。?！ <bbbbbb language=javabbbbbb> <-- leadcode('Content515399'); //--> </bbbbbb>
不用那么麻煩，AB網(wǎng)站上有在EXCEL中寫的宏程序進(jìn)行歷史記錄采集的，搬過來用。
今天我出去了，剛回來。想著對(duì)你的承諾，故給你回復(fù)。是不是要這樣的結(jié)果
由于時(shí)間緊，故程序算法不是太緊湊，但完全可以實(shí)現(xiàn)你所想要的結(jié)果。給你如下主要程序參考：
With objExcel
.Rows(1).Font.Bold = True
.Cells(1, 1).Value = "時(shí)間"
.Cells(1, 2).Value = "Main\pisjh"
.Cells(1, 3).Value = "Main\pislh"
End With
nRow = 2
mrow = 2
Do While Not rsResults.EOF
If Mid(Trim(rsResults.Fields(0).Value), 1, 10) = gTagDb("rq").Value Then
If rsResults.Fields(2).Value = 0 Then
objExcel.Cells(nRow, 2).Value = Trim(rsResults.Fields(3).Value)
objExcel.Cells(nRow, 1).Value = Trim(rsResults.Fields(0).Value)
nRow = nRow + 1
End If
If rsResults.Fields(2).Value = 1 Then
objExcel.Cells(mrow, 3).Value = Trim(rsResults.Fields(3).Value)
objExcel.Cells(mrow, 1).Value = Trim(rsResults.Fields(0).Value)
mrow = mrow + 1
End If
rsResults.MoveNext
End If
Loop
End If
有不清楚，可以回帖。 <bbbbbb language=javabbbbbb> <-- leadcode('Content521063'); //--> </bbbbbb>
能給AB網(wǎng)站這個(gè)例子的鏈接嗎？ <bbbbbb language=javabbbbbb> <-- leadcode('Content521078'); //--> </bbbbbb>
在AB的官方網(wǎng)站搜了半天，終于找到了2樓所說的例程，http://www.software.rockwell.com/support/download/detail.cfm?ID=95 <bbbbbb language=javabbbbbb> <-- leadcode('Content521454'); //--> </bbbbbb>
本篇文章來源于 中國PLC網(wǎng)|www.cniplc.com 原文鏈接：http://www.cniplc.com/jc/showbbbb?id=4566
：鞏經(jīng)理
：13915946763
：南京塞姆泵業(yè)有限公司
|
|
|
|
|
|
|
|