查看: 1569|回复: 5
查询代码错误。提示“运行错误 424 要求对象”求老师帮忙！
阅读权限70
在线时间 小时
& & & & & & & &
查询代码错误。提示“运行错误 424 要求对象”求老师帮忙！
(29.75 KB, 下载次数: 29)
08:12 上传
点击文件名下载附件
阅读权限70
在线时间 小时
問題出在下面這行代碼。
cnn.Open &provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=& & ThisWorkbook.FullName
cnn沒定義，且沒被賦予對象。
阅读权限70
在线时间 小时
感谢指点，帮忙修改一下，谢谢！，这个码是贴别人的，谢谢！
阅读权限70
在线时间 小时
哪位老师帮忙给改改代码，谢谢1
阅读权限70
在线时间 小时
試試看這樣是否可以：
Private Sub UserForm_Initialize()
& & Dim cnn As Object '後期綁定
& & Dim rng As Range, cw$, i&
& & Set cnn = CreateObject(&ADODB.Connection&)
& & Set rng = Sheets(&Sheet1&).[a1].CurrentRegion
& & With ListBox1
& && &&&.ColumnHeads = True
& && &&&.ColumnCount = rng.Columns.Count
& && &&&.RowSource = &Sheet1!& & rng.Address
& && &&&cw = &&
& && &&&For i = 1 To .ColumnCount
& && && && &cw = cw & rng.Columns(i).Width * 0.7 & &;&
& && &&&Next
& && &&&.ColumnWidths = cw
& & End With
& & cnn.Open &provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=& & ThisWorkbook.FullName
& & OptionButton1.Value = True
& & TextBox7.SetFocus
阅读权限90
在线时间 小时
窗口初始化部分中的cnn没有定义，所以报错
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1311|回复: 6
为什么会出现 要求对象 错误？
阅读权限10
在线时间 小时
Public Function ff(x As String, y) As Object
Dim xy As String
xy = x & y
ff = wb.sheets(&sheet1&).range(xy).Value
End Function
我是要调用 这个函数， wb已经申明打开了。出现这个错误，是因为什么原因呢？难道还要再函数里再getobject一次？那这样太麻烦了吧。有什么解决方法吗？只要getobject一次就可以了的方法。
谢谢各位老师了
阅读权限70
在线时间 小时
WB变量是否为公共变量，是否
传递至FUNCTION代码
请上传附件
阅读权限95
在线时间 小时
wb没定义也不是函数的参数。
阅读权限10
在线时间 小时
Public Function ff(x As String, y) As Object
Dim xy As String
xy = x & y
MsgBox wb.sheets(&sheet1&).range(xy).Value
ff = wb.sheets(&sheet1&).range(xy).Value
End Function
Private Sub Command1_Click()
Dim wb As Object
Dim strFileName, jilu1, jilu() As String '工作簿文件名
Dim Name1, Name2, Name3, Name4, Name5, Name6, Name7, Name8, Name9, Name10, k As String '工作表名
Dim strCellAddress As String '被读单元格地址
strFileName = &E:\aa\111.xls&
Dim ex As Object '新建excel
Dim exwbook As Object
Dim exsheet As Object
Dim zhi As Integer
Set wb = GetObject(strFileName) '打开被读取excel
Set ex = CreateObject(&Excel.Application&)
ex.Visible = True '日报可见
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets(&sheet1&) '激活sheet1
阅读权限10
在线时间 小时
应该怎么弄嘛。具体怎么写，能随便举个列子吗
阅读权限70
在线时间 小时
不要急，出现“要求对象”错误就是wb变量没有定义并且赋值，看下面函数：
Public Function ff(x As String, y) As Object
Dim xy As String
xy = x & y
ff = wb.sheets(&sheet1&).range(xy).Value
End Function
虽然你在其他过程里定义了，但那是局部变量，这个函数访问不了，要解决这个问题有二个方法：一。你在函数里再定义一个WB，再用getobject()赋值；二。定义一个全局变量，只要在任意一个过程里赋值后其他过程都能共享。
阅读权限10
在线时间 小时
好的。我试一下，看看能不能成功！还有。老师能不能加您qq呢 我的是
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 850|回复: 10
为什么一起执行就提示错误424，要求对象，分开执行就没事？【内附详细代码，附件】
阅读权限10
在线时间 小时
本帖最后由 xxdddbw 于
19:33 编辑
代码：Sub 整理成绩第一步()
& & Sheets(&完成学分情况&).Select& && & '更改工作簿名称
& & Sheets(&完成学分情况&).Name = &Sheet1&
& & Sheets.Add After:=ActiveSheet
& & Sheets.Add After:=ActiveSheet& && && &'更改工作簿名称
Sheets(&Sheet1&).Select& && && && && & '选中Sheet1工作簿
Dim Ar, i%, j%, Rng As Range, Lens%& &&&'删除空白列
Ar = ActiveSheet.UsedRange
For j = 1 To UBound(Ar, 2)
& & For i = 9 To UBound(Ar)
& && &&&Lens = Lens + Len(Ar(i, j))
& & Next
& & If Lens = 0 Then
& && &&&If Rng Is Nothing Then Set Rng = Cells(9, j) Else Set Rng = Union(Rng, Cells(3, j))
& & End If
& & Lens = 0
Next
If Not Rng Is Nothing Then Rng.EntireColumn.Delete
Cells.Replace What:=&/&, Replacement:=&&, LookAt:=xlPart, SearchOrder:= _
& && &&&xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&'删除空白列
Range(&8:8&).Select& && && && &'把学籍状态为“在籍”的筛选出来
& & Selection.AutoFilter
& & ActiveSheet.Range(&$A$8:$C$63&).AutoFilter Field:=3, Criteria1:=&在籍&& && &'把学籍状态为“在籍”的筛选出来
'删除最后8列()
& & h = [dz7].End(xlToLeft).Column '判断最后一个非空的列
& & For i = h To h - 7 Step -1 '循环
& & Columns(i).Delete '满足条件行的删除
& & Next
& & '删除最后8列()
Sub 整理成绩第二步()
Sheet2.Cells.Clear& && && &'把筛选后的数据粘贴到Sheet2!A2位置
With Sheet1
& & If .FilterMode Then
& && &&&.AutoFilter.Range.SpecialCells(12).Copy Sheet2.Cells(2, 1)
& & End If
End With& && && && && &&&'把筛选后的数据粘贴到Sheet2!A2位置
Sheet3.Cells.Clear& && &'把筛选后的数据粘贴到Sheet3!A2位置
With Sheet1
& & If .FilterMode Then
& && &&&.AutoFilter.Range.SpecialCells(12).Copy Sheet3.Cells(2, 1)
& & End If
End With& && && && && & '把筛选后的数据粘贴到Sheet3!A2位置
& & Rows(&7:7&).Select '把课程ID行复制到Sheet2、Sheet3中
& & Selection.Copy
& & Sheets(&Sheet2&).Select
& & Range(&A1&).Select
& & ActiveSheet.Paste
& & Sheets(&Sheet3&).Select
& & Range(&A1&).Select
& & ActiveSheet.Paste& &'把课程ID行复制到Sheet2、Sheet3中
& &
& & Sheets(&Sheet2&).Select& & '拆分课程ID单元格
& & Range(&A1:C1&).Select
& & Selection.UnMerge
& & Sheets(&Sheet3&).Select
& & Range(&A1:C1&).Select
& & Selection.UnMerge& && && & '拆分课程ID单元格
& & Sheets(&Sheet2&).Select& && &&&'删除Sheet2、Sheet3 学籍列
& & Columns(&C:C&).Select
& & Selection.Delete Shift:=xlToLeft
& & Sheets(&Sheet3&).Select
& & Columns(&C:C&).Select
& & Selection.Delete Shift:=xlToLeft& & '删除Sheet2、Sheet3 学籍列
End Sub
复制代码
如果把中间
& & End Sub
& & Sub 整理成绩第二步()
删除，放在一起运行就提示运行时错误424，要求对象，分开运行就没事，怎么解决？
第二步和第三步中间有一个在Sheet3中（从C3单元格）把所有分数都填充函数的步骤，怎么用VBA写出来？（要求自动填充到最后一行，最后一列，行数列数不确定）
填充的函数为：=IF(OR(Sheet2!C3=&缺考&,Sheet2!C3=&作弊&,Sheet2!C3=& &,Sheet2!C3=&无效&,Sheet2!C3&60),&√&,IF(OR(Sheet2!C3=&及格&,Sheet2!C3=&中等&,Sheet2!C3=&优秀&,Sheet2!C3=&良好&,Sheet2!C3&=60),& &))
然后再执行第三步，代码：
Sub 第三步()
'
& && &&&Cells.Replace What:=& &, Replacement:=&&, LookAt:=xlPart, SearchOrder:= _
& && &&&xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Dim Ar, i%, j%, Rng As Range, Lens%& &&&'删除空白列
Ar = ActiveSheet.UsedRange
For j = 1 To UBound(Ar, 2)
& & For i = 3 To UBound(Ar)
& && &&&Lens = Lens + Len(Ar(i, j))
& & Next
& & If Lens = 0 Then
& && &&&If Rng Is Nothing Then Set Rng = Cells(3, j) Else Set Rng = Union(Rng, Cells(3, j))
& & End If
& & Lens = 0
Next
If Not Rng Is Nothing Then Rng.EntireColumn.Delete
Cells.Replace What:=&/&, Replacement:=&&, LookAt:=xlPart, SearchOrder:= _
& && &&&xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&'删除空白列
End Sub复制代码求大神帮忙。
附件已上传，最终效果是在处理后的SHEET3中。
附件已更新
(33.33 KB, 下载次数: 3)
19:33 上传
点击文件名下载附件
阅读权限20
在线时间 小时
Sub 整理成绩第一步()
& & Sheets(&完成学分情况&).Select& && & '更改工作簿名称&&没有这个表格，一运行就报错
& & Sheets(&完成学分情况&).Name = &Sheet1&
& & Sheets.Add After:=ActiveSheet
& & Sheets.Add After:=ActiveSheet& && && &'更改工作簿名称
阅读权限10
在线时间 小时
Sub 整理成绩第一步()
& & Sheets(&完成学分情况&).Select& && & '更改工作簿名称&&没有这个表格，一运 ...
附件已经更新，刚才上传的是处理后的表格，现在里面添加了原表格。
阅读权限10
在线时间 小时
本帖最后由 xxdddbw 于
19:29 编辑
帖子要沉了，自己顶一下，求大神帮忙。
阅读权限10
在线时间 小时
求大神路过。
阅读权限95
在线时间 小时
本帖最后由 cflood 于
21:20 编辑
改成sheets(&sheet2&)形式
阅读权限10
在线时间 小时
改成sheets(&sheet2&)形式
是把Sheet2.Cells.Clear改成sheets(&sheet2&).Cells.Clear吗？
改过后还是提示错误 424
阅读权限95
在线时间 小时
所有的Sheet2、Sheet3全改
程序运行前还不存在sheet2和sheet3
阅读权限10
在线时间 小时
& & & & & & & &
所有的Sheet2、Sheet3全改
程序运行前还不存在sheet2和sheet3
太感谢了，已经解决了。
另外请教下关于解决在中间插入函数的代码请教下怎么写的？
在Sheet3中（从C3单元格）把所有分数都填充函数的步骤，怎么用VBA写出来？（要求自动填充到最后一行，最后一列，行数列数不确定）
填充的函数为：=IF(OR(Sheet2!C3=&缺考&,Sheet2!C3=&作弊&,Sheet2!C3=& &,Sheet2!C3=&无效&,Sheet2!C3&60),&√&,IF(OR(Sheet2!C3=&及格&,Sheet2!C3=&中等&,Sheet2!C3=&优秀&,Sheet2!C3=&良好&,Sheet2!C3&=60),& &))
然后在最后插入第三步的代码。
阅读权限95
在线时间 小时
Range(&自己填&) = &=IF(OR(Sheet2!C3=&&缺考&&,Sheet2!C3=&&作弊&&,Sheet2!C3=&& &&,Sheet2!C3=&&无效&&,Sheet2!C3&60),&&√&&,IF(OR(Sheet2!C3=&&及格&&,Sheet2!C3=&&中等&&,Sheet2!C3=&&优秀&&,Sheet2!C3=&&良好&&,Sheet2!C3&=60),&& &&))&
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1311|回复: 2
请教大虾-错误提示-运行错误“424” ，要求对象
阅读权限10
在线时间 小时
& & & & & & & &
showsurvey模块如下：
Sub dosurvey()
infosurvey.Show
Sub listhardware()
With infosurvey.iboxsystems
.AddItem &cd-rom drive&
.AddItem &print&
.AddItem &fax&
.AddItem &network&
.AddItem &joystick&
.AddItem &soundcard&
.AddItem &graphicscard&
.AddItem &modem&
.AddItem &monitor&
.AddItem &mouse&
.AddItem &zip drive&
.AddItem &scanner&
infosurvey窗体如下：
Private Sub UserForm_Initialize()
Opthard.Value = True
Optsoft.Value = False
Chkibm.Value = False
Chknote.Value = False
Chkmac.Value = False
txtpercent.Value = 0
Call listhardware
With Me.Cboxwhereused
.AddItem &家里&
.AddItem &工作&
.AddItem &学校&
.AddItem &工作/家里&
.AddItem &学校/家里&
.AddItem &工作/家里/学校&
Me.Cboxwhereused.ListIndex = 0
Me.iboxsystems.ListIndex = 0
Me.picImage.Picture = LoadPicture(&c:\cd.bmp&)
当运行到 Call listhardware提示上述错误
请各位大虾指教，非常感谢
阅读权限95
在线时间 小时
& & & & & & & &
最好有附件。。。。。
阅读权限10
在线时间 小时
excel是07版的
里边有很多模块
望请大侠指正
12:43 上传
点击文件名下载附件
48.21 KB, 下载次数: 4
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1399|回复: 2
运行时错误“424” 要求对象
阅读权限20
在线时间 小时
& & & & & & & &
求帮助！以前用的好好的 ，重装机的原因？
(44.37 KB, 下载次数: 0)
18:49 上传
(49.16 KB, 下载次数: 0)
18:50 上传
18:52 上传
点击文件名下载附件
9.34 KB, 下载次数: 6
阅读权限20
在线时间 小时
有附件，麻烦大家帮忙下载打开试下，谢谢！有种感觉是我的电脑问题！
阅读权限100
在线时间 小时
经过测试没有问题。我的是2013版本的。
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}