UC知道VBA中以用其他excel单元格
来源：百度知道 编辑：UC知道 时间：2024/06/09 09:19:05
Private Sub CommandButton1_Click()
Dim i, j As Integer
For i = 1 To 50
Cells(i, 1) = Workbooks("Book1.xls").Worksheets("sheet1").Cells(i, 1)
Next
End Sub
提示下标越界，请高手帮忙啊！
是啊，我也觉得没问题，可就是不行；
我试着将workbooks("book1.xls").去掉就好了。
为什么呀？
谢谢！已经搞定了！
应该在执行语句前加workbooks("book1.xls").activate
Dim i, j As Integer
For i = 1 To 50
Cells(i, 1) = Workbooks("Book1.xls").Worksheets("sheet1").Cells(i, 1)
Next
End Sub
提示下标越界，请高手帮忙啊！
是啊，我也觉得没问题，可就是不行；
我试着将workbooks("book1.xls").去掉就好了。
为什么呀？
谢谢！已经搞定了！
应该在执行语句前加workbooks("book1.xls").activate
语法没问题，请检查 Workbooks("Book1.xls").Worksheets("sheet1")中的Book1.xls和shee1是否存在,很有可能是sheet1工作表名称错误。
如果你不能确认问题所在的话，可以新建一个Excel文件，把所有数据和VBA代码都复制粘贴过去，重新做一遍，应该就能用了
没看出有什么问题，那个BOOK1.XLS 是你引用的另外的工作簿是吧