下标越界？ 小弟我这个遍历程序错在哪里啊 求教

下标越界？ 我这个遍历程序错在哪里啊 求教

VB code

Sub tt()For i = 1 To 50For j = 1 To 50    Workbooks("book").Worksheets("Sheet1").Cells(i, j).Value = "a"NextNextEnd Sub

VB code

'在工程中引用microsoft office 11.0 controlSub tt()Dim xobject As New Excel.ApplicationDim xBook As New Excel.WorkbookDim xSheet As New Excel.WorksheetDim rownum as integerDim colnum as integerSet xobject = CreateObject("excel.application")Set xBook = xobject.Workbooks.Open("D:\TEST.xls")Set xSheet = xobject.Worksheets("sheet1")xSheet.ActivateFor i = 1 To 50    For j = 1 To 50        xSheet。Cells(i, j).Value = "a"   NextNextxBook.Save '保存'退出excel,释放资源Set xSheet = NothingxBook.CloseSet xBook = Nothingxobject.QuitEnd Sub
[解决办法]
确认工作簿的名字叫book? 不是book.xls?,确认book.xls中有一张叫sheet1的工作表。
[解决办法]
Workbooks("book.xls").Worksheets("Sheet1").Cells(i, j).Value = "a"