C / C++ / MFC

 	kernel32.dll!7c812aeb() 	
 	[Frames below may be incorrect and/or missing, no symbols loaded for kernel32.dll]	
 	kernel32.dll!7c812aeb() 	
 	kernel32.dll!7c809ac6() 	
 	InterfaceWithExcel.exe!_com_raise_error(HRESULT hr=-2147352568, IErrorInfo * perrinfo=0x00000000)  Line 19	C++
 	InterfaceWithExcel.exe!_com_issue_error(HRESULT hr=-2147352568)  Line 39 + 0xe bytes	C++
>	InterfaceWithExcel.exe!_com_util::CheckError(HRESULT hr=-2147352568)  Line 99	C++
 	InterfaceWithExcel.exe!_variant_t::_variant_t(const tagVARIANT & varSrc=safearray of BSTR = [1,1](0x001a4bf4 "C"))  Line 1136 + 0x1d bytes	C++
 	InterfaceWithExcel.exe!main()  Line 98 + 0x12 bytes	C++
 	InterfaceWithExcel.exe!__tmainCRTStartup()  Line 582 + 0x19 bytes	C
 	InterfaceWithExcel.exe!mainCRTStartup()  Line 399	C
 	kernel32.dll!7c817067() 	

// code adapted from provided in "A brief introduction to C++ and Interfacing with Excel"
// by Andrew L. Hazel, School of Mathematics, University of Manchester

// Microsoft Office Objects
#import \
 "C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL" \
rename("DocumentProperties","DocumentPropertiesXL") \
rename("RGB", "RGBXL")
// I changed OFFICE11 to OFFICE12, since I am using Excel 2007

// Microsoft VBA Objects
#import \
 "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"

// Excel Application Objects
#import "C:\Program Files\Microsoft Office\OFFICE12\EXCEL.EXE" \
rename("DialogBox", "DialogBoxXL") rename("RGB", "RGBXL") \
rename("DocumentProperties", "DocumentPropertiesXL") \
rename("ReplaceText","ReplaceTextXL") \
rename("CopyFile","CopyFileXL") \
exclude("IFont","IPicture") no_dual_interfaces

#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>



int main()
{
	Excel::_ApplicationPtr XL;
	HRESULT hr;
	
	try
	{
		CoInitialize(NULL);
	
		XL.CreateInstance(L"Excel.Application");
		
		XL->Visible = true;
	}
	catch(_com_error &error)
	{
		cout << "COM error " << endl;
	}

	// create workbook & worksheet
	// identify range to which array will be assigned
	XL->Workbooks->Add(Excel::xlWorksheet);
	Excel::_WorksheetPtr pSheet = XL->ActiveSheet;
	Excel::RangePtr pRange = pSheet->Cells;
	Excel::RangePtr pBeginRange = pRange->Item[1][1];
	Excel::RangePtr pEndRange = pRange->Item[1][1];
	Excel::RangePtr pTotalRange = pSheet->Range[(Excel::Range*)pBeginRange][(Excel::Range*)pEndRange];
	
	
	// create some BSTRs
	wchar_t wsz1[] = L"C";
	wchar_t wsz2[] = L"D";
	BSTR bstr1;
	bstr1 = ::SysAllocString(wsz1);
	BSTR bstr2;
	bstr2 = ::SysAllocString(wsz2);
	
	// create safearray
	SAFEARRAYBOUND rgsabound[2] = { 0 };
	rgsabound[0].cElements = 1; // num rows
	rgsabound[0].lLbound = 0; // lower bound
	rgsabound[1].cElements = 1; // num cols
	rgsabound[1].lLbound = 0; // lower bound
	SAFEARRAY* mySafeArrayPtr = SafeArrayCreate(VT_BSTR,2,rgsabound);

	// identify index we want to change
	long index[2];
	
	// modify first element <0,0>
	index[0]	= 0;
	index[1] = 0;
	hr = SafeArrayPutElement(mySafeArrayPtr,index,bstr1);
	
	// modify second element <0,1>
	// index[0] = 0;
	// index[1] = 1;
	// hr = SafeArrayPutElement(mySafeArrayPtr,index,bstr2);
	
	// wrap safearray in variant
	VARIANT var;
	VariantInit(&var);
	var.vt = VT_ARRAY ;
	var.parray = mySafeArrayPtr;
	
	// assign safearray to range
	pTotalRange->Value = var; // this causes error
	
	// cleanup
	SysFreeString(bstr1);
	SysFreeString(bstr2);
	hr = SafeArrayDestroy(mySafeArrayPtr);
	
	return 0;
}

void ChangePointerType(int type)
{
    if(type == 0)
    {
	HCURSOR hCursor = LoadCursor(NULL, IDC_ARROW); 
	SetCursor(hCursor);
    }
    else if(type == 1) 
    {
	HCURSOR hCursor = LoadCursor(NULL, IDC_CROSS); 
        SetCursor(hCursor);
    }
    else if(type == 2) 
    {
	HCURSOR hCursor = LoadCursor(NULL, IDC_HAND); 
        SetCursor(hCursor);
    }

    ShowCursor(true);
}