关于导出为excel的问题?

[lizhenlz]

Dim nWidth As Int16
Dim nInitWidth As Int16
Dim strValue As String
strValue = "4001,4002,4002,4002,4002,4002,4002,4002,4002,4003"
Dim xlSheet As New SpreadsheetClass()
xlSheet.ActiveSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 1)).Select()
nInitWidth = strValue.Length
nWidth = xlSheet.Selection.width()
xlSheet.Selection.Cells.f()
xlSheet.Selection.ColumnWidth = nInitWidth * 10 + nWidth
xlSheet.ActiveSheet.Cells(1, 1) = strValue
xlSheet.ActiveSheet.Export("c:\test.xls", SheetExportActionEnum.ssExportActionNone)
'------我导出之后,这里的"4001,4002,4002,4002,4002,4002,4002,4002,4002,4003"变成了"4,001,400,240,024,000,000,000,000,000,000,000,000,000",请问如何设置.这里应该为文本形式,而显示时当成了货币形式.谢了.

[juststeve]

前面加上空格

[lizhenlz]

strValue = space(1)+" 4001,4002,4002,4002,4002,4002,4002,4002,4002,4003",这样还是不行呀.请指教!

[「已注销」]

strValue = "'4001,'4002,'4002,'4002,'4002,'4002,'4002,'4002,'4002,'4003"

[黑马]

好久没有使用.net了

看能不能设置cell的数据类型？

[「已注销」]

strValue = "'4001,4002,4002,4002,4002,4002,4002,4002,4002,4003"
刚才看错了，是加一个单引号，应该可以的

[lizhenlz]

加上单引号不是变成是显示时有一个单引号了.
to blackcourser(be stronger……) :怎样设置设置cell的数据类型？

[peterlee168]

先在EXCEL里面设置单元格格式为“文本格式”或楼上说的，在前面加上单引号也行。