另一個工作簿中的參考表

Question

有人可以告訴我這段代碼有什么問題嗎？

Line_Items = Input_File.Input_Sheet.Columns(Column).End(xlDown).Row

Input_File是一個工作簿，而Input_Sheet是一個工作表。 我需要指定它們，因為在運行代碼時這兩個都不處於活動狀態

錯誤消息顯示：

Run-time error '438':
Object doesn't support this porperty or method

Answer 1

沒有Input_Sheet這樣的方法 。 這就是點/句點所做的事情，它限定了對象的方法/屬性。

如果Input_Sheet已被Input_File的工作表集合中的工作表限定，則只需執行以下操作：

Line_Items = Input_Sheet.Columns(column).End(xlDown).Row

如果不是，那么您需要限定它：

Set InputSheet = Input_File.Worksheets("_sheet_name_")  'Modify as needed
Line_Items = Input_Sheet.Columns(column).End(xlDown).Row