VB.NET 中的 Excel 自动调整列

使用VB.NET编程语言可以很方便地操作Excel表格。其中一个常见的需求是自动调整列宽，以便适应单元格中内容的长度。本文将介绍如何在VB.NET中实现自动调整列宽的功能，并提供一个案例代码来演示这个过程。

vb
Imports Microsoft.Office.Interop.Excel
Module Module1
    Sub Main()
        ' 创建Excel应用程序对象
        Dim excelApp As New Application()
        ' 打开Excel文件
        Dim workbook As Workbook = excelApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
        ' 获取第一个工作表
        Dim worksheet As Worksheet = workbook.Worksheets.Item(1)
        ' 自动调整第一列的列宽
        Dim column As Range = worksheet.Columns.Item(1)
        column.AutoFit()
        ' 保存并关闭Excel文件
        workbook.Save()
        workbook.Close()
        ' 释放Excel对象
        excelApp.Quit()
    End Sub
End Module