Excel和OpenFileDialog

Imports Microsoft.Office.Interop
'COM Microsoft Excel x.0 Object Library

Public Class Form1
    Dim exApp As New Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet

    Dim openFileDiag As New OpenFileDialog()
    Dim excelPath As String

    Dim content(,) As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        openFileDiag.FileName = ""
        If openFileDiag.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            excelPath = openFileDiag.FileName
            'Debug.Print(excelPath)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        exApp.Visible = False  '不显示excel 程序
        wb = exApp.Workbooks.Open(excelPath)
        ws = wb.Sheets(1)

        ws.Cells(1, 1).value = "AAA"
        'Debug.Print(ws.Cells(8, 1).value)
        'Debug.Print(ws.UsedRange.Rows.Count)

        ReDim content(ws.UsedRange.Rows.Count, ws.UsedRange.Columns.Count)
        For i = 1 To ws.UsedRange.Rows.Count
            For j = 1 To ws.UsedRange.Columns.Count
                content(i, j) = ws.Cells(i, j).value
                Debug.Print(content(i, j))
            Next
        Next

        wb.Save()
        wb.Close()
        exApp.Quit()

    End Sub
End Class

excelapp.workbooks.add(filename); 

exsheet:=excelapp.workbooks[1].worksheets[sheetname]; 

exBook = exApp.Workbooks.Open(appPath)

        exSheet = exBook.Sheets.Item(indexSheet)