VB EXCEL工作表值赋给comobox控件

Question

请教 用vb6.0怎样将execel工作簿如（ExcelID.WorkBooks.Open(  'C:\Excel\Demo.xls'  );中的工作表如（sheet1,sheet2,sheet3......）赋给下拉框comobox控件，进行联动。怎样实现谢谢！给位望赐教！！！

Answer 1

    '首先得定义变量
     Private xlsApp As Object
    Private xlsBook As Object
    Private xlsSheet As ObjectPrivate Sub FillList()
    cdg1.Filter = "(*.xls)|*.xls"
    cdg1.ShowOpen
  
    If Len(Trim(cdg1.Filename)) > 0 Then
        openExcel cdg1.Filename
        
        cmbSheet.Clear
        If Not xlsBook Is Nothing Then
            For lIndex = 1 To xlsBook.Worksheets.Count
               cmbSheet.AddItem xlsBook.Worksheets(lIndex).Name
            Next
        End If
    End If
End Sub'打开某个EXCEL的函数,可以按页签打开
Private Sub openExcel(ByVal strName As String, Optional ByVal lSheet As Long = 0)
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Open(strName)
If lSheet > 0 Then
    Set xlsSheet = xlsBook.Worksheets(lSheet)
Else
    Set xlsSheet = xlsBook.ActiveSheet
End If
xlsApp.DisplayAlerts = False    '不给任何提示信息
End Sub
大致的代码都在上面了,其中的控件都得预先定义,自己看看吧