EXCEL中OLE循环出错~~

cjq253 · 发表于 2019-6-28 16:59

本帖最后由 cjq253 于 2019-7-1 11:13 编辑

在excel中初始状态有4个Ole文件，
使用单元格复制后OLE文件数量变为2x4个，
之后循环把不符合条件的OLE文件删除，
结果发现只有初始状态的那4个文件可以参与循环并删除，
之后copy出来的那4个ole文件不能参与循环，也无法删除，每当初始4个循环完后就报错，请教下大神们是什么原因？

Sub sdfsf()
Dim aOLE As OLEObject
Dim a%
Sheet1.Range("B2:E19").Copy
Sheet1.Range("G2").Select
ActiveSheet.Paste
a = Sheet1.OLEObjects.Count '此处数量为8
For Each aOLE In Sheet1.OLEObjects
If aOLE.Name <> "卷材贴合" Then
aOLE.Delete
End If
Next
End Sub

daibao88 · 发表于 2019-6-29 09:10

Excel2010测试没问题，加入aOLE.Select，一步步看。

cjq253 · 发表于 2019-7-1 10:32

daibao88 发表于 2019-6-29 09:10
Excel2010测试没问题，加入aOLE.Select，一步步看。

aOLE.select加了也一样，只会循环初始的4个ole，后面copy出来的4个不能循环。。。

		自动登录	找回密码
密码			免费注册

[求助] EXCEL中OLE循环出错~~