Memilih Cell Terakhir Yang Di Tulisi di Excel

Imports Excel = Microsoft.Office.Interop.Excel

Imports Microsoft.Office



Public Class Form14

    Dim appXL As Excel.Application = Nothing

    Dim wbXL As Excel.Workbook = Nothing

    Dim shXL As Excel.Worksheet = Nothing

    Dim raXL As Excel.Range = Nothing




    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        appXL = New Excel.Application

        wbXL = appXL.Workbooks.Open("D:\fileExcel\Latihan100.xlsx")

        appXL.Visible = True

        'Memilih sheet yg bernama: Kertas Baru
        shXL = wbXL.Sheets("Kertas Baru")

        'Setelah dipilih kemudian di aktifkan
        shXL.Activate()


        ' kemudian memilih cell terakhir yg berisi tulisan di worksheet Kertas Baru
        shXL.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Activate()

        appXL.UserControl = True

        raXL = Nothing

        wbXL = Nothing

        shXL = Nothing

        appXL = Nothing


        Exit Sub

Err_Handler:

        MsgBox(Err.Description, vbCritical, "Error " & Err.Number)


    End Sub
End Class