AccessからExcelを操作し、罫線等を設定する場合、私自身もいつも定数の値が何だったかいちいち調べているので、備忘録も兼ねて書いておきます。

まずは全体の流れ

Dim ws

Dim xlApp      As Object
Dim xlBook     As Object
Dim xlSheet    As Object
Dim FileName   As String

Set ws = CreateObject("WScript.Shell")

FileName = ws.SpecialFolders("Desktop") & "\雛形.xlsx"

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FileName)
Set xlSheet = xlBook.WorkSheets(1)

With xlSheet
    'このブロック内に書いていきます
End With

'保存
xlBook.Save

xlBook.Close

xlApp.Application.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

罫線を引く

.Range("A1:I1").Borders.LineStyle = 1
.Range("A1:I1").Borders(8).LineStyle = -4118
.Range("A1:I1").Borders(11).LineStyle = -4115
.Range("A1:I1").Borders(11).Weight = 1

横位置、縦位置の指定

.Range("A1").Value = "Example Excel.Application."
.Range("A1").HorizontalAlignment = -4108 '中央揃え
.Range("A1").VerticalAlignment = -4108   '中央揃え
.Range("A1").ShrinkToFit = True

縮小して全体を表示する

.Range("A1").ShrinkToFit = False

折り返して全体を表示する

.Range("A1").WrapText = True

色指定

.Range("A1").Borders.Color = RGB(255, 0, 0)

また、指定する際にいちいち数値だと分かりにくいので定数を宣言しておくと分かりやすいです。

Const xlContinuous = 1
Const xlThick = 4