从VB中导出一EXCEL表格，表格中的每个单元格都是按照本文类型进行显示（不管原来是属于什么数据类型）。这样就无法进行数值汇总。在属性中把单元格设置成数值类型也没有用，它还是按照文本方式显示， 必须要用鼠标双击该单元格后，该单元格才会显示为正常的数据类型。
但是我不可能真的去把所有的单元格都双击一次呀。 不知这是什么原因？从VB导出的EXCEL表格，怎么会这样呀？
原代码如下：
Dim r As Integer, c As Integer
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newxls = CreateObject("excel.application")
Set newbook = newxls.Workbooks.Add
Set newsheet = newbook.Worksheets(1)
If objrs.RecordCount > 0 Then
newxls.Visible = True
For i = 0 To DataGrid1.Columns.Count - 1
newsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption
Next i
objrs.MoveFirst
Do Until objrs.EOF
r = objrs.AbsolutePosition
For c = 0 To DataGrid1.Columns.Count - 1
newsheet.Cells(r + 1, c + 1) = DataGrid1.Columns(c)
Next c
objrs.MoveNext
Loop
End If

请高手们帮忙分析一下