[Visual Basic] 비주얼베이직 스크립트 (VBScript), 엑셀 특정 영역 경계선 (Boundary) 표시하기, 외곽선 표시하기

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

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

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

 

 

 

결과부터 보면 아래와 같이 외곽선을 찐하게 칠할 수 있다.

 

반응형

 

코드)

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

' rng에 영역에 경계선 나타내기
Set rng = objWorksheet.Range("A1:K2")
Const xlThin = 2
With rng.Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With


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

' 엑셀 obj를 종료함
objExcel.Quit

아래 부분이 경계선을 만드는 부분.