001
23.05.2003, 08:08 Uhr
FloSoft
Medialer Over-Flow
(Administrator)
|
Hallo,
dies hat mir mal ein Forumbenutzer zugeschickt, bin aber noch nicht dazugekommen es in die FAQ zu stecken:
| C++: |
#import <mso9.dll> no_namespace rename("DocumentProperties", "DocumentPropertiesXL")
#import "C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\vbe6ext.olb" no_namespace
#import <excel9.olb> rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") no_dual_interfaces
#pragma warning (disable:4192)
#pragma warning (disable:4146)
#include <stdio.h>
#include <tchar.h>
void dump_com_error(_com_error &e)
{
_tprintf(_T("Oops - hit an error!\n"));
_tprintf(_T("\a\tCode = %08lx\n"), e.Error());
_tprintf(_T("\a\tCode meaning = %s\n"), e.ErrorMessage());
_bstr_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());
_tprintf(_T("\a\tSource = %s\n"), (LPCTSTR) bstrSource);
_tprintf(_T("\a\tDescription = %s\n"), (LPCTSTR) bstrDescription);
}
struct StartOle {
StartOle() { CoInitialize(NULL); }
~StartOle() { CoUninitialize(); }
} _inst_StartOle;
void main()
{
using namespace Excel;
_ApplicationPtr pXL;
try {
if (pXL.GetInterfacePtr() == NULL) pXL.CreateInstance(L"Excel.Application.9"); //check ob es schon laeuft
pXL->Visible = VARIANT_TRUE;
// pXL->Visible = VARIANT_FALSE;
WorkbooksPtr pBooks;
_WorkbookPtr pBook;
WorksheetsPtr pSheets;
_WorksheetPtr pSheet;
pBooks= pXL->Workbooks;
pBook = pBooks->Add((long)Excel::xlWorksheet); //vohandenes Dokument mit pBooks->Open("c:\\test.xls"); öffnen
pSheets = pBook->GetWorksheets();
// pSheets->Add(); //Blatt hinzufuegen
pSheet=pBook->ActiveSheet;
pSheet->Name="test"; //Blattname ändern
//pSheets->Delete(); //Blatt löschen
double q=354.6;
pXL->Range["test!A7"]->Value2=q;
pXL->Range["test!A8"]->Value2=q+3;
pXL->Range["test!A9"]->Formula="=Sum(A7:A8)"; //bei Formeln englische Namen verwenden sonst Problem
// pXL->Range["test!D26"]->Formula="=Var(D20:D24)";
// pXL->Range["test!D27"]->Formula="=Average(D20:D24)";
pXL->Range["test!B7"]->Value2="20.03.2003";
pXL->Range["test!B8"]->Value2="13:50";
pXL->Range["test!A7:test!A9"]->Font->Bold = true; //Fett schreiben
// pBook->Save(); // wenn mit open geöffnet
//saveas funzt bei mir nicht so kann man das umgehen
pBook->SaveCopyAs("c:\\test.xls");
pBook->Close(false); //damit der die aktuelle nicht speichert
pXL->Quit();
} catch(_com_error &e) {
dump_com_error(e);
}
}
|
--
class God : public ChuckNorris { };
Dieser Post wurde am 23.05.2003 um 08:09 Uhr von FloSoft editiert. |
