Excel VBA，错误 438 "object doesn' t 支持 WorksheetFunction 上的此属性或方法

Question

所以我在使用地址函数的 AT_cellnum 行的标题中出现错误。

Sub AllTransURL()

Dim AT_rownum As Integer, pathrange As Range, AT_cellnum As String, sheetname As String

sheetname = "All Transmissions"
Set pathrange = ThisWorkbook.Worksheets("All Transmissions").Range("H1:H53")

AT_rownum = Application.WorksheetFunction.Match("infra/remwip/Public/0_00_Rapports", pathrange, 0)

AT_cellnum = Application.WorksheetFunction.Address(AT_rownum, 1, 1, 1, sheetname)

End Sub

谢谢

Answer 1

不需要 Address对象模型中的函数，因此它不在 WorksheetFunction界面。

经验法则，如果您要进行早期绑定(bind)的成员调用并且您要调用的成员没有出现在自动完成名称列表中，那么它不是您正在使用的对象的成员；如果代码无论如何编译，它很有可能会在运行时抛出错误 438。

不需要 Address函数，因为当你使用对象模型时，你有一个 Range对象和 Range有一个 Address随时可用的属性:WorksheetFunction因为这将是完全多余的。

您知道范围来自哪个工作表( sheetname )；你知道你想要哪一行( AT_rownum )，你知道你想要哪一列( 1 ) - 因此:

Dim AT_range As Range
Set AT_range = ThisWorkbook.Worksheets(sheetName).Cells(AT_rownum, 1)

AT_cellnum = AT_range.Address

但正如 Scott 暗示的那样，单元格的地址在 VBA 中很少需要:如果您有 Range对象，您可能已经拥有所需的一切。