在VB中，怎么添加excel中第一行中所有不为空的单元格中的文本到combo中

在VB中，如何添加excel中第一行中所有不为空的单元格中的文本到combo中？
在VB中，如何添加excel中第一行中所有不为空的单元格中的文本到combo中？
急求
------解决方案--------------------

引用:

为什么会这样

你在哪里提示下标越界，下标越界是没有文档的提示

你sheet(1)不应该这么写，应该改写为 sheet("sheet1")
------解决方案--------------------
你按那个调试按钮，然后就可以定位到你哪一行处问题了。然后把鼠标放过去把变量加到watch里面
------解决方案--------------------
整那么复杂干嘛？

Private Sub Command1_Click()

    Dim mExcel As Excel.Application

    Dim mBook As Excel.Workbook, mSht As Excel.Worksheet

    ''文档已经打开的情况下

    Set mExcel = GetObject(, "excel.application")

    Set mBook = mExcel.ActiveWorkbook

    ''文档还没打开的情况下

    ''Set mExcel = CreateObject("excel.application")

    ''Set mBook = mExcel.Workbooks.Open("你的文件名带路径")

    Set mSht = mBook.Worksheets("sheet1") ''默认sheet1为你的目标工作表

    Dim i As Long, Rng As Excel.Range

    Combo1.Clear ''清除列表

    With mSht

        i = .Cells(1, .Columns.Count).End(xlToLeft).Column ''确定第一行最后一个不为空的列号

        For Each Rng In .Range(.Cells(1, 1), .Cells(1, i))

            If Rng.Value <> "" Then Combo1.AddItem Rng.Value

        Next

    End With

End Sub