1

如何将模板中的工作表加载到现有的 Excel 工作簿中(如果没有现有的工作簿,则先创建一个空白工作簿)。

我试过了

Excel.Application.Workbooks.Open("path");

这有效,但每次它在创建新工作簿时创建一个新的 Excel 会话。我无法通过 Google 找到任何关于如何将数据作为新工作表加载到现有书籍中的信息。

4

2 回答 2

1

正如您所发现的,只需调用Open()工作簿就会创建一个新的 Excel 实例,而不会连接到当前正在运行的实例。你需要的要复杂得多。下面是我用来连接到工作簿的方法,您已经知道它的名称(您也可以调整它以允许用户选择他们想要打开的工作簿):

private Excel.Workbook GetWorkbook(string workbookName)
{
    Excel.Window window = null;      // Excel window object from which application is grabbed
    Excel.Application app = null;    // Excel instance from which we get all the open workbooks
    Excel.Workbooks wbs = null;      // List of workbooks
    Excel.Workbook wb = null;        // Workbook to return
    EnumChildCallback cb;            // Callback routine for child window enumeration routine
    List<Process> procs = new List<Process>();           // List of processes

    // Get a full list of all processes that have a name of "excel"

    procs.AddRange(Process.GetProcessesByName("excel"));

    foreach (Process proc in procs)
    {
        // Make sure we have a valid handle for the window

        if ((int)proc.MainWindowHandle > 0)
        {
            // Get the handle of the child window in the current Excel process

            int childWindow = 0;
            cb = new EnumChildCallback(EnumChildProc);
            EnumChildWindows((int)proc.MainWindowHandle, cb, ref childWindow);

            // Make sure we got a valid handle

            if (childWindow > 0)
            {
                // Get the address of the child window so that we can talk to it and
                // get all the workbooks

                const uint OBJID_NATIVEOM = 0xFFFFFFF0;
                Guid IID_IDispatch =
                    new Guid("{00020400-0000-0000-C000-000000000046}");
                int res = AccessibleObjectFromWindow(childWindow, OBJID_NATIVEOM,
                    IID_IDispatch.ToByteArray(), ref window);

                if (res >= 0)
                {
                    app = window.Application;
                    wbs = app.Workbooks;

                    // Loop through all the workbooks within the current Excel window
                    // to see if any match

                    for (int i = 1; i <= wbs.Count; i++)
                    {
                        wb = wbs[i];

                        if (wb.Name == workbookName)
                        {
                            break;
                        }

                        wb = null;
                    }
                }
            }
        }

        // If we've already found our workbook then there's no point in continuing
        // through the remaining processes

        if (wb != null)
        {
            break;
        }
    }

    Release(wbs);
    Release(app);
    Release(window);

    return wb;
}

上面调用的Release()方法只是将引用设置为 null 并调用Marshal.FinalReleaseComObject()它们,否则你最终会得到到处都是无头的 Excel 实例。

您还需要以下内容来执行一些抓取窗口的功能:

private delegate bool EnumChildCallback(int hwnd, ref int lParam);

[DllImport("User32.dll")]
private static extern bool EnumChildWindows(int hWndParent, EnumChildCallback lpEnumFunc, ref int lParam);

[DllImport("Oleacc.dll")]
private static extern int AccessibleObjectFromWindow(int hwnd, uint dwObjectID, byte[] riid, ref Excel.Window ptr);

private bool EnumChildProc(int hwndChild, ref int lParam)
{
    // Get the name of the class that owns the passed-in window handle

    StringBuilder buf = new StringBuilder(128);
    GetClassName(hwndChild, buf, 128);

    // If the class name is EXCEL7 then we've got an valid Excel window

    if (buf.ToString() == "EXCEL7")
    {
        lParam = hwndChild;
        return false;
    }

    return true;
}

[DllImport("User32.dll")]
private static extern int GetClassName(int hWnd, StringBuilder lpClassName, int nMaxCount);
于 2013-03-01T21:52:48.080 回答
0

答案(感谢 Jon49 @ NetOffice 讨论板:http ://netoffice.codeplex.com/discussions/434906 ):

Excel.Application.Sheets.Add(Type:="TemplateWorkbookPath")

您可以从您当前正在使用的工作簿变量中执行此操作:

wkb.Application.Sheets.Add(Type:="TemplateWorkbookPath")
于 2013-03-03T12:06:10.340 回答