[Visual Basic] 비주얼베이직 스크립트 (VBScript), 엑셀 가운데 정렬하기

엑셀을 생성하고 Cell에 값을 쓰는것은 아래를 참고.

https://ansan-survivor.tistory.com/1897

[Visual Basic] 비주얼베이직 스크립트 (VBScript), 엑셀 생성하기

 

위 포스팅에서 생성한 값을 가운데 정렬 하는 방법.

 

코드 실행 전.

 

코드 실행 후,

A1부터 B2까지 드레그하여 가운데정렬이 된것처럼 보인다.

 

반응형

 

코드.

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)


' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"

' 가운데 정렬 상수값.
Const xlCenter = -4108
' 가로 가운데 정렬.
objWorksheet.Range("A1:B2").HorizontalAlignment = xlCenter
' 세로 가운데 정렬.
objWorksheet.Range("A1:B2").VerticalAlignment = xlCenter


' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

위 코드 중 가운데 정렬을 행하는 코드는.

해당 범위를 드레그하여 정렬하는 과정이다.