如何在C#中访问已经打开的Excel文件？

Question

我通过在Windows资源管理器中双击打开了一个Excel工作簿，但是无法在代码中访问它。

Excel.Application xlApp = (Application)Marshal.GetActiveObject("Excel.Application");
Excel.Workbooks xlBooks = xlApp.Workbooks;

xlBooks.Count等于0，为什么它没有引用我打开的工作簿？

编辑

以下是不同的情况和发生的情况：

情况1：如果文件尚未打开

• 代码打开工作簿，我很高兴。

情况2：如果文件最初是从代码中打开的，而我关闭并重新打开应用程序

• 代码引用文件非常好，xlBooks.Count等于1，我很高兴。

情况3：如果文件最初是通过在资源管理器中双击打开的

• 代码打开文件的另一个实例，xlBooks.Count等于0，我很生气！

这是目前的整个代码

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices;
using Microsoft.Office.Interop.Excel;

public class ExcelService : IExcelService
{
    const string _filePath = @"C:\Somewhere";
    const string _fileName = @"TestFile.xlsb";
    string _fileNameAndPath = Path.Combine(_filePath, _fileName);

    Application xlApp;
    Workbooks xlBooks;
    Workbook xlBook;
    Worksheet xlSheet;

    public ExcelService()
    {
        try
        {
            xlApp = (Application)Marshal.GetActiveObject("Excel.Application");
            xlBooks = xlApp.Workbooks;

            var numBooks = xlBooks.Count;
            Log.Info("Number of workbooks: {0}".FormatWith(numBooks));
            if (numBooks > 0)
            {
                xlBook = xlBooks[1];
                Log.Info("Using already opened workbook");
            }
            else
            {
                xlBook = xlBooks.Open(_fileNameAndPath);
                Log.Info("Opening workbook: {0}".FormatWith(_fileNameAndPath));
            }

            xlSheet = (Worksheet)xlBook.Worksheets[1];

            // test reading a named range
            string value = xlSheet.Range["TEST"].Value.ToString();
            Log.Info(@"TEST: {0}".FormatWith(value));

            xlApp.Visible = true;
        }
        catch (Exception e)
        {
            Log.Error(e.Message);
        }
    }

    ~ExcelService()
    {
        GC.Collect();
        GC.WaitForPendingFinalizers();

        try
        {
            Marshal.FinalReleaseComObject(xlSheet);
        }
        catch { }

        try
        {
            Marshal.FinalReleaseComObject(xlBook);
        }
        catch { }

        try
        {
            Marshal.FinalReleaseComObject(xlBooks);
        }
        catch { }

        try
        {
            Marshal.FinalReleaseComObject(xlApp);
        }
        catch { }
    }
}

- Jon Erickson

---

你确定你没有多个 Excel 实例吗？ - GSerg

请返回翻译文本：Dupe of https://dev59.com/oVnUa4cB1Zd3GeqPYTQ_ - Armbrat

请展示您尝试打开“已经打开”的电子表格的代码行。 - Jeremy Thompson

他自己的问题的副本...哇... - Tipx

那么，在任务管理器中，你只有一个excel.exe打开了吗？正确吗？ - Armbrat

Answer 1

我知道这个帖子有点旧，但是我找到了另一种方法来做到这一点。当你创建一个新的Excel.Application对象时，你必须创建WorkBooks对象。当你访问已经打开的Excel文件时，WorkBooks对象已经被创建，所以你只需要向现有的工作簿中添加一个新的工作簿。如果你可以访问工作簿名称，@Tipx 的解决方案非常有效，但在我的情况下，当前的工作簿名称总是随机的。以下是我想出的解决方案：

Excel.Application excelApp = null;
Excel.Workbooks wkbks = null;
Excel.Workbook wkbk = null;

bool wasFoundRunning = false;

Excel.Application tApp = null;
//Checks to see if excel is opened
try
{
    tApp = (Excel.Application)System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application");
    wasFoundRunning = true;
}
catch (Exception)//Excel not open
{
    wasFoundRunning = false;
}
finally
{
    if (true == wasFoundRunning)
    {
        excelApp = tApp;
        wkbk = excelApp.Workbooks.Add(Type.Missing);                    
    }
    else
    {
        excelApp = new Excel.Application();
        wkbks = excelApp.Workbooks;
        wkbk = wkbks.Add(Type.Missing);
    }
    //Release the temp if in use
    if (null != tApp) { Marshal.FinalReleaseComObject(tApp); }
    tApp = null;
}
//Initialize the sheets in the new workbook

可能不是最好的解决方案，但它满足了我的需求。希望这能帮助到某个人。:)

- Nathan

---

这正是我所寻找的。谢谢你。 - Darw1n34

@Nathan，你有没有想过用Java中的Apache POI来实现这个功能呢？ - Devendra

@Devendra 抱歉，我不知道；我甚至不知道那个存在，我有时间时会去了解一下。 - Nathan

Answer 2

如果您的所有工作簿都在同一个Excel实例中打开（您可以通过检查是否可以使用Alt-tab从一个工作簿切换到另一个来进行确认）。您可以使用Workbooks("[文件名]")来简单地引用其他工作簿。例如：

Dim wb as Workbook //for C#, type Excel.Workbook wb = null;
Set wb = Workbooks("MyDuperWorkbook.xlsx") //for C#, type wb = Excel.Workbooks["MyDuperWorkbook.xlsx"];
wb.Sheets(1).Cells(1,1).Value = "Wahou!"

- Tipx

---

这是针对Office 2013及更高版本吗？我使用的是Office 2010和Excel。Excel.Workbooks不接受“string”输入参数。 - Lati

答案是在将近5年前给出的，所以很可能是针对Excel 2010的，但我记不清了。 - Tipx

@Tipx 有没有想过如何使用Apache POI（在Java中）完成这个任务。 - Devendra

@Devendra 很遗憾，我没有任何想法，抱歉。 - Tipx