Question

vba运行时错误1004

哪位高手帮忙指点一下，下面的代码在运行时提示出现1004错误：应用程序或对象定义错误是什么原因，我是初学者这是书上一段，我检查了N变了也没输错，但就是不知怎么的，总是运行不了！
Sub Array2() ‘数组过程2
DimavData As Variant, wkb As Workbook
Dim i AsInteger

avData = Array (“North”,”South”,”East”,”West”)
For i =LBound(avData) To UBound(avData)
Set wkb= Workbooks.Open(Filename:=avData(i) & “.xls”)
‘处理数据
wkb.Close SaveChanges:= True
Next i
End Sub

Answer 1

代码看不出什么问题，给你规范了下，试试：
app_name = "App2_closeness"
n = 0.01
Do While n < 1.01
With answersheet
With .Sheets.Add(After:=.Sheets(.Sheets.Count))
.Name = app_name & "_N=" & CStr(n)
n = n + 0.01
End With
End With
Loop
分析了下问题的原因，是不是创建的工作表的数量超过了255个？
2003中最多sheet数量为255个，再后来的版本就没有这个限制了
求采纳为满意回答。

追问

不好意思，我是初学者，对您的答案我看不懂啊，但好像根我以上的代码是完全不一样的。
我没有创建工作表呀!