Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Sheets
Dim i As Long Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("d:\data.xls")
Set oSheet = oBook.Worksheets(1)
i=0
while trim(oSheet.Range("A" & CLng(i))))<>""
cmbdata.additem trim(oSheet.Range("A" & CLng(i))))
wend
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Sheets
Dim i As Long Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("d:\data.xls")
Set oSheet = oBook.Worksheets(1)
i=0
while trim(oSheet.Range("A" & CLng(i))))<>""
cmbdata.additem trim(oSheet.Range("A" & CLng(i))))
wend
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货