发布于 2015-02-28 15:30:25
11楼
objExcelApp.Worksheets(sheetname).cells(i,1).value= (oRs.Fields(0).Value)
objExcelApp.Worksheets(sheetname).cells(i,2).value= (oRs.Fields(1).Value)
objExcelApp.Worksheets(sheetname).cells(i,3).value= (oRs.Fields(2).Value)
objExcelApp.Worksheets(sheetname).cells(i,4).value= (oRs.Fields(37).Value)
去掉cstr 显示也是问号