全站数据
8 4 2 0 5 8 1

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

孩子四轮学习法 | 教育先行,筑梦人生!         
问题更新日期:2024-06-11 08:37:08

问题描述

用vb给excel表增加工作簿,并修改其名称急求答案,帮忙回答下
精选答案
最佳答案

工作表知事件道.放在ThisWorkbook的内VBE代码窗口容

Private Sub Workbook_Open()

Dim shname As String, sh As Worksheet

shname = Sheets(Sheets.Count).Name

If shname

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

sh.Name = Date

End If

End Sub