Visual Basic - 如何將列居中在Excel和其他格式選項中

Question

如何使用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.LateBindign.LateGet沒有找到 （對象o，類型OBJTYPE，字符串名稱， Object [] args，String [] paramames，Boolean [] CopyBack） at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet（Object Instance，Type Type，String MemberName，Object [] Arguments，String [] ArgumentNames，Type [] TypeArguments布爾[]回拷）

另一個變化給我的錯誤：對類型選擇範圍未發現

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 

。

Answer 1

我在閱讀a post from this link後發現了這個解決方案。這是我採取的步驟。

從更改： 進口的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