vb的combobox绑定excel的一列时出错
PrivateSubForm_Load()DimXLappAsExcel.ApplicationDimXlbookAsExce.WorkbookSetXlbook=XLa...
Private Sub Form_Load()
Dim XLapp As Excel.Application
Dim Xlbook As Exce.Workbook
Set Xlbook = XLapp.Workbooks.Open("E:\abc.xls")
XLapp.Visible = False
With Xlbook.Sheets("1")
ARRDJ = .Range("B1:B1241").Value
End With
Xlbook.Close False
ComboBox1.List = ARRDJ
End Sub
报错内容“用户定义类型未定义” 展开
Dim XLapp As Excel.Application
Dim Xlbook As Exce.Workbook
Set Xlbook = XLapp.Workbooks.Open("E:\abc.xls")
XLapp.Visible = False
With Xlbook.Sheets("1")
ARRDJ = .Range("B1:B1241").Value
End With
Xlbook.Close False
ComboBox1.List = ARRDJ
End Sub
报错内容“用户定义类型未定义” 展开
1个回答
展开全部
确定一下是哪一个 自定义变量 ，如果 变量在赋值前的值为 Nothing，就会有这种错误，所以需要判断一下变量是不是Nothing。
更多追问追答
追问
上面的问题解决了，想问一下怎么把从excel中选择的一列赋给combobox Combo1.List = ARRDJ End Sub 报错：必选参数，能加QQ吗
追答
不能这么直接赋吧？
如果有选择，我觉得应该做个for循环，一个一个填到combo1.list里面吧？
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
