关于C++ Builderf操纵Excel表的问题，向大虾请教

darkperi

我是用OLE来操纵EXCEL表的，打开表，存入数据都没有问题，问题是如果一个表已经通过应用程序打开，以后如何判断EXCEL表已经打开，避免重复打开Excel程序，和某个工作表，谢谢诸位仁兄的帮助

apple_058

TCOM_Application iExcelApp;
    HRESULT hr;
    IUnknown * IUnExcelAppPtr;
    hr=GetActiveObject(CLSID_ExcelApplication,0,(IUnknown **)&IUnExcelAppPtr);
    if(hr==MK_E_UNAVAILABLE)
    {
      ShowMessage("没有Excel启动，重新启动Excel用来控制。");
      try{iExcelApp=CoExcelApplication::Create();}
      //CoExcelApplication  位于 Excel_2k.h
      catch(...) {ShowMessage("启动 Excel 出错, 大概是没装Excel");return;}
    }
    else
    {
      ShowMessage("已经有个Excel启动了，就【接】上这个操作。");
      IUnExcelAppPtr->QueryInterface(IID__Application,(void**)&iExcelApp) ;
      IUnExcelAppPtr->Release();
    }

duoduoluo

枚举Excel应用程序的实例，对每一个实例找当前打开的文件

darkperi

谢谢两位大虾，问题解决了，呵呵。我把我的代码也帖上以后供大家交流。献丑：
#include <vcl.h>
#pragma hdrstop
#include "Comobj.hpp"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Variant ExcelApp,WorkBook1,Sheet1,Range;
    bool bExcelRun = true;
    HWND h = NULL;
    h = FindWindow(0,"Microsoft Excel - 数据模板1");
    if(h == NULL)
    {
        try
        {
            GetActiveOleObject("Excel.Application");
        }
        catch(...)
        {
            bExcelRun = false;
        }
        if(bExcelRun == false)
        {
            ExcelApp = Variant::CreateObject("Excel.Application");
        }
        else
        {
            ExcelApp = Variant::GetActiveObject("Excel.Application");
        }
        ExcelApp.PS("Visible",(Variant)true);
        ExcelApp.PG("WorkBooks").FN("Add","F:\\mydata\\数据模板.xlt");
    }
    else
    {
        ExcelApp = Variant::GetActiveObject("Excel.Application");
        WorkBook1 = ExcelApp.PG("ActiveWorkBook");
    }
    WorkBook1 = ExcelApp.PG("ActiveWorkBook");
    Sheet1 = WorkBook1.PG("ActiveSheet");
    Sheet1.PG("Cells",10,10).PS("Value",100.05);

}
呵呵。