Question

excel 运行时错误：‘424’要求对象”

有个别人做好的文件其中有个模块：
Attribute VB_Name = "模块1"
Option Explicit
Private Sub Auto_Open()
With [datas].Worksheet
.Unprotect
.ScrollArea = "A1:Q15"
.EnableSelection = 1
.Protect
End With
End Sub
我把它导出后在新键文件中导入With [datas].Worksheet这句就出错，这里的datas是不是要定义一下，在原文件中没找到在哪定义了呀。怎么解决？

Answer 1

应该是你的表格没有这个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

Answer 2

是不是外语名称啊，显示的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

Answer 3

楼主的需求进一步明确下
在报错的时候的
建议选择“调试“
然后代码行会变色
具体看看代码行变量情况

不然无法进一步解释

或者提供具体问题截图及附件

Answer 4

[datas].Worksheet 是没有找到这个对象，你可以改成当前激活的工作溥对象
with ActiveWorkbook.Worksheet
或者直接是当前激活的工作页
with ActiveSheet

Answer 5

后面的SQL有点问题， textbox1.text是变量，不能写在双括号内。
而且密码没有的话，需要在等号后面加 单引号`+单引号+双引号
"SELECT * From 柜员列表 where 柜员号 = '" & textbox1.text & "'; jet oledb:database password=''"

追问

驴唇不对马嘴！