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

play9091

如何把SHEET另存成BOOK，並且以SHEET的名字為檔名

例如：
book→sheet1,sheet2,sheet3

加工後

book→sheet2,sheet3
book(sheet1)→sheet1

play9091

SHEET2(List)的A欄裡面的名稱,有重複的,
數字有重複，但是後面有「_A」、「_B」，所以不算是重複

什麼條件啊
SHEET1的進階篩選條件

我好像知道怎麼做了……應該是像下面這樣子！
    Sheets.Add.Name = Sheets("List").Range("A" & I)

GBKEE

回復 4# play9091
我想要做的是，另存的檔名是SHEET2裡面的名稱，或是開出來的SHEET、BOOK就已經是那個名稱……
SHEET2(List)的A欄裡面的名稱,有重複的,

簡單來說就是，用SHEET2來當條件篩選SHEET1，然後用條件來當檔名另存！！！
什麼條件啊

play9091

我在SHEET1裡面有一大堆的資料，我用SHEET2來篩選後，想要把資料開一個新的SHEET或是BOOK貼上，然後另存。

我想要做的是，另存的檔名是SHEET2裡面的名稱，或是開出來的SHEET、BOOK就已經是那個名稱……

簡單來說就是，用SHEET2來當條件篩選SHEET1，然後用條件來當檔名另存！！！

我目前只做出了，進階篩選和一些我想到的東西而已，接下來就是存檔的問題了……如付件……

setuptime (1).rar (77.54 KB)

範例
下載次數: 10

2011-7-12 09:20

GBKEE

回復 1# play9091
BOOK和SHEET 是不同的物件  所舉的例子  條件要說清楚
類似 http://forum.twbts.com/thread-4064-1-1.html 嗎?

Happkkevin

工作表會依據指定範本檔，逐步新增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

play9091

想請問一下先進們有沒有辦法指定新建出來的BOOK或SHEER名稱。

A1 123
A2 456
A3 789
A4 753

新建出來的第一個sheet或book名稱叫123，第二個叫456，第三個叫789………

上面只是舉個列而已……不知道有沒有辦法達成，我想了好久沒有辦法解決