VBScript Excel Formatting archivos .xlsx
-
02-07-2019 - |
Pregunta
Básicamente, quiero saber cómo establecer la alineación central para una celda mediante VBScript ...
Lo he estado buscando en Google y parece que no puedo encontrar nada que ayude.
Solución
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.
Guarde eso como .vbs y ejecútelo utilizando el símbolo del sistema o haciendo doble clic.
Otros consejos
Hay muchas formas de seleccionar una celda o un rango de celdas, pero las siguientes funcionarán para una sola celda.
'Select a Cell Range
Range("D4").Select
'Set the horizontal and vertical alignment
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
Las opciones de HorizontalAlignment son xlLeft, xlRight y xlCenter
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow