从Outlook引用和访问Excel

我试图从Outlook（Office 2010）更新Excel文件。 我如何参考和访问Excel？

作为一个简单的testing，我试图计算打开工作簿的数量。 当我运行这个我得到0，即使有2打开。

Sub Test() Dim xlApp As Excel.Application Dim xlWBook As Excel.Workbook Set xlApp = New Excel.Application Debug.Print "xlApp.Workbooks.Count = " & xlApp.Workbooks.Count On Error Resume Next Set xlWBook = xlApp.Workbooks("Data.xlsx") Err.Clear 'Clear error and open File Index If xlWBook Is Nothing Then Set xlWBook = xlApp.Workbooks.Open("C:\Users\Chris\Desktop\Data.xlsx") End If End Sub 

Answer 1

这是我用来检测Excel的：

 Dim xlApp As excel.Application On Error Resume Next Set xlApp = GetObject(, "Excel.Application") If Err.Number = 429 Then 'Excel not running Set xlApp = CreateObject("Excel.Application") End If On Error GoTo 0 

一旦设置了xlApp，就可以使用xlApp.Workbooks.Count来计算工作表

注意：如果有多个Excel实例需要查找，则此代码将打开第一个代码

如果您需要查找特定的工作簿，请在此页面中Set xlApp = GetObject("Book2").Application即使Set xlApp = GetObject("Book2").Application不在第一个实例中， Set xlApp = GetObject("Book2").Application也会find该工作簿。 如果工作簿来自文件或已保存，请将book2replace为完整的path和文件名 – 副作用 – 如果文件尚未打开，也会打开该文件更多使用信息： http : //msdn.microsoft.com/ EN-US /库/ aa164798％28V = office.10％29.aspx