vbscript將excel合併儲存格、畫線、設定邊框、設定文字

 開啟excel方式

 '畫直線
 Set rng = myxls.ActiveSheet.Range("A01:E11")
   myxls.ActiveSheet.Shapes.AddLine(rng.Left,rng.Top, rng.Width, rng.Height).Select



With myxls.ActiveSheet.Range("F7:G9") 
.MergeCells = True 
.BORDERS(1).Weight = 2 
.BORDERS(2).Weight = 2 
.BORDERS(3).Weight = 2 
.BORDERS(4).Weight = 2 
.Value = "SBBBB" 
End With 


選取範圍
Range

合併儲存格
MergeCells

設定邊框
.BORDERS(1).Weight

設定文字
.Value =