在outlook中使用vba代码引用excel对象的问题

Alyosha1

各位老师好

我需要在outlook中使用vba引用excel对象

sub test()
Dim excelapp As Excel.Application
Set excelapp = New Excel.Application
Dim a As Excel.Workbook
Set a = excelapp.Workbooks.Open("C:\123.xlsx")
Msgbox a.Sheet1.Range("a1")'此句报错
End Sub

执行该过程后报错，错误438，对象不支持该属性或方法

特来请教如何在outlook中引用excel对象

谢谢

闻启学

要添加引用  看这个帖子教程  跟我来！  一步一步教你批量发送邮件 http://club.excelhome.net/thread-1158003-1-1.html (出处: ExcelHome技术论坛)

Alyosha1

老师你好，我看了您的帖子，最后一个实例中，您将代码写在excel中，通过excel引用outlook实现发报，但我的问题是我要将代码写在outlook中，由outlook引用excel对象中的内容，整个过程要由outlook主动实现而非excel召唤outlook实现，您的例子中没有能够解决我问题的