根據Sheet1中的活動單元重命名新創建的工作表

Question

我是VBA的新手，並且有一個問題需要解決，對於您來說，這不僅僅是簡單，我相信。問題是這樣的：

我在列A中有公司名稱表。我想要的是選擇單元格與公司名稱，單擊該按鈕將運行宏創建基於模板的新工作表，並重命名新創建工作表Sheet1（公司名稱）中選定單元格的名稱。

宏一般工作，我只有重命名它的問題。您的幫助將大大appriciated。另外對我的代碼的任何評論一般都會非常有用。下面是代碼：

Sub NewSheet() 

Dim wb As Workbook 
Dim ws As Worksheet 
Dim activeWB As Workbook 
Dim FilePath As String 

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

On Error Resume Next 
Set wb = Application.Workbooks.Open(FilePath) 
wb.Worksheets(1).Copy After:=activeWB.Sheets(activeWB.Sheets.Count) 
activeWB.Activate 

ActiveSheet.Name = Worksheets("Arkusz1").ActiveCell.Value 

wb.Close False 

Application.ScreenUpdating = True 
Application.DisplayAlerts = True 
End Sub 

Answer 1

如果您需要使用ActiveCell，你可以使用類似下面的代碼：

Dim ShtName As String 
ShtName = ActiveCell.Value2 ' <-- save the value of the ActiveCell 

Set wb = Application.Workbooks.Open(FilePath) 
wb.Worksheets(1).Copy After:=activeWB.Sheets(activeWB.Sheets.Count) 

' rename the sheet 
activeWB.Sheets(activeWB.Sheets.Count).Name = ShtName 

Answer 2

您複製新的工作表到最後，這樣你就可以得到最後一個工作表中保持像這樣：

Set activeWB = ActiveWorkbook 
' You copied sheet 1 
wb.Worksheets(1).Copy After:=activeWB.Sheets(activeWB.Sheets.Count) 
' New sheet is last sheet 
Dim sh As WorkSheet 
Set sh = activeWB.Sheets(activeWB.Sheets.Count) 
' Rename sheet 
sh.Name = activeWB.Sheets("Arkusz1").ActiveCell.Value 

請注意，依靠選擇和活躍細胞/牀單/工作簿是有風險，並且可以創建難以診斷的錯誤。嘗試使用單元格地址而不是活動單元格。