应该是你的表格没有这个cEmployeeInfo对象。这个对象应该是一个自定义对象,或者是某个程序写的一个.dll文件里面的对象。所以你必须先找到这个对象,对其进行引用,才可以运行。
[datas].Worksheet 是没有找到这个对象,你可以改成当前激活的工作溥对象。
withActiveWorkbook.Worksheet。
或者直接是当前激活的工作页with ActiveSheet。
扩展资料:
Microsoft Excel
Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。
在1993年,作为Microsoft Office的组件发布了5.0版之后,Excel就开始成为所适用操作平台上的电子制表软件的霸主。
参考资料来源:百度百科-Microsoft Office Excel
是不是外语名称啊,显示的Sheet名称都是乱码,不过不影响,感觉有问题的有一句
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Image1.Visible = False '就是这一句,Image1事先未定义,可能引发错误"要求对象",删除试试
On Error Resume Next
If Target.Row >= 7 Then
Image1.Picture = LoadPicture(Sheets("¿â´æ²éѯ").Range("AI" + CStr(Target.Row)).Value)
End If
End Sub
楼主的需求进一步明确下
在报错的时候的
建议选择“调试“
然后代码行会变色
具体看看代码行变量情况
不然无法进一步解释
或者提供具体问题截图及附件
[datas].Worksheet 是没有找到这个对象,你可以改成当前激活的工作溥对象
with ActiveWorkbook.Worksheet
或者直接是当前激活的工作页
with ActiveSheet
后面的SQL有点问题, textbox1.text是变量,不能写在双括号内。
而且密码没有的话,需要在等号后面加 单引号`+单引号+双引号
"SELECT * From 柜员列表 where 柜员号 = '" & textbox1.text & "'; jet oledb:database password=''"