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

Question

我正在Outlook VBA中編寫一個函數，涉及從excel工作簿中讀取內容。

我正在努力的部分是找到一列中的最后一行（本例中的A列）。 當突出顯示的塊中的第一行正確顯示給定工作表中A1單元格的內容時，第二行給出錯誤“424” - 需要對象。

對此問題的任何建議將不勝感激。

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）創建自己的常量，例如

End(-4162)

要么

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