16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub btnInsertSheet_Click(sender As Object, e As RibbonControlEventArgs) Handles btnInsertSheet.Click
xlApp.ActiveWorkbook.Sheets.Add(After:=xlApp.ActiveWorkbook.Sheets(xlApp.ActiveWorkbook.Sheets.Count))
xlApp.ActiveWorkbook.Sheets(xlApp.ActiveWorkbook.Sheets.Count).Name = "MySheet"
End Sub
运行后如图