outlook2010 vba打开excel报错

jiangli1984

最近有点脚本需求，研究 outlook2010  vba打开excel   存取邮件内容，
进行简单的试验，打开excel的时候  报错：未定义的类型？版本是microsoft outlook 14.0.7162.
论坛中看了很多帖子，基本上都报同样的错，请大神指教下，谢谢。

错误定位在 If Xl Is Nothing Then Set Xl = New Excel.Application。
试验代码如下，请大神指教或者帮修改下，谢谢。


Public Sub OpenMyExcelFile()
  Dim File$
  Dim Xl As Object ' Excel.Application
  Dim Wb As Object ' Excel.Workbook
  Dim Ws As Object ' Excel.Worksheet
  Dim Rn As Object ' Excel.Range

  File = "C:\Book1.xls"


  On Error Resume Next
  Set Xl = GetObject(, "excel.application")
  On Error GoTo 0
If Xl Is Nothing Then Set Xl = New Excel.Application
  Set Wb = Xl.Workbooks.Open(File)
  Set Ws = Wb.Sheets(1)
  Ws.Activate
  Set Rn = Ws.Range("a1")
  Rn.Activate
  Xl.Visible = True
End Sub

jiangli1984

vba果然不流行了。。幸好自己解决了：）