VBScript Excel Форматирование файлов .xlsx

Question

В основном я хочу знать, как установить выравнивание по центру для ячейки, используя VBScript ...

Я гуглял и не могу найти ничего, что могло бы помочь.

Answer 1

Set excel = CreateObject("Excel.Application")

excel.Workbooks.Add() ' create blank workbook

Set workbook = excel.Workbooks(1)

' set A1 to be centered.
workbook.Sheets(1).Cells(1,1).HorizontalAlignment = -4108 ' xlCenter constant.

workbook.SaveAs("C:\NewFile.xls")

excel.Quit()

set excel = nothing

'If the script errors, it'll give you an orphaned excel process, so be warned.

Сохраните это как .vbs и запустите его с помощью командной строки или двойного щелчка.

Answer 2

Существует много способов выбора ячейки или диапазона ячеек, но для одной ячейки будет работать следующее.

'Select a Cell Range
Range("D4").Select

'Set the horizontal and vertical alignment
With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
End With

Параметры горизонтального выравнивания: xlLeft, xlRight и xlCenter