Sub X6309X94AE11X0000d_X6309X94AE11X00000_X6309X94AE11X0000o_OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim sPro
Dim sDsn
Dim sSer
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim oItem
Dim m, n, s,i
Dim hourdate
Dim secdate
Dim k
Dim oList
Dim objExcelApp
Dim oItem2
sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=CC_0414_08_04_14_20_46_43R;"
sSer = "Data Source=.\WinCC"
sCon = sPro + sDsn + sSer
sSql = "TAG:R,'ProcessValueArchive\NewTag2','0000-00-00 00:10:00.000','0000-00-00 00:00: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
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.Fields.Count

objExcelApp.Sheets(1).Range("a"&Trim(i+1)) =oRs.Fields(0).value
objExcelApp.Sheets(1).Range("b"&Trim(i+1)) = oRs.Fields(1).value
objExcelApp.Sheets(1).Range("c"&Trim(i+1)) = FormatNumber(oRs.Fields(2).value, 1)
objExcelApp.Sheets(1).Range("d"&Trim(i+1)) = FormatNumber(oRs.Fields(3).value, 1)
objExcelApp.Sheets(1).Range("e"&Trim(i+1)) = FormatNumber(oRs.Fields(4).value, 1)
oRs.MoveNext
Next
oRs.Close
objexcelapp.activeworkbooks.save
objexcelapp.workbooks.close
objexcelapp.quit
Set objexcelapp=nothing
Set oRs = Nothing
conn.Close
Set conn = Nothing

End Sub
其中这一句objExcelApp.Sheets(1).Range("b"&Trim(i+1)) = oRs.Fields(1).value
我是这么做的objExcelApp.Sheets(1).Range("b"&Trim(i+1))=Dateadd（"H",8,"oRs.Fields(1).value"),不成功,改为Dateadd（"H",8,"&oRs.Fields(1).value&"),也不成功，上网搜了一下，试探一下，还是不行，请各位帮忙