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

Question

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

Answer 1

Workbooks("book")这是个啥？？
像下面这样写：'在工程中引用microsoft office 11.0 control
Sub tt()
Dim xobject As New Excel.Application
Dim xBook As New Excel.Workbook
Dim xSheet As New Excel.WorksheetDim rownum as integer
Dim 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"
   Next
NextxBook.Save '保存'退出excel,释放资源
Set xSheet = Nothing
xBook.Close
Set xBook = Nothing
xobject.Quit
End Sub

Answer 2

确认工作簿的名字叫book? 不是book.xls?,确认book.xls中有一张叫sheet1的工作表。

Answer 3

Workbooks("book.xls").Worksheets("Sheet1").Cells(i, j).Value = "a"