作者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