複製後重命名工作表並創建主工作簿

Question

以下代碼用於從源複製工作表，然後重命名並放入目標。

我想擴展功能以使用另一個單元格引用來重新命名新創建的文件中的工作表名稱。 （注意，每個複製的工作簿只有一張工作表。）然後，在複製，重命名和重命名工作表後，將目標路徑中的所有工作簿合併爲一個工作簿。

Sub CopyRenameFile() 
Dim src As String, dst As String, fl As String, f2 As String 
Dim rfl As String 
Dim rf2 As String 

'Source directory 
src = Range("B3") 

'Destination directory 
dst = Range("D3") 

'File name 
fl = Range("B6") 
f2 = Range("B7") 

'Rename file 
rfl = Range("D6") 
rf2 = Range("D7") 

On Error Resume Next 
    FileCopy src & "\" & fl, dst & "\" & rfl 
    FileCopy src & "\" & f2, dst & "\" & rf2 
    If Err.Number <> 0 Then 
     MsgBox "Copy error: " & src & "\" & rfl 
    End If 
On Error GoTo 0 

Dim xL As Excel.Application 
Set xL = New Excel.Application 
xL.Visible = True 
Dim wb As Excel.Workbook 
Set wb = xL.Workbooks.Open(F6) 

'In case you don't know how here are two ways to reference a sheet: 
Dim sh As Excel.Worksheet 
Set sh = xL.Sheets(1) 

sh.Name = "TestMeOut" 

'Saving and closing are important... 
wb.Save 
Set wb = Nothing 
xL.Quit 
Set xL = Nothing 

End Sub 

Answer 1

如果它是活動工作表，使用

ActiveSheet.Name = "New Name" 

如果不是活動工作表，然後使用：

Sheets("SheetName").Name = "New Name" 

或

Sheets(2).Name = "New Name" 

最後一，索引（例子中的2）是表單從左至右計數數從1開始。

要通過文件名來打開一個Excel工作簿：

Dim xL As Excel.Application 
Set xL = New Excel.Application 
xL.Visible = True 
Dim wb as Excel.Workbook 
Set wb = xl.Workbooks.Open(put your filename here as a literal or variable) 

'In case you don't know how here are two ways to reference a sheet: 
Dim sh As Excel.Worksheet 
Set sh = xL.Sheets("Sheet1") 
' or 
Set sh = xL.Sheets(1) 

'put your code here 

'Saving and closing are important... 
wb.Save 
Set wb = Nothing 
xL.Quit 
Set xL = Nothing 

注意：要使用Excel引用，去工具=>參考，並期待爲Microsoft Office XX .x對象庫（其中xx.x是版本）。