vc6.0调用excel xp,word 2k (转)

最新推荐文章于 2020-12-06 12:29:40 发布

转载最新推荐文章于 2020-12-06 12:29:40 发布 · 124 阅读

本文提供了一个使用VC6.0调用Excel XP的示例代码，展示了如何创建Excel工作簿、设置单元格值及颜色，并预览打印。此示例适用于需要在C++应用程序中操作Excel文件的开发者。

vc6.0调用excel xp,word 2k (转)[@more@]

#include
#include
#pragma warning (disable:4146 4192 4786 4081)
#define USE_Office xp 1

#ifdef USE_OFFICEXP
#import "C:Program FilesCommon Filesmicrosoft SharedOffice10MSO.DLL"
#import "c:Program FilesCommon FilesMicrosoft SharedVBAVBA6VBE6EXT.olb"
#import "c:Program FilesMicrosoft OfficeOffice10MSword.olb" rename("Exitwindows","ExitWindowsEx")
#import "c:Program FilesMicrosoft OfficeOffice10excel.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL")
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#else
#import "c:Program FilesMicrosoft OfficeOfficeMSO9.dll"
#import "C:Program FilesCommon FilesMicrosoft SharedVBAVBA6VBE6EXT.OLB" no_namespace
#import "c:Program FilesMicrosoft OfficeOfficeMSWORD9.OLB" rename("ExitWindows","_ExitWindows")
#import "c:Program FilesMicrosoft OfficeOfficeexcel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL")
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#endif
int main(int argc, char* argv[])
{
VARIANT varItem;
varItem.vt = VT_I4;
varItem.intVal = 1;
::CoInitialize(NULL);
CLSID clsid;

#if 0
CLSIDFromProgID(L"Word.Application", &clsid);
Word::_ApplicationPtr pApp;
pApp.CreateInstance (clsid,NULL);
pApp ->PutVisible (VARIANT_TRUE);
pApp ->GetDocuments() ->Add();
Word::_DocumentPtr pWordDocument =pApp-> GetActiveDocument();
Word::selectionPtr pSelection = pApp ->GetSelection();
pSelection ->TypeText("badguy");
#endif
#if 1
CLSIDFromProgID(L"Excel.Application", &clsid);
Excel::_ApplicationPtr pApp;
pApp .CreateInstance (clsid,NULL);
pApp ->PutVisible (0,VARIANT_TRUE);
Excel::_WorkbookPtr pWorkbook = pApp ->GetWorkbooks () ->Add ();
Excel::_WorksheetPtr pSheet = pWorkbook ->GetWorksheets () ->GetItem (varItem);
Excel::RangePtr pRange = pSheet ->GetUsedRange(0);
int iColCnt = pRange ->GetColumns() ->GetCount();
printf("used columns is %d ",iColCnt);
int iRowCnt = pRange ->GetRows() ->GetCount();
printf("used rows is %d ",iRowCnt);
pRange = pSheet ->GetRange(OLESTR("A1"));
pRange ->Value2 = OLESTR("SOME");
Excel::InteriorPtr pInterior= pRange ->GetInterior ();
varItem.intVal = 0xff0000;
pInterior ->PutColor (varItem);
pSheet ->PrintPreview ();
#endif
::CoUninitialize();
return 0;
}
好久没回复贴子，今天看到一个excel的问题。于是写了一下。写完了再保存。顺便发一下。这可是原创的哈。好想有三颗星星了。