I use class is this a few:
CApplication app;
CWorkbook book;//work thin
CWorkbooks books;//collection work thin
CWorksheet sheet;//work table
CWorksheets sheets;//worksheet collection
CRange range;//cell area

Write a two dimensional array to write like this:
COleSafeArray olesaWrite;
OlesaWrite. Create (vt, sizeof (sabWrite)/sizeof (SAFEARRAYBOUND), sabWrite);
.
.
.
Range. Put_Value2 (olesaWrite);
But how do you write write string?

CodePudding user response:

http://blog.csdn.net/wangshiqilin_fjy/article/details/24353327
The summary, is for reference only!

CodePudding user response:

 Range Range; 
Cstrings STR (_T (" string value ")); 
Long row=2, col=3; 
Range. SetItem (_variant_t (row), _variant_t (col), _variant_t (STR)); 

CodePudding user response:

 
//Copyright (C) 1992-1998 Microsoft Corporation 
//All rights reserved. 
//
//This source code is only intended as a supplement to the 
//Microsoft Visual c + + Language Reference and related 
//electronic documentation provided with Microsoft Visual c + +. 
//See these sources for detailed information regarding the 
//Microsoft Visual c + + product. 

//NOTE: This example will only work with Excel8 Office97 in 
//the Compile with cl/GX comexcel. CPP 
//TO DO: Edit the # import paths 
//# pragma message (" Make sure you go to view the Options. The Directories and add the paths to mso97. DLL and vbeext1. The olb. Mso97. DLL will usually be a c: \ \ \ "\ Program Files \ Microsoft Office " \ \ \ "" \ \ Office, and vbeext1. The olb will be in c: \ \ " \ Program Files \ \ \ \ "" Common Files " \ \ \ "Microsoft Shared \ \ " VBA ") 
# import "C: \ \ Program Files \ \ Common Files \ \ Microsoft Shared \ \ Office11 \ \ the oledata.mso DLL" no_namespace rename (" DocumentProperties ", "DocumentPropertiesXL") 
# import "C: \ \ Program Files \ \ Common Files \ \ Microsoft Shared \ \ VBA \ VBA6 \ \ VBE6EXT OLB" no_namespace 
# import "C: \ \ Program Files \ \ Microsoft Office \ \ OFFICE11 \ \ excel exe" rename (" DialogBox ", "DialogBoxXL") rename (" RGB ", "RBGXL") rename (" DocumentProperties ", "DocumentPropertiesXL") no_dual_interfaces 

# pragma warning (4192) disable: 

# include & lt; stdio.h> 
# include & lt; Tchar. H> 

Void dump_com_error (_com_error & amp; E) 
{
_tprintf (_T (" Oops - hit an error! \ n ")); 
_tprintf (_T (" \ \ a tCode=% 08 lx \ n "), e.E rror ()); 
_tprintf (_T (" \ \ a tCode fancy=% s \ n "), e.E rrorMessage ()); 
_bstr_t bstrSource (e.S ource ()); 
_bstr_t bstrDescription (e.D escription ()); 
_tprintf (_T (" \ \ a tSource=% s \ n "), (LPCTSTR) bstrSource); 
_tprintf (_T (" \ \ a tDescription=% s \ n "), (LPCTSTR) bstrDescription); 
} 

//If this is placed in the scope of the smart Pointers, they must be 
//explicitly Release (d) before CoUninitialize () is called. If any reference 
//count is non - zero, a protection fault will occur. 
Struct StartOle 
{
StartOle () {CoInitialize (NULL); } 
~ StartOle () {CoUninitialize (); } 
} _inst_StartOle; 

Void main () 
{
Using the namespace Excel; 

_ApplicationPtr pXL; 

Try 
{
PXL. CreateInstance (L "Excel. Application"); 

The pXL - & gt; The Visible=VARIANT_TRUE; 

WorkbooksPtr pBooks=pXL - & gt; Workbooks. 
_WorkbookPtr pBook=pBooks - & gt; Add ((long) xlWorksheet); 
_WorksheetPtr pSheet=pXL - & gt; ActiveSheet. 

RangePtr pRange. 
PRange=pSheet - & gt; Range [A21 "]; 
PRange - & gt; Value2=75 l; 
//pRange - & gt; NumberFormatLocal="@". 

_CommandBarsPtr pCmdbars=pXL - & gt; CommandBars; 
Int iCmdbars=pCmdbars - & gt; GetCount (); 

Sleep(1000); 
PRange=pSheet - & gt; Range (" he "), 
PRange - & gt; Insert ((long) Excel: : xlDown); 
PRange - & gt; Merge (); 

Sleep(1000); 

PBook - & gt; Saved=VARIANT_TRUE; 
The pXL - & gt; The Quit (); 
} 
The catch (_com_error & amp; E) 
{
Dump_com_error (e); 

The pXL - & gt; The Quit (); 
} 
}