Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("C:\test01.xls")
Set objWorksheet = objWorkbook.Worksheets("Sheet1")
'罫線を設定します
objWorksheet.Range("A1:G4").Borders.LineStyle = 1
objWorksheet.Range("A1:G4").Borders.Weight = 2
'列の幅を設定します
objWorksheet.Columns("A:A").ColumnWidth = 18
objWorksheet.Columns("B:G").ColumnWidth = 12
'セルに色を設定します
objWorksheet.Range("A1:G1").Interior.ColorIndex = 44
objWorksheet.Range("A2:A4").Interior.ColorIndex = 36
'行の項目名を中央揃え、数値を3桁の位取り表示に設定します
objWorksheet.Range("A2:A4").HorizontalAlignment = -4108
objWorksheet.Range("B2:G5").NumberFormatLocal = "#,##0_
;[赤]-#,##0 "
'セルの選択位置をA9へ移動させます
objWorksheet.Range("A9").Select
objExcel.DisplayAlerts = False
objWorkbook.SaveAs "C:\test01.xls"
Set objExcel = Nothing |