[VB6 ] 一開使就讀excel檔案進combo1(0)~~

[parrotot (禎禎 ^^)]

Private Sub Form_Load()
Dim zzRange As Object
Dim ex As Object, Bk As Object, mk As Object, Sh As Object
Dim i

Set ex = CreateObject("Excel.Application") '啟動Excel


             Set Bk = ex.Workbooks
             Set mk = Bk.open("D:\c.xls") '開檔案
             Set Sh = mk.Worksheets(2) '取得Sheet'(1)>>1?sheet1~~(2)>>>sheet2
                ex.Visible = False '不顯示Excel

      For i = 0 To 1000

    Set zzRange = Sh.Range("a" & i) '''取得Cell
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^它說這行又用程式或物件上定義錯誤????
        zzRange.Value = Text2(1).Text '''設定資料'X=myRange.Value= '''取得資料

        If Text2(1).Text = "aaa" Then Exit Sub '讀到aaa就停止
        Combo2(i).AddItem Text2(1).Text
      Next i
                mk.Close
                ex.Quit

End Sub




請問大大~是那裡錯誤呢??...........一直找不出來

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 125.229.4.106
→ parrotot:已解^^