我对VB不熟,请大家帮忙:以下是文档A0579中的脚本,查询多个变量,在填充数据到Eccel中时,怎样才能按第一列为时间,第二列变量1值,第三列变量2值,第四列变量3值?谢谢各位!
''填充数据到Excel中
Set oRs = oCom.Execute
m = oRs.RecordCount
If (m > 0) Then
objExcelApp.Worksheets(sheetname).cells(2,1).value=oRs.Fields(0).Name
objExcelApp.Worksheets(sheetname).cells(2,2).value=oRs.Fields(1).Name
objExcelApp.Worksheets(sheetname).cells(2,3).value=oRs.Fields(2).Name
objExcelApp.Worksheets(sheetname).cells(2,4).value=oRs.Fields(3).Name
objExcelApp.Worksheets(sheetname).cells(2,5).value=oRs.Fields(4).Name
oRs.MoveFirst
i=3
Do While Not oRs.EOF ''是否到记录末尾,循环填写表格
objExcelApp.Worksheets(sheetname).cells(i,1).value= oRs.Fields(0).Value
objExcelApp.Worksheets(sheetname).cells(i,2).value= GetLocalDate(oRs.Fields(1).Value)
objExcelApp.Worksheets(sheetname).cells(i,3).value= oRs.Fields(2).Value
objExcelApp.Worksheets(sheetname).cells(i,4).value= oRs.Fields(3).Value
objExcelApp.Worksheets(sheetname).cells(i,5).value= oRs.Fields(4).Value
oRs.MoveNext
i=i+1
Loop
oRs.Close
Else
MsgBox "没有所需数据……"
item.Enabled = True
Set oRs = Nothing
conn.Close
Set conn = Nothing
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp= Nothing
Exit Sub
End If
最佳答案
首先明白Excel里单元格Cells(2,1)表示第2行第1列
GetLocalDate(oRs.Fields(1).Value) 就是转换过的时间
这段代码只是读取一个变量的归档数据,读取多个要执行多次数据库查询
你可以参考一下下载中心的A0567文档
提问者对于答案的评价:
问题没有解决啊,能详细些吗
不过还是谢旋你的回答
原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc264244.html