[Visual Basic] 비주얼베이직 스크립트 (VBScript), 엑셀 칸 늘리기 줄이기 (세로 칸 Row Height, 가로 칸 Column Width)

VBScript로 엑셀 파일을 만들고 값을 쓰는 방법은 아래를 참고.

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

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

 

Cell의 특정 칸을 지정해서 가로길이를 늘릴 수 있고, 세로길이를 늘릴 수 있다.

<가로로 늘리기>

코드)

' 엑셀 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"

objWorksheet.Cells(1,4).Value = "Hello"
' Cell의 가로 길이 늘리기
objWorksheet.Columns(4).ColumnWidth = 30

' 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"


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

' 엑셀 obj를 종료함
objExcel.Quit

 

위 코드에서 아래 부분에 어떤 값을 넣느냐에 따라 길이가 달라진다.

 

반응형

 

<세로로 늘리기>

코드)

' 엑셀 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"

' objWorksheet.Cells(1,4).Value = "Hello" & vbCrLf & "World"
objWorksheet.Cells(1,4).Value = "Hello"

' Cell의 가로 길이 늘리기
objWorksheet.Columns(4).ColumnWidth = 30

' Cell의 세로 길이 늘리기
objWorksheet.Rows(2).RowHeight = 30


' 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"


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

' 엑셀 obj를 종료함
objExcel.Quit

위 코드에서 아래 부분을 추가해서 늘렸다.

즉, 2번째 Row의 높이를 정함.

 

 

* 만약 수동 값 입력 없이 현재 Text의 길이를 기준으로 자동 맞추기를 하려면 아래 For문을 활용

아래의 예는 col (Cell가로 길이)가 1번부터 19번까지 Text크기를 보고 자동맞춤 하는 것.

for col=1 to 19
	objSheet.columns(col).AutoFit()
next