Hi all,
I can open, read, write and save excel file thru VS2005, unfortunately I can't select which worksheet to read/write. It always default to the first worksheet of excel file. Any advices are appreciated.

Best regards,
Khanh Nguyen

Here is one method. Others will have a different take I'm sure.

'* Create your Connection Object
Dim cn As New System.Data.OleDb.OleDbConnection
With cn
    '* Notice the double quotes ("") before and after the Extended Properties
    '* portion of the connection string.
    '* This connection string attempts to open C:\Book1.xls - replace
    '* with your full path file name.
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
        & "C:\Book1.xls;Extended Properties=""Excel 8.0;HDR=YES"";"
    .Open()
End With

'* Create the Command Object
Dim cmd As New System.Data.OleDb.OleDbCommand
With cmd
    .Connection = cn
    .CommandType = CommandType.Text
    '* The worksheet that you want to open is enclosed in brackets
    '* and ends with a $ sign.
    .CommandText = "SELECT * FROM [Sheet1$]"
    Dim da As New System.Data.OleDb.OleDbDataAdapter(cmd)
    Dim ds As New DataSet
    da.Fill(ds)
    '* The line below assumes you have a DataGridView named dg
    '* placed on your form.
    dg.DataSource = ds.Tables(0)
End With

cn.close()

Good Luck!
Earl Francis

Hi,
This is my code to open/read/write and save excel file, but unable to select the worksheet (it does not mattter ws index or ws name was entered), only select the first sheet. Please help, any advices are appreciated.

        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim bOpen As Boolean


      xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
        xlBook = CType(xlApp.Workbooks.Open(sSpec_Path), Microsoft.Office.Interop.Excel.Workbook)
        xlApp.DisplayAlerts = False : bOpen = True
        If bOpen Then
            xlSheet = CType(xlBook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) 'Unable to select any worksheet event 2, 3 was entered or ws name
            With xlSheet.Application
            ...... in here i can read/write/

            endwith
           xlBook.Close() : xlApp.DisplayAlerts = True : xlApp.Quit()