Visual Basic-如何在Excel和其他格式选项中居中显示列

如何使用Visual Basic（Visual Studio 2015）在Excel中将列居中？我正在使用Microsoft.Office.Interop.Excel

以下是我用于执行此操作但无法执行的代码段：

Excel3 = CreateObject(“Excel.Application”) 
Excel3.WorkBooks.Add() 

Sheet3 = Excel3.ActiveSheet

Sheet3.Columns("A:A").Select
    With Sheet3.Selection
        .HorizontalAlignment = Sheet3.Columns("A:A").xlCenter
        .VerticalAlignment = Sheet3.Columns("A:A").xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = Sheet3.Columns("A:A").xlContext
        .MergeCells = False
    End With

我正在使用Visual Basic（Visual Studio 2015）。错误消息指出：

未处理的异常：System.MissingMemberException:找不到类型“工作表”上的公共成员“选择” 在Microsoft.VisualBasic.CompilerService.LateBindSign.LateGet（对象o，类型objType，字符串名称，对象[]参数，字符串[]参数，布尔[]回写） 位于Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet（对象实例、类型类型、字符串成员名、对象[]参数、字符串[]参数名、类型[]类型参数、布尔[]回写）

另一个变体给了我错误：找不到类型范围上的选择

Sheet3.Columns("A").Select
    With Sheet3.Columns.Selection
        .HorizontalAlignment = Sheet3.Columns("A").xlCenter
        .VerticalAlignment = Sheet3.Columns("A").xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = Sheet3.Columns("A").xlContext
        .MergeCells = False
    End With

---

在阅读之后，我找到了一个解决方案。以下是我采取的步骤

更改自： 导入Microsoft.Office.Interop.Excel

致： 导入Excel=Microsoft.Office.Interop.Excel

通过上述更改，我可以访问具有xlCenter的常量对象

然后相关代码更改为：

Sheet3.Columns("A:S").EntireColumn.AutoFit
Sheet3.Range("A:S").VerticalAlignment = Excel.Constants.xlCenter
Sheet3.Range("A:S").WrapText = True
Sheet3.Range("A:A").HorizontalAlignment = Excel.Constants.xlCenter

---

在阅读之后，我找到了一个解决方案。以下是我采取的步骤

更改自： 导入Microsoft.Office.Interop.Excel

致： 导入Excel=Microsoft.Office.Interop.Excel

通过上述更改，我可以访问具有xlCenter的常量对象

然后相关代码更改为：

Sheet3.Columns("A:S").EntireColumn.AutoFit
Sheet3.Range("A:S").VerticalAlignment = Excel.Constants.xlCenter
Sheet3.Range("A:S").WrapText = True
Sheet3.Range("A:A").HorizontalAlignment = Excel.Constants.xlCenter