WorkSheet con OledbDataAdapter
 

¡Buenos días!

Necesito saber como puedo encontrar el libro de una página excel.

Si el nombre del libro lo meto a pelo en la consulta select, me carga un datagrid perfectamente, pero me gustaría automatizar el proceso para poder abrir cualquier fichero excel con un nombre de libro que desconozco.

El código que utilizo es el siguiente :

Dim myDataset As New DataSet
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "c:\Prueba.xls" & ";" & _
"Extended Properties=""Excel 8.0;"""

Dim myData As New OleDbDataAdapter("SELECT * FROM [ot5866-5868-5874- 5875-5876-5877$]", strConn)
myData.TableMappings.Add("Table", "ExcelTest")
myData.Fill(myDataset)
DataGrid1.DataSource = myDataset.Tables(0).DefaultView

Un saludo a todos y gracias anticipadas.