VB6.0下拉框数值读取EXCEL问题，请高手赐教，代码如下

Private Sub Form_Load()Dim xlApp As ObjectDim xlBook As AsobjectDim xlSheet As AsobjectSet xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见（False不可见）Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表For i = 1 To 10 Combo1.List(i) = ExcelSheet.Cells(1, 1 + i) NextEnd Sub

最新回答

冰月灵狐

2025-06-27 16:08:48

Private Sub Form_Load()
Dim xlApp As Object
Dim xlBook As Asobject
Dim xlSheet As Asobject
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（False不可见）
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表

Me.Combo1.Clear '进入循环前清除ComBo List
For i = 1 To 10
Me.Combo1.AddItem xlSheet.cells(i,1) '正确用法是使用AddItem添加List
Next

追问

按着代码运行的时候出现如下问题，请赐教，谢谢





继续逞强

2025-06-27 14:32:05

下面语句有错：
For i = 1 To 10
Combo1.List(i) = ExcelSheet.Cells(1, 1 + i)
Next

可能应该修改为：
For i = 1 To 10
Combo1.List(i) = ExcelSheet.Cells(i, 1)
Next

我要回答

匿名回答

VB6.0下拉框数值读取EXCEL问题，请高手赐教，代码如下

您可能感兴趣问答

Collapsible

热门标签

热点问答