在oRs.MoveFirst這句的前后加了：
xlsApp.Cells(10, 2).Value = 6
MsgBox "Open with1:" & m
If (m > 0) Then
MsgBox "Open with2:" & m

oRs.MoveFirst
MsgBox "Open with3:" & m
       運行時出了Open with2:5。但是沒出后一個Open with3:；所以我判斷是到oRs.MoveFirst停止運行的。并且xls表上，也只在10B寫了個6，其他地方都空著。

       下面是源代碼：
       Sub OnClick(ByVal Item)                        
Dim xlsApp
Dim sDsn
Dim sSer
Dim sCon
Dim sSql
Dim conn
Dim oRs
Dim oCom
Dim sPro
Dim m, n, s
Dim a, b, c

sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=CC_ceepc_cs_14_01_15_06_41_10R;"
sSer = "Data Source=CEEPC-33WINCC"
sCon = sPro + sDsn + sSer

sSql = "Tag:R,("ProcessValueArchive氨氣流量";"ProcessValueArchive頻率反饋2"),"2014-04-3 18:24:00.000","2014-04-3 20:28:00.000""

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
m = oRs.Fields.Count
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
xlsApp.Workbooks.Open "C:UsersAuserDesktopss.xls"

xlsApp.Cells(10, 2).Value = 6

MsgBox "Open with1:" & m

If (m > 0) Then

MsgBox "Open with2:" & m

oRs.MoveFirst

MsgBox "Open with3:" & m
n = 1
MsgBox "Open with4:" & m
xlsApp.Cells(1, 1).Value = oRs.Fields(0).Name
xlsApp.Cells(1, 2).Value = oRs.Fields(1).Name
xlsApp.Cells(1, 3).Value = oRs.Fields(2).Name
xlsApp.Cells(1, 4).Value = oRs.Fields(3).Name
xlsApp.Cells(1, 5).Value = oRs.Fields(4).Name
Do While Not oRs.EOF
n = n + 1
xlsApp.Cells(n, 1).Value = oRs.Fields(0).Value
xlsApp.Cells(n, 2).Value = oRs.Fields(1).Value
xlsApp.Cells(n, 3).Value = FormatNumber(oRs.Fields(2).Value, 2)
xlsApp.Cells(n, 4).Value = Hex(oRs.Fields(3).Value)
xlsApp.Cells(n, 5).Value = Hex(oRs.Fields(4).Value)
oRs.MoveNext
Loop
xlsApp.ActiveWorkBook.Save
xlsApp.Workbooks.Close
xlsApp.Quit
Set xlsApp = Nothing
End If
oRs.Close
Set oRs = Nothing
conn.Close
Set conn = Nothing

End Sub

我對以上代碼還有2個問題，幫忙解答一下：
1、我安裝了wincc7.0就可以使用Provider=WinCCOLEDBProvider.1；不需要再安裝WinCC OLE DB吧。
2、ProcessValueArchive是我變量記錄中的歸檔名稱，用戶歸檔沒有加變量。

佳答案

請參考
 https://www.ad.siemens.com.cn/download/searchResult.aspx?searchText=A0048
A0048“WinCC V6 使用技巧”演示項目及使用說明(2006.08.18)    
DemoV6畫面PA7_bld04.pdl，PA7_bld05.pdl中vbs訪問變量歸檔的方法