作者parrotot (禎禎 ^^)
看板Visual_Basic
標題[VB6 ] 一開使就讀excel檔案進combo1(0)~~
時間Mon Mar 10 14:33:18 2008
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
1F：→ parrotot:已解^^ 03/26 18:21