4. Word/Excel automation in VC++ ohne MFC und #import

Word/Excel automation in VC++ ohne MFC und #import

  • W

    Hallo,
    ich bin gerade dabei eine Applikation in VC++ zu schreiben, welche über
    OLE auf MS Word zugreift.

    Ich erstelle über "Word.Application" eine Instance auf MS Word und öffne dort ein Dokument.

    CLSID clsidWordApplication;
HRESULT hr = CLSIDFromProgID(L"Word.Application", &clsidWordApplication);

IDispatchPtr spIWord = NULL;
// Word - Application erzeugen:
hr = CoCreateInstance(clsidWordApplication, NULL, CLSCTX_SERVER, ID_IDispatch, (void **) (IDispatch *) &spIWord);

//Zugriff auf Datein-Objekt
DISPID dispidDocuments = 0;
hr = m_pDispWord->GetIDOfName(L"Documents", &dispidDocuments);
hr = m_pDispWord->GetProperty(dispidDocuments, &vResult);
CComDispatchDriver spDocuments(vResult.pdispVal);

//Öffnen der Datei
hr = spDocuments.Invoke1(L"Open", &vFilename, &vResult);

    Nun ist es so das in diesem Word-Dokument auch Excel-Tabellen eingebettet sind.

    Ich möchte nun solch eine Tabelle bearbeiten.
    Dafür hole ich mir diese Tabell als OLE-Object.

    //OLEFormat
IDispatchPtr spOLEFormat = NULL;
hr = spDispShape.GetPropertyByName(L"OLEFormat", &vResult);
spOLEFormat = vResult.pdispVal;
CComDispatchDriver spDispOLEFormat(spOLEFormat);

//OLE-Object aktivieren
hr = spDispOLEFormat.Invoke0(L"Activate", &vResult);

//OLEObject holen
IDispatchPtr spOLEObject = NULL;
hr = spDispOLEFormat.GetPropertyByName(L"Object", &vResult);
spOLEObject = vResult.pdispVal;
CComDispatchDriver spDispOLEObject(spOLEObject);

//Worksheet holen
IDispatchPtr spActiveSheet = NULL;
hr = spDispOLEObject.GetPropertyByName(L"ActiveSheet", &vResult);
spActiveSheet = vResult.pdispVal;
CComDispatchDriver spDispActiveSheet(spActiveSheet);

    Nun möchte ich die Werte in den einzelnen Zellen ändern.

    Dafür holle ich mir über Range die Zelle.

    DispatchPtr spColumns = NULL;
VARIANT vRangeExcel1, vRangeExcel2;
vRangeExcel1.vt =VT_BSTR;
vRangeExcel1.bstrVal = L"A1";	
vRangeExcel2.vt =VT_BSTR;
vRangeExcel2.bstrVal = L"A1";	
hr = spDispActiveSheet.Invoke2(L"Range", &vRangeExcel1, &vRangeExcel2, &vResult);

    Leider bekomme ich hier aber immer die Meldung
    0x80020003 Mitglied nicht gefunden.

    Kann mir da jemand weiterhelfen bzw. mir sagen wo ich im Netz dazu Hilfe finde (ausser MSDN).

    Danke
    Friedl

    0
  • W

    Was hat das mit C++ zu tun?

    0
  • C

    Dieser Thread wurde von Moderator/in HumeSikkins aus dem Forum C++ in das Forum MFC mit dem Visual C++ verschoben.

    Im Zweifelsfall bitte auch folgende Hinweise beachten:
    C/C++ Forum :: FAQ - Sonstiges :: Wohin mit meiner Frage?

    Dieses Posting wurde automatisch erzeugt.

    0
Anmelden zum Antworten