[已解决]跨表调用数据的宏

hans_beer · 发表于 2012-12-25 13:25

本帖最后由 hans_beer 于 2012-12-25 13:28 编辑

Sub aa()
Dim a As Long
Workbooks.Open ("C:\Documents and Settings\J000050\Desktop\data\南宁.xlsx")

a = Workbooks("南宁.xlsx").Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row

For i = 2 To a
For j = 1 To 9

ThisWorkbook.Sheets(1).Cells(i, j) = Workbooks("南宁.xlsx").Sheets(1).Cells(i, j)

Next j
Next i

End Sub

求高手排故，这个宏返回表格"南宁.xlsx"的最后一行时报错。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-25 14:25

南宁.xlsx打开后就直接成为当前的活动工作簿了。不用加前缀访问的也是南宁.xlsx

跳转到最佳答案楼层

hwc2ycy · 发表于 2012-12-25 14:23

直接简单点，复制就成了。

hwc2ycy · 发表于 2012-12-25 14:24

把a = Workbooks("南宁.xlsx").Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row直接改成

a =Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row

复制代码

试试。
不行就

a = worksheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row

复制代码

hwc2ycy · 发表于 2012-12-25 14:25

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

南宁.xlsx打开后就直接成为当前的活动工作簿了。不用加前缀访问的也是南宁.xlsx

hans_beer · 发表于 2012-12-25 16:23

弄好了，语法错误，改成 a = Workbooks("南宁.xlsx").Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row 就好了。

hans_beer · 发表于 2012-12-25 16:38

hwc2ycy 发表于 2012-12-25 14:25
南宁.xlsx打开后就直接成为当前的活动工作簿了。不用加前缀访问的也是南宁.xlsx

哦还可以这样？如果同时打开好几个表格的话，不加前缀能识别么？

hans_beer · 发表于 2012-12-25 16:48

跨表调用数据改好了，谢谢大神们。

skycn123 · 发表于 2017-1-12 10:48

学习学习

		自动登录	找回密码
密码			注册