获取最后一个空单元格时出现运行时错误

时间:2017-12-07 08:04:14

标签: vba

转到最后一个空单元格时出现以下运行时错误。 请注意:在A栏中我确实有空单元格

  

运行时错误' 1004'

以下是代码

 Set MainWb = ThisWorkbook 
 Set DestWb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Test_Data.xls") 

 Msgbox DestWb.Sheets("EMT").Range("A" & Rows.Count).End(xlUp).Row + 1 'error at this line
 For c = 1 to DestWb.Sheets("EMT").Range("A" & Rows.Count).End(xlUp).Row
    'Mycode
 Next c
  

Sheets(" EMT")确实存在,并且DestWb保存在宏保存的工作簿中

我错过了什么。还有其他选择吗?

0 个答案:

没有答案