VB.NET Excel AutoFit列

Dim excelApp As New Excel.Application

Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Open("文件路径")

Dim excelWorksheet As Excel.Worksheet = excelWorkbook.Worksheets("工作表名称")

excelWorksheet.Columns("A:A").AutoFit()

excelWorkbook.Save()
excelWorkbook.Close()
excelApp.Quit()

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim excelApp As New Excel.Application
        Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Open("文件路径")
        Dim excelWorksheet As Excel.Worksheet = excelWorkbook.Worksheets("工作表名称")
        excelWorksheet.Columns("A:A").AutoFit()
        excelWorkbook.Save()
        excelWorkbook.Close()
        excelApp.Quit()
    End Sub
End Class