Question

VB6.0初学请教高手，combol怎么读取excel里的数据，如图。跪求大神赐教





Answer 1

有两方式，直接引用Excel并创建对象如
dim xlApp as Excel.Application
dim xlBook as As Excel.Workbook
dim xlSheet as As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（False不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
可以这样：a =xlSheet.Cells(row, col)
另一种是ado，方法网上很多，
如果不引用 可以这样：
dim xlApp as object
dim xlBook as As object
dim xlSheet as As object
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（False不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
可以这样：a =xlSheet.Cells(row, col)

Answer 2

这个好办。
引用EXCEL，
然后读取EXCEL对象及文件。

具体代码，百度查。

追问

能说的具体点么，能查到引用EXCEL代码，但不知道怎么赋值到combo里面，请赐教