vc6.0调用excel xp,word 2k

最新推荐文章于 2025-08-12 23:51:23 发布

转载最新推荐文章于 2025-08-12 23:51:23 发布 · 1.4k 阅读

文章标签：

#excel #xp #null #include #c

Database 专栏收录该内容

142 篇文章

订阅专栏

本文介绍了一种通过C++编程语言使用COM接口来操作Microsoft Excel应用程序的方法。具体展示了如何创建Excel应用实例、设置可见性、添加新的工作簿、获取工作表、修改单元格内容及颜色等操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#include <ole2.h> #include <stdio.h> #pragma warning (disable:4146 4192 4786 4081) #define USE_OFFICEXP 1 #ifdef USE_OFFICEXP #import "C:/Program Files/Common Files/Microsoft Shared/Office10/MSO.DLL" #import "c://Program Files//Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.olb" #import "c:/Program Files/Microsoft Office/Office10/MSWORD.olb" rename("ExitWindows","ExitWindowsEx") #import "c:/Program Files/Microsoft Office/Office10/excel.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") / rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture") #else #import "c:/Program Files/Microsoft Office/Office/MSO9.dll" #import "C:/Program Files/Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.OLB" no_namespace #import "c:/Program Files/Microsoft Office/Office/MSWORD9.OLB" rename("ExitWindows","_ExitWindows") #import "c:/Program Files/Microsoft Office/Office/excel9.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/n",iColCnt); int iRowCnt = pRange ->GetRows() ->GetCount(); printf("used rows is %d/n",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; }