對(duì)VB不熟，請(qǐng)大家?guī)兔Γ阂韵率俏臋nA0579中的腳本，查詢多個(gè)變量，在填充數(shù)據(jù)到Eccel中時(shí)，怎樣才能按列為時(shí)間，第二列變量1值，第三列變量2值，第四列變量3值？

""填充數(shù)據(jù)到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                           ""是否到記錄末尾，循環(huán)填寫表格   
         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 "沒有所需數(shù)據(jù)……"
     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) 就是轉(zhuǎn)換過的時(shí)間
這段代碼只是讀取一個(gè)變量的歸檔數(shù)據(jù)，讀取多個(gè)要執(zhí)行多次數(shù)據(jù)庫查詢
可以參考一下下載中心的A0567文檔