반응형
엑셀을 생성하고 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) ' 해더 부분, 첫번째 줄 objWork
ansan-survivor.tistory.com
특정 영역의 글자를 모두 두껍게 만드는 코드이다.
코드
' 엑셀 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"
' 폰트 두껍게 설정 (색상 index default는 검정색)
' rng에 해당되는 부분 두껍게
Set rng = objWorksheet.Range("A1:K2")
rng.Font.ColorIndex = xlAutomatic
rng.Font.Bold = True
' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"
' 엑셀 obj를 종료함
objExcel.Quit두껍게 만드는 부분은 아래.
반응형
(결과)
A1부터 K2 사이에 모든 Text는 두껍게 표시된다.
반응형