[已解决]VBA代码运行中遇到的问题

jiangslly

Sub abcd()
Dim obj
Set NewSheet = Worksheets.Add
i = 2
NewSheet.Range("A1").Value = "Name"
NewSheet.Range("B1").Value = "Link Type"
Sheet1.Select
For Each obj In Worksheets("Sheet1").OLEObjects
    NewSheet.Cells(i, 1).Value = obj.Name
    If obj.OLEType = xlOLELink Then
        NewSheet.Cells(i, 2) = "Linked"
    Else
        NewSheet.Cells(i, 2) = "Embedded"
    End If
    i = i + 1
Next
End Sub
为什么当我运行到 For Each obj In Worksheets("Sheet1").OLEObjects  这里的时候就直接跳到end sub 了，这是什么原因

最佳答案

月排行榜 / 总排行榜

loadymf

2011-9-7 20:46

OLEObjects 是在插入【菜单】中插入【对象】的时候才出现，如图表、PPT等。。。

跳转到最佳答案楼层

雪日骄阳

在Worksheets("Sheet1")中没有OLEObjects吧？用msgbox Worksheets("Sheet1").OLEObjects.count  显示下看个数为多少？

jiangslly

回复 雪日骄阳 的帖子

你好，我用你的方法结果是零，那如果要的怎么添加呢？还有有没有关于OLEObjects方面的知识啊?有没有资料?谢谢

无聊的疯子

回复 jiangslly 的帖子

代码不是你自己写的吧？

查一下 OLEObjects 的帮助，对你有用！！

loadymf

OLEObjects 是在插入【菜单】中插入【对象】的时候才出现，如图表、PPT等。。。