如何获取已经打开的Excel程序

1.C#方式

_Application excelApp;
try
{
  excelApp = (_Application)Marshal.GetActiveObject("Excel.Application");
}
catch(Exception)
{
  // this is important. If Excel is not running, GetActiveObject will throw
  // an exception
  excelApp = null;
}
if( excelApp == null )
{
  excelApp = new ApplicationClass();
}

 

2.VB

     Dim xlsApp As Application
     Dim xlsWorkSheet As Worksheet
     Dim xlsRange As Range
     Set xlsApp = CreateObject("Excel.Application.8")
     xlsApp.Visible = True
     xlsApp.SheetsInNewWorkbook = 1
     With xlsApp.Workbooks
    If (.Count = 0) Then
    .Add
    End If
     End With
     Set xlsWorkSheet = xlsApp.Worksheets.Item(1)
     xlsWorkSheet.Range("A1").Value = "Easy"

 

3.MFC

LPDISPATCH      pDispatch = NULL;
    LPUNKNOWN       pUnknown = NULL;
    CLSID      clsid;
    _Application    appExcel;
    LPDISPATCH      pWorkbooks = NULL;
    Workbooks       Workbooks;
    LPDISPATCH      pWorkbook = NULL;
    LPDISPATCH      pWorksheets = NULL;
    Sheets     Worksheets;
    LPDISPATCH      pWorksheet = NULL;
    _Worksheet      Worksheet;
    LPDISPATCH      pWorkRange = NULL;
    Range      WorkRange;
    CLSIDFromProgID( L"Excel.Application.8", &clsid );
    // 看指定的对象是否已经运行
    if ( SUCCEEDED(GetActiveObject(
         clsid, NULL, &pUnknown )) )
    {
        VERIFY( SUCCEEDED(pUnknown->QueryInterface(
            IID_IDispatch, (void**)&pDispatch )) );
        ASSERT( pDispatch );
        appExcel.AttachDispatch( pDispatch );
        pUnknown->Release();
    }
    else
    {
        // 没运行。那就建立Excel.Application.8对象
        if ( ! appExcel.CreateDispatch(
            (LPCTSTR)"Excel.Application.8") )
        {
           MessageBox(
           "can not found the Excel.Application.8 object!");
           return;
        }
    }
    // 显示并激活Excel窗口
    // XLMAIN 是用Spy++查到的
    HWND hWndExcelMain = ::FindWindow( "XLMAIN", NULL );
    ASSERT( hWndExcelMain );
    ::ShowWindow( hWndExcelMain, SW_SHOW );
    ::UpdateWindow( hWndExcelMain );
    ::BringWindowToTop( hWndExcelMain );
    // 设置在一个新工作簿中的工作表数为1
    appExcel.SetSheetsInNewWorkbook( 1 );
    // 得到工作簿集的IDispatch，并绑定到Workbooks对象
    pWorkbooks = appExcel.GetWorkbooks();
    ASSERT( pWorkbooks );
    Workbooks.AttachDispatch( pWorkbooks );
    // 如果工作簿集是空的，那就添加一个工作簿
    if ( Workbooks.GetCount() == (long)0 )
    {
        pWorkbook = Workbooks.Add();
        ASSERT( pWorkbook );
    }
    // 得到工作表集（同上）
    pWorksheets = appExcel.GetWorksheets();
    ASSERT( pWorksheets );
    Worksheets.AttachDispatch( pWorksheets );
    // 激活第一个工作表
    pWorksheet = Worksheets.GetItem(
        COleVariant((short)1) );
    ASSERT( pWorksheet );
    Worksheet.AttachDispatch( pWorksheet );
    Worksheet.Select( COleVariant((short)TRUE) );
    // 得到A1区域的引用
    pWorkRange = Worksheet.GetRange(
        COleVariant("A1"), COleVariant("A1"));
    WorkRange.AttachDispatch( pWorkRange );
    WorkRange.SetValue(
        COleVariant("多简单！就是麻烦一点儿！") );
    if ( pWorkbook )

        pWorkbook->Release();