<em>excel</em>的宏<em>vba</em>编程把工作薄作为

Sub Macro1()
FName = "D:\MyDoc"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(FName & "\" & "生成度表知道") Then
' Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(FName & "\" & "生成表")
f.Delete
For i = 1 To 10: DoEvents: Next
End If
MkDir FName & "\" & "生成表"
Shell "explorer " & FName & "\" & "生成表", vbNormalFocus
End Sub

Excel提示下标越界是VBA程序运行的一个错误提示，原因有以下几个：1、引用了不存在的数copy组元素：下标比可能下标范围大或小，或是在应用程序中这一边的数组没有指定范围。2、声明数组时没有指定元素zd的数目：引用了不存在的集合成员。3、使用速写形式的下标，结果指定了错误的元素。4、引用或操作的工作薄、工作表不存在。
这个新建工作表，会自动命名成不重复的，所以不会出现你说的那种情况，除非你重命名成 和已存在的工作表名字一样的，会有错误提示

第二个截图是使sheet1工作表为活动工作表，没看到生成新工作簿的代码