程序如下：但有错误！哪位大侠帮我改改！！
‘创建 EXCEL对象
Set objExcel = CreateObject("Excel.Application")
‘ 设置EXCEL的属性
With objExcel
‘显示EXCEL
.Application.Visible = True
‘创建新的工作簿
.Application.Workbooks.Add ‘
激活一个第一个工作表
.Worksheets("Sheet1").Activate End With（这句话有错误，需要定义！！）
下面是写入历史数据！也是我想问的地方，大侠们帮我改改！！！！
‘创建ADO的CONNECTION对象以便建立与数据库的连接
Set cn1 = CreateObject("adodb.connection")
‘打开连接DBQ的属性按历史数据库实际路径填写，数据库的驱动程序 ‘使用dbase IV驱动 cn1.open "driver={microsoft dbase driver_ (*.dbf)};DBQ=E:\rs_test\_ DLGLOG\RSVIEW"（××××××××这就话有错误！！我不会找路径！应该怎么写路径啊！总说找不到）
‘创建游标
Set rs = CreateObject("adodb.recordset")
‘设置SQL语言的查询命令，在这里可以按照不同的需要编写相应的SQL语句
‘ 来实现我们的要求
SQL = "select * from 040504AW"
‘打开游标 rs.open SQL, cn1
‘将ANALOG\FT2的数据写入EXCEL的第一列中
i=1
Do While Not rs.EOF
objExcel.sheets(1).cells(i, 1) = rs("ANALOG\FT2")
rs.movenext
i = i + 1
Loop
程序就是这样！各位帮我试试！成功了把该过的代码发一下！！小弟不胜感谢！！！ <Script language=java > <-- leadcode('Content515399'); //--> </Script>
不用那么麻烦，AB网站上有在EXCEL中写的宏程序进行历史记录采集的，搬过来用。
今天我出去了，刚回来。想着对你的承诺，故给你回复。是不是要这样的结果
由于时间紧，故程序算法不是太紧凑，但完全可以实现你所想要的结果。给你如下主要程序参考：
With objExcel
.Rows(1).Font.Bold = True
.Cells(1, 1).Value = "时间"
.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
有不清楚，可以回帖。 <Script language=java > <-- leadcode('Content521063'); //--> </Script>
能给AB网站这个例子的链接吗？ <Script language=java > <-- leadcode('Content521078'); //--> </Script>
在AB的官方网站搜了半天，终于找到了2楼所说的例程，http://www.software.rockwell.com/support/download/detail.cfm?ID=95 <Script language=java > <-- leadcode('Content521454'); //--> </Script>
本篇文章来源于 中国PLC网|www.cniplc.com 原文链接：http://www.cniplc.com/jc/show.asp?id=4566
