Как получить доступ к уже открытому файлу Excel в C #? - PullRequest
Новая
       36

Как получить доступ к уже открытому файлу Excel в C #?

6 голосов
/ 14 июля 2011

У меня открывается книга Excel, дважды щелкнув ее в проводнике Windows, но я не могу получить к ней доступ в коде 

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 { }
    }
}

Ответы [ 2 ]

8 голосов
/ 03 декабря 2013

Я знаю, что эта ветка немного старая, но я нашел другой способ сделать это. При создании нового объекта Excel.Application необходимо создать объект WorkBooks. При доступе к уже открытому файлу Excel объект WorkBooks уже создан, поэтому вам просто нужно добавить новую рабочую книгу в существующую. Решение @Tipx отлично работает, если у вас есть доступ к имени WorkBook, но в моем случае текущее имя WorkBook всегда случайное. Вот решение, которое я придумал, чтобы обойти это: 

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

Возможно, это не лучшее решение, но оно сработало для моих нужд. Надеюсь, это кому-нибудь поможет. :)

4 голосов
/ 14 июля 2011

Если все ваши рабочие книги открыты в одном и том же экземпляре Excel (вы можете проверить это, проверив, можно ли переключаться с одной на другую, используя Alt-tab).Вы можете просто обратиться к другому, используя Workbooks("[FileName]").Так, например: 

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!"
...