Question

vb 导出excel 如何将导出的过长数字不用科学计数法来表示，直接显示出来？急……

Answer 1

对设置为文本格式就可解决你的问题。

追问

怎么设置成文本格式呀？能给出具体的方案吗？举个例子也可以，谢谢了

追答

Option Explicit

Public Function ExportData()
Dim J As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

On Error GoTo hander

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

For J = 0 To 10
xlSheet.Cells(1, J + 1) = "s" & 1111122122
Next

Exit Function
hander:
MsgBox "导出Excel时出错！"
End Function

Private Sub Command1_Click()
ExportData
End Sub

追问

我这边不是那样的 还是不行啊……
if len(Grid1.Text(nRow, 1))>10 then
'msgbox "大于10位了！"&Grid1.Text(nRow, 1)
xlSheet.Cells(nRow, 1) = Grid1.Columns.Item(nRow).Text
'xlApp.ActiveCell.NumberFormat = "@"
end if

追答

还是不行直接源码，我给你看一下。

Answer 2

操作Excel，把对应列设置为文本格式。

追问

怎么设置成文本格式呀？能给出具体的方案吗？举个例子也可以，谢谢了

追答

Excel 数据 数据有效性 在这里设置。
在导出时在前面加点儿其它字符，比如：‘之类的。