用vb给excel表增加工作簿，并修改其名称

工作表事件.放在ThisWorkbook的VBE代码窗口

Private Sub Workbook_Open()

Dim shname As String, sh As Worksheet

shname = Sheets(Sheets.Count).Name

If shname <Date Then

Set sh = Sheets.Add(after:=Sheets(Sheets.Count))

sh.Name = Date

End If

End Sub

Private Sub Command1_Click()

    Dim xlApp As New Excel.Application

    Dim xlBook As Excel.Workbook

    Set xlBook = xlApp.Workbooks.Add  '新添加Excel

    Sheets("Sheet1").Name = "test"  '重新命名

    xlApp.Visible = True

End Sub

---