Dim sr
Sub s5() '在本工作簿中
Dim sh As Worksheet
Sheets("sheet1").Copy before:=Sheets(3)
Set sh = ActiveSheet
Call 模块1.输入文件名
sh.Name = sr
End Sub
Sub 输入文件名()
100
sr = Application.InputBox("请输入要保存的工作表名", "系统提示")
If sr = "" Then
MsgBox "你没有输入就点了确定"
GoTo 100
ElseIf sr = "False" Then
End If
End Sub
Dim sr
Sub s5() '在本工作簿中
Dim sh As Worksheet
Sheets("sheet1").Copy before:=Sheets(3)
Set sh = ActiveSheet
Call 模块1.输入文件名
sh.Name = sr
End Sub
Sub 输入文件名()
100
sr = Application.InputBox("请输入要保存的工作表名", "系统提示")
If sr = "" Then
MsgBox "你没有输入就点了确定"
GoTo 100
ElseIf sr = "False" Then
End If
End Sub