为什么此行会产生运行时错误？

与码工作，以抓住从文件的特定数据，该行：为什么此行会产生运行时错误？

With sht.Range(Cells(1, 1), Range("A1").SpecialCells(xlCellTypeLastCell))

生产：对象“_Worksheet”的方法“范围”失败。

我已经dimt作为工作表，我只是想选择范围作为整个工作表？

2016-02-05 IIJHFII

你设置你对任何工作表有什么要求？你可以请完全分享代码，如果不是需要的级别。当我运行.Range（Cells（1，1），Range（“A1”）。SpecialCells（xlCellTypeLastCell））。我没有发现任何问题 – Siva

没有合格工作表的单元或范围将始终引用活动工作表，因此如果'sht'不活跃，您的代码将会出错 –

扩展到Tim所提及的内容......这会纠正它'sh .Range（ “A1”）'。 – Davesexcel

你给你写了“dim'd”sht作为工作表。我假设你正在谈论

Dim sht As Worksheet

如果你没有做到以下几点，有可能是这个问题：

set sht = ThisWorkbook.Worksheets("insertnamehere") [放在ThisWorkbook。部分asumes工作表是在代码相同的工作簿]

如果这不能解决您的问题，请第二部分的调试输出（我prefere MsgBox，但只有个人喜好），如MsgBox sht.Range("A1").SpecialCells(xlCellTypeLastCell).Address并发布结果在这里（一个地址？一个新的错误？如果是这样，是吗？）

希望它有助于至少一步。

PS：如果你设置SHT媒体链接（不仅dim'd它< - 爱那句话：P）请还编辑您的帖子并添加代码是（以及可能涉及的任何东西）

2016-02-05 14:58:02 IDontKnowJack

回答