none
VB.net 操作Excel写入单元格中的数据无法显示完全 RRS feed

  • 问题

  • VB.net 操作Excel写入单元格中的数据无法显示完全,即我写了大概10行×10列的数据。确定每个单元格都写入了数据的,但是这些单元的后面部分数据不能够显示在单元格中,前面部分数据都可以显示数据,在后面的每行数据中就是最后面的几个数据没有。这行的前面单元格中数据都有,在写入的时候我看到一个奇怪的现象。数据我看到写入了,然后一闪数据没了。但是用程序读取这些没有正常显示数据的单元格,结果显示这些单元中是存在数据的,。请高手帮忙解答。谢谢
    2011年5月10日 15:10

答案

  • VB.net 操作Excel写入单元格中的数据无法显示完全,即我写了大概10×10列的数据。确定每个单元格都写入了数据的,但是这些单元的后面部分数据不能够显示在单元格中,前面部分数据都可以显示数据,在后面的每行数据中就是最后面的几个数据没有。这行的前面单元格中数据都有,在写入的时候我看到一个奇怪的现象。数据我看到写入了,然后一闪数据没了。但是用程序读取这些没有正常显示数据的单元格,结果显示这些单元中是存在数据的,。请高手帮忙解答。谢谢

     

    你的意思是不是单元格里面的数据太长,不能在单元格显示?如果是这样,你可以用AutoFit() 方法是单元格所在列的宽度自动适合单元格内的长度。

    也可以用WrapText属性,使单元格内的内容自动换行来达到单元格显示全部内容的目的

    看下下面的代码:

            Dim app As Excel.Application = New Excel.Application

            Dim book As Excel.Workbook = app.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet)

            app.Visible = True

            Dim sheet As Excel.Worksheet = book.Worksheets.Add

            Dim rangeCells As Excel.Range = sheet.Range("A1:F8")

            rangeCells.Value2 = "bbbbbbbbbbbbbbbbbbbbbbbb"

     

            '以下方法二选一

            rangeCells.WrapText = True '自动换行

            rangeCells.Columns.AutoFit() '自动调整宽度

     

    希望对你有帮助


    Best Regards, Calvin Gao [MSFT]
    MSDN Community Support | Feedback to us
    Get or Request Code Sample from Microsoft
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.

    • 已标记为答案 pucx 2011年5月13日 15:46
    2011年5月13日 14:18
    版主