【求助】如何跨工作簿复制“有效区域”

bird2751

我用的是Excel 2010。假设有两个不同路径的工作簿，比如一个是D:\D.xlsm，一个是E:\E.xlsm，现在想把表格D里的一些数据复制到表格E里，如图：



现在的问题是，表格D的有效行数并不固定，可能会多两行或少两行，因此拷贝数据时需要先设个变量来读取有效行数，最后写出来的代码如下：

1. 
   

复制代码

Private Sub CommandButton1_Click()
Dim shuju As Workbook
On Error Resume Next
Set shuju = Workbooks.Open("D:\D.xlsm")
Dim i As Long
i = shuju.Sheets("工作表").Range(shuju.Sheets("工作表").Cells(3, 2)).CurrentRegion.Rows.Count - 2
shuju.Sheets("工作表").Range(shuju.Sheets("工作表").Cells(3, 2), shuju.Sheets("工作表").Cells(i + 2, 2)).Copy ' 注：经考证，跨工作簿拷贝，range里一定要带上worksheet，所以不得不写得这么啰嗦
Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub


在加入变量 i 之前，跨工作簿拷贝的指令是成功的，但是加入 i 之后就死活读不到数，不知道该如何解决？

另外还有个问题，能否在不打开D.xlsm的情况下读取数据？因为D.xlsm也比较复杂，每次打开关闭都要弹窗，实在很麻烦

不知道为什么

最好上个附件

bird2751

不知道为什么 发表于 2018-9-6 20:36
最好上个附件

T_T 非得要附件么？感觉我描述得很清楚了，就是跨文件提取 CurrentRegion.Rows.Count 的问题

bird2751

在家里用Excel 2016 试，把 i 改成：
i = shuju.Sheets("工作表").Range("B3").CurrentRegion.Rows.Count - 2
之后好像就可以了，但是白天在单位用2010版的，也这么写过，有时候成功有时候又不成功（貌似受点按钮前有没有先打开D.xlsm影响）。。
而且不同指令下的 range 括号里有时候要精确带上worksheet，有时候又不行，实在有点蛋疼。。