作者：乔山办公网日期：
返回目录：excel表格制作
应该是你的表格没有这个cEmployeeInfo对象。这个对象应该是一个自定义对象，或者是某个程序写的一个.dll文件里面的对zd象。所以你必须先找到这个对象，对其进行引用，才可以运行。
[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名称都是zd乱码，不过不影响，感觉有问题的有一版句
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
Range("a" & n).Value，这里的n没有被赋值的原因。
你可以将n=2移动到这一行的前面试试。
应该是你的表格没有这个cEmployeeInfo对象。copy
这个对象应该是一个自定义对象，或者是某个程序写的一个.dll文件里面的对象。。
所以你必须先找到这个对象，对其进行引用，才可以运行。百。
由于你的这个对象是自定义的，所以我们也不知道这个是什么东西，无法帮你度写。