VB.Net关于Excel中Sheet名称(三)

总算好了,最终采用以下方式

 

Dim EApp As New Excel.Application
EApp = New Excel.Application

Dim Ebook As Excel.Workbook = EApp.Workbooks.Open(Str_file)
Frm_dr.ComboBox1.Items.Clear()
Dim i As Long
For i = 1 To EBook.Worksheets.Count
        Frm_dr.ComboBox1.Items.Add(EBook.Worksheets(i).Name)
Next
EApp = Nothing