vb.net 导出Excel后,格式要固定行的高度及数字转文字-线上等

如图片,现在主要有两点问题
1、行的高度,乎大乎小,我想统一成,比如14像素,要怎么写呢

2、手机号及身分证号是文字,但说excel就变数字了
比如我要指定D和M这两栏必需是文字,要怎么做呢?

图片说明

以下为我的代码
Private Sub ExcelExport_New(ByVal dt As DataTable, ByVal ProgressBar1 As Object)
ProgressBar1.Visible = True
ProgressBar1.Value = 10
'建立Excel
Dim xlApp, xlBook, xlSheet As Object
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add
xlSheet = xlBook.Worksheets(1)

    Dim row As DataRow                               '定义row为datatable的行
    Dim col As DataColumn                            '定义col为datatable的列
    Dim rowindex, colindex As Integer

    '打开sheet1那页
    xlSheet = xlApp.Worksheets("sheet1")

    '赋初值
    rowindex = 1                                        '行(原值1)
    colindex = 0                                             '列
    '写入字段名
    For Each col In dt.Columns
        colindex = colindex + 1
        xlApp.Cells(1, colindex) = col.ColumnName            '原值是1,
    Next

    '向表格中写入具体内容
    For Each row In dt.Rows
        rowindex = rowindex + 1
        colindex = 0
        For Each col In dt.Columns
            colindex = colindex + 1
            xlApp.Cells(rowindex, colindex) = row(col.ColumnName)
        Next
        ProgressBar1.Value = rowindex * (ProgressBar1.Maximum / dt.Rows.Count - 1)
    Next
    '显示Excel应用程序
    ProgressBar1.Value = 0
    ProgressBar1.Visible = False
    xlApp.Visible = True

End Sub

1个回答

你可以打开excel,然后在工具-宏(或者2007是审阅-宏)
录制一个宏,在里面设置单元格的高度
然后打开visual basic编辑器,看给你生成的代码

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐