vb.net获得excel的sheet1的名称

[qq03sj04]

我查了查,发现有的文章引用了 Excel.Application 可是我在 vb.net中 创建不了 Excel.Application,不知道为什么

sqlcmd.CommandText = "SELECT * INTO " & tname & " FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0','Excel 8.0;Database=" & fname & "' , 'SELECT * FROM [fsdf$]')"

我想在上面的代码中 fsdf$ 使用动态的变量 ,怎么才能动态的获得excel的 sheet 名称呢?

[沐NeMo]

在【项目】中要【添加引用】，选择Com 找到Microsoft Excel 11.0 Object Library 就可以了。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = New Excel.Application
xlBook = xlApp.Workbooks.Open("Excel文件路径")
xlSheet = xlBook.Worksheets(1)
msgbox xlSheet.name
xlSheet = Nothing
xlBook.Close(False)
xlBook = Nothing
xlApp.Quit()
xlApp = Nothing

[_NET2004]

 '获取数据表列表
            Dim table_list As Data.DataTable = GetSchemaTable(dbfconn, "TABLE")

            Me.cb_Table_List.DataSource = table_list.DefaultView
            Me.cb_Table_List.ValueMember = "TABLE_NAME"
            Me.cb_table_list.DisplayMember = "TABLE_NAME"



 Private Function GetSchemaTable(ByVal connection As Data.OleDb.OleDbConnection, ByVal Type As String)
        ' 获取数据表列表
        'Type 有："TABLE,VIEW,ACCESS TABLE,SYSTEM TABLE",

        Type = Type.ToUpper
        connection.Open()
        Dim table_list As Data.DataTable
        table_list = connection.GetOleDbSchemaTable(Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Type})
        connection.Close()
        Return table_list
    End Function

[qq03sj04]

第一种方法好用,速度好像有点慢
第二种方法看不太懂啊,哪位高手能讲讲

[_NET2004]

'获取数据表列表
            Dim table_list As Data.DataTable = GetSchemaTable(dbfconn, "TABLE")

            Me.cb_Table_List.DataSource = table_list.DefaultView
            Me.cb_Table_List.ValueMember = "TABLE_NAME"
            Me.cb_table_list.DisplayMember = "TABLE_NAME"

这段代码是将excel表名填充到一个下拉列表框中