vb.net导出xls科学计数的简单介绍

VB导出excel的代码存在的问题，只能导出当前datagrid显示记录，且导出的身份证很多为科学计数法，怎么办

我看了一下你的代码就是 导出当前datagrid显示记录

Do While DataGrid1.Row = 0

If i = DataGrid1.Row Then Exit Do

i = DataGrid1.Row '得到DataGrid1当前行

For j = 0 To DataGrid1.Columns.Count - 1 '在DataGrid1当前行各列中循环

With xlsApp

'用长度做判断是不是身份证号，当然这个不是最好的方法，一般应该是固定那一列是身份证号，所以最好如果是第五列那么 if j=4 then，替换下面这行

if len(DataGrid1.Columns(j).Text)=18 or len(DataGrid1.Columns(j).Text)=15 then

.Cells(1, j + 1).NumberFormatLocal = "@" '单元格设置为文本

end if

.Cells(DataGrid1.Row + 1, j + 1) = DataGrid1.Columns(j).Text '填充数据

End With

Next

DataGrid1.Row = DataGrid1.Row + 1

Loop

相关问答

Q1: vb.net中datagradview 另存为excel文件的问题

Public Class Cls导入数据

Dim xlApp As New Excel.Application()

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim A = "A"

Public Function 导出到Excel(ByVal Dt表 As DataTable) As Boolean

Dim rowIndex, colIndex As Integer

rowIndex = 1

colIndex = 0

xlBook = xlApp.Workbooks().Add

xlSheet = xlBook.Worksheets("sheet1")

Dim Table As New DataTable()

Table = CreaTable()

'将所得到的表的列名,赋值给单元格

Dim Col As DataColumn

Dim Row As DataRow

For Each Col In Table.Columns

colIndex = colIndex + 1

xlApp.Cells(1, colIndex) = Col.ColumnName

Next

'得到的表所有行,赋值给单元格

For Each Row In Table.Rows

rowIndex = rowIndex + 1

colIndex = 0

For Each Col In Table.Columns

colIndex = colIndex + 1

xlApp.Cells(rowIndex, colIndex) = Row(Col.ColumnName)

Next

Next

With xlSheet

.Range(.Cells(1, 1), .Cells(1, colIndex)).Font.Name = "黑体"

'设标题为黑体字

.Range(.Cells(1, 1), .Cells(1, colIndex)).Font.Bold = True

'标题字体加粗

.Range(.Cells(1, 1), .Cells(rowIndex, colIndex)).Borders.LineStyle = 1

'设表格边框样式

End With

With xlSheet.PageSetup

.LeftHeader = "" Chr(10) """楷体_GB2312,常规""10公司名称：" ' Gsmc

.CenterHeader = """楷体_GB2312,常规""公司人员情况表""宋体,常规""" Chr(10) """楷体_GB2312,常规""10日 期："

.RightHeader = "" Chr(10) """楷体_GB2312,常规""10单位："

.LeftFooter = """楷体_GB2312,常规""10制表人："

.CenterFooter = """楷体_GB2312,常规""10制表日期："

.RightFooter = """楷体_GB2312,常规""10第P页 共N页"

End With

xlApp.SaveWorkspace()

MsgBox("保存完毕", MsgBoxStyle.Exclamation, "提示")

KillAllExcels()

'xlApp.Visible = True

End Function

Sub KillAllExcels()

Dim proc As System.Diagnostics.Process

For Each proc In System.Diagnostics.Process.GetProcessesByName("EXCEL")

proc.Kill()

Next

End Sub

end class

Q2: asp.net导出excel 电话变科学计数法了

有2个方案：

1、在导出前对数据进行处理：在电话号码前+上一个“'”(单引号),这样excel就判定该数据是字符串，就不会转化成科学计数法了。

2、可以建立一个导出文件的excel模板（excel文件是.xls，模板文件是.xlt文件），在模板里将要注入数据的单元格属性设置成字符串型就可以了。