返回列表 上一主題 發帖

[發問] 如何把SHEET另存成BOOK

Happkkevin
　暱稱: Kevin

中學生Rank: 2

帖子
56 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
Window7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2011-6-25 
最後登錄
2016-1-17 
1# 跳轉到 »
發表於 2011-7-12 01:24 | 顯示全部帖子
工作表會依據指定範本檔，逐步新增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

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題