Outlook VBA查找Excel工作表中的最后一行

我在Outlook VBA中编写一个函数，涉及从Excel工作簿读取内容。

我正在努力的部分是find列中的最后一行（本例中的列A）。 虽然突出显示块中的第一行正确显示给定工作表中的A1单元格的内容，但第二行提供了错误“424” – 所需的对象。

任何build议到这个问题将不胜感激。

Public Function openExcel() Dim xlApp As Object Dim sourceWorkBook Dim sourceWorkSheet Dim cellVal As String Dim lastRow As Long Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = True .EnableEvents = True End With Set sourceWorkBook = xlApp.Workbooks.Open("C:\SAMPLEPATH\Template.xlsx") Set sourceWorkSheet = sourceWorkBook.Worksheets("Sheet1") sourceWorkBook.Activate With Activesheet 

  cellVal = sourceWorkSheet.Cells(1, 1) lastRow = sourceWorkSheet.Cells(.Rows.Count, "A").End(xlUp).Row 

  End With sourceWorkBook.Save sourceWorkBook.Close xlApp.Quit End Function 

Answer 1

如果你想有能力在你的代码中使用Excel常量，你也需要

a）包含对Microsoft Excel对象库的引用，或者

b）创build自己的常量，例如

 End(-4162) 

要么

 Const xlUp As Long = -4162 ... ... End(xlUp)