[已解决]从一个工作簿中打开另一个工作簿中的表时遇到的问题，求解决

jiangslly

我从一个工作簿中打开另一个工作簿：
其中的代码如下：
Set wb = Workbooks.Open(ThisWorkbook.Path & "\111.xls")
With wb.Sheets("工作表1")
arr = .Range("b3:d" & Sheet2.[b65536].End(xlUp).Row)
这里，为什么当我运行到arr = .Range("b3:d" & Sheet2.[b65536].End(xlUp).Row)，出现错误，要我输入对象，这是什么原因？
另外 假如With wb.Sheets("工作表1")改成With wb.Sheets(5)，这里的5表示什么？是表的索引吗？

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-4-26 14:56

Sheet2.[b65536].End(xlUp).Row  这里没有指定哪个工作薄
wb.sheets(5),表示第五张工作表!

跳转到最佳答案楼层

zjcat35

Sheet2.[b65536].End(xlUp).Row  这里没有指定哪个工作薄
wb.sheets(5),表示第五张工作表!

wenchduan

如果您定义了wb和arr应该就对了啊，我试下定义完就对了！你可以把完整代码或附件传上来好解决！
我的理解5应该是工作薄里的工作表顺序号，也就是第5个工作表的意思

jiangslly

zjcat35 发表于 2012-4-26 14:56
Sheet2..End(xlUp).Row  这里没有指定哪个工作薄
wb.sheets(5),表示第五张工作表!

谢谢，已经解决了，另外
Dim sb As Worksheet

t = Timer
r = Sheet1.[j65536].End(xlUp).Row
sb = Workbooks("sheet1").Sheets("sheet1")

请问我运行到
sb = Workbooks("sheet1").Sheets("sheet1")这里的时候，说我下表越界，是什么原因？
是不能这样表示？还是？请指正

zjcat35

sb = Workbooks("sheet1")
workbooks() 里面放的应该是工作薄名称  比如123.xls 或 123.xlsx  ,xlsm

jiangslly

zjcat35 发表于 2012-4-26 15:36
sb = Workbooks("sheet1")
workbooks() 里面放的应该是工作薄名称  比如123.xls 或 123.xlsx  ,xlsm

哦，谢谢，我对调用工作簿这块没有学好呀

Iweb

收获源自积累，坚持终能成长

Iweb

收获源自积累，坚持终能成长