Visual Basic - Как центрировать столбцы в Excel и другие параметры форматирования

Question

Как центрировать столбцы в Excel с помощью Visual Basic (Visual Studio 2015)? Я использую 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 (Object о, Тип ObjType, имя String, Объект [] args, String [] paramames, Boolean [] CopyBack) в Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet (экземпляр объекта, тип типа, имя_терминала, объект [] Аргументы, строка [] Аргументы, тип [] ТипArguments , Boolean [] Copyback)

Другой вариант дает мне ошибку: Выбор по типу не найдено Диапазон

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. Вот шаги, которые я предпринял.

Измененный от: Imports Microsoft.Office.Interop.Excel

к: Импорт Excel = Microsoft.Office.Interop.Excel

выше изменение позволяет мне доступ к объектам константами, имеет xlCenter I можешь использовать.

А затем соответствующий код изменен:

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