RETORNAR PLANILHAS DO EXCEL

Dim cat As New adox.Catalog
Dim tblList As New adox.Table
cat.ActiveConnection = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\diversos.xlsx;Extended Properties=[Ô] & Chr(34) & [Ô]Excel 12.0 Xml;HDR=YES;[Ô] & Chr(34)

   For Each tblList In cat.Tables
      If tblList.Type <> [Ô]VIEW[Ô] Then
         Combo1.AddItem tblList.Name & vbTab & tblList.Type
      End If
   Next

Function GetWorkSheets() As String

        Dim sbWorkSheets As New StringBuilder
        Dim oExcel As Object = CreateObject([Ô]excel.application[Ô])
        Dim oWorkBook As Object = oExcel.Workbooks.Open([Ô]D:\Pasta1.xlsx[Ô])

        [ô]Exibe o aplicativo Excel
        oExcel.Application.Visible = False

        For Each oWorkSheet As Object In oWorkBook.Worksheets
            sbWorkSheets.Append(oWorkSheet.Name).AppendLine()
        Next

        oExcel.Quit()

        Return sbWorkSheets.ToString

    End Function

public string GetWorkSheets()
{

	StringBuilder sbWorkSheets = new StringBuilder();
	object oExcel = Interaction.CreateObject([Ô]excel.application[Ô]);
	object oWorkBook = oExcel.Workbooks.Open([Ô]D:\\Pasta1.xlsx[Ô]);

	//Exibe o aplicativo Excel
	oExcel.Application.Visible = false;

	foreach (object oWorkSheet in oWorkBook.Worksheets) {
		sbWorkSheets.Append(oWorkSheet.Name).AppendLine();
	}

	oExcel.Quit();

	return sbWorkSheets.ToString;

}