objExcel 為之前文件宣告過的物件
SelTargetList="想要的頁籤名稱"
'新增頁籤並設定相關欄位
objExcel.sheets.Add.Name = SelTargetList
With objExcel.sheets(SelTargetList)
.Range("A1").offset(0, 14).Value = "備考" '
End With
'修改現有的頁籤名稱 Sheet1 --> SelTargetList變數
objExcel.sheets("Sheet1").Name = SelTargetList
沒有留言:
張貼留言