- 帖子
- 56
- 主題
- 8
- 精華
- 0
- 積分
- 81
- 點名
- 0
- 作業系統
- Window7
- 軟體版本
- OFFICE2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-6-25
- 最後登錄
- 2016-1-17
|
工作表會依據指定範本檔，逐步新增Excel範本Local用1、Excel範本Local用2、、，Sheet 我則只知道使用 Copy 後自動加(2)、(3)
這是最簡單的，要不得用變數，但太麻煩
如單純數字遞增可用
Sub NewWKB()
Set wkb = Workbooks.Add(Template:="C:\Excel範本Local用.xls") ' 引用範本，指定範本檔案
MsgBox wkb.Name
Sheets(1).Copy Before:=Sheets(1)
End Sub
Sub NSHT()
Sheets(1).Copy Before:=Sheets(1) '新增工作表，先命名 sheet(1)
End Sub |
|
發表於 2011-7-12 01:24
| 