設置單元格底色
sht.Range("A1:D4").Interior.Color = RGB(25, 115, 197)
RGB 顏色值，通用性強
或者
sht.Range("A1:D4").Interior.ColorIndex = 5
ColorIndex 的每個數值代碼的顏色可以到網上查
設置單元格邊框
' 邊框顏色設置為黑色 - RGB(0, 0, 0)
sht.Range("A1:D4").Borders(xlInsideHorizontal).Color = RGB(0, 0, 0)
' 邊框樣式設置為實線 - xlContinuous
sht.Range("A1:D4").Borders(xlInsideHorizontal).LineStyle = xlContinuous
xlInsideHorizontal 表示的是單元格區域內部的所有橫向邊，類似的 xlInsideVertical 表示的是內部縱向邊，其它類似的還有上邊、下邊、左邊、右邊等
對齊設置
' 水平居中
sht.Range("A1:D4").HorizontalAlignment = xlCenter
' 垂直居中
sht.Range("A1:D4").VerticalAlignment = xlCenter
設置字體顏色
' 設置 A1:D4 區域內的文字字體顏色為白色－RGB(255, 255, 255)
sht.Range("A1:D4").Font.Color = RGB(255, 255, 255)
在工作薄內增加新的工作表
wbk.Worksheets.Add(Before:=wbk.Worksheets(wbk.Sheets.Count)).Name = tb_name
設置超鏈接
連接至同工作薄內的指定工作表
sht.Hyperlinks.Add Anchor:=sht.Cells(48, 2), Address:="", SubAddress:="Sheet8!A1", TextToDisplay:="Sheet8"