Outlook VBA Excelワークシートの最後の行を見つけよう

Question

Excel VBAでExcelブックのコンテンツを読む機能があります。

私が苦労している部分は、列の最後の行（この例では列A）を見つけることです。強調表示されたブロックの1行目には、ワークシートのA1セルの内容が正しく表示されていますが、2行目にはエラー「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)