excel - 我试图创建带有名称但面临问题的新工作表

Question

Sub AddSheet()

Dim wkbSource As Workbook
Dim ws As Worksheet
Application.Screenupdating = False
Set wkbSource = Workbooks.Open("C:\nani\Excel-Vba\test.xlsx")

Set ws = wkbSource.Sheets

ws.Add(Before:=Sheets(1)).Name = "FirstSheet"


End Sub

标签： excelvba

Answer 1

这里有很多问题

Sub AddSheet()

Dim wkbSource As Workbook
Dim ws As Worksheet

Set wkbSource = Workbooks.Open("C:\nani\Excel-Vba\test.xlsx")

Set ws = wkbSource.Worksheets.Add(Before:= wkbSource.Sheets(1))
Ws.Name = "FirstSheet"

End Sub