发布于 2008-04-22 10:46:31
0楼
objExcelApp.Sheets(1).Range("A"&Trim(i)) = FormatNumber(oRs.Fields(2).value, 1)
objExcelApp.Sheets(1).Range("B"&Trim(i)) = FormatNumber(oRs.Fields(3).value, 1)
oRs.MoveNext'好像这一句没起作用,因为我又加上一列时间,发现这一列的时间都是一样的 ,记录集没移动
我的邮箱 308747509@qq.com