VC中对office的操作

以前导出数据的时候都是自己定义格式，自己来解析，或者直接导出到TXT里，这显然不能满足用户的继续编辑的要求，所以我用自动化技术写了几个函数可以将数据导出到word和excel中，仅仅是标格数据。。。
这个过程是这样的：http://blog.csdn.net/hoya5121
在VC6的类向导中的AUTOMATION页筐中“ADD CLASS”，然后选择“from a type”，
浏览到office目录选择导入工程文件 EXCEL9.OLB 和msword9.olb，然后将需要的类导入到工程中，这里出现一个问题，就是excel和word同时导入的时候excel9.h 和msword9.h
两个文件中居然有名字相同的类导致连接出错，我不知道是我使用错误，还是ms没注意到这个问题。。。最终我这样解决了这个问题，在excel.h文件中用namespace将正个文件加入到一个名字空间中。。。
接下来的工作就比较简单了，打开office将你需要的流程录制成vba的宏，然后将宏翻译成vc的代码。。下面将我的导入标格的代码贴出来：





/**/////////////////对WORD的操作 2005-09-26///////////////////////


//.h


class CStringArrayOut : public CStringArray




...{


public:


CStringArrayOut& operator = (const CStringArrayOut& strarrarr)




...{


if(&strarrarr == this)


return *this;


this->RemoveAll();


for(int i = 0; i < strarrarr.GetSize(); i++)




...{


this->Add(strarrarr[i]);


}




return *this;


}


};




typedef CArray<CStringArrayOut,CStringArrayOut&> StrVecVecType;




void WordTable(CString tablename,int rowNum,int colNum,StrVecVecType& tablestr,CString strOutDocFile);




void ExcelTable(CString tablename,


int rowNum,


int colNum,


StrVecVecType& tablestr,


CString strOutExcelFile);






//.cpp


void WordTable(CString tablename,int rowNum,int colNum,StrVecVecType& tablestr,CString strOutDocFile)




...{


int i, j;






/**//////打开word/////////////////////////////////////////////////////////////////////


_Application app;


if(!app.CreateDispatch(_T("Word.Application")))




...{


AfxMessageBox(_T("您没有安装OFFICE，此功能不能执行！"));


return;


}


//app.SetVisible(TRUE); //使WORD可见






/**//////新建文档/////////////////////////////////////////////////////////////////////


Documents docs = app.GetDocuments();


CComVariant Template(_T(""));


CComVariant NewTemplate(false),DocumentType(0),Visible;


docs.Add(&Template,&NewTemplate,&DocumentType,&Visible);




//设置视图


Window win = app.GetActiveWindow();


View view = win.GetView();


Pane ap = win.GetActivePane();


if(view.GetSplitSpecial() == 0)




...{


view.SetType(1);


}


else




...{


view.SetType(1);


}






/**//////绘制标格/////////////////////////////////////////////////////////////////////


_Document doc = app.GetActiveDocument();


Selection sel = app.GetSelection();




//写表名


_Font font = sel.GetFont();


float fs = font.GetSize();


Paragraphs pg = sel.GetParagraphFormat();


long ali = pg.GetAlignment();




font.SetSize(16);


pg.SetAlignment(1);


sel.TypeText(tablename);


sel.TypeParagraph();




font.SetSize(fs);


pg.SetAlignment(ali);




Tables tables = doc.GetTables();


Range range = sel.GetRange();


//CComVariant v1((short)1);


//CComVariant v2((short)1);


CComVariant v1((short)1);


CComVariant v2((short)1);






tables.Add(range,rowNum,colNum,&v1,&v2);






/**////填写标格///////////////////////////////////////////////////////////////////////


if(tablestr.GetSize() <= 1)




...{


AfxMessageBox("绘制标格时出错！");


doc.ReleaseDispatch();


docs.ReleaseDispatch();


win.ReleaseDispatch();


view.ReleaseDispatch();


ap.ReleaseDispatch();


sel.ReleaseDispatch();


font.ReleaseDispatch();


CComVariant SaveChanges(false),OriginalFormat,RouteDocument;


app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);


app.ReleaseDispatch();


return;


}


if(tablestr.GetSize() != rowNum || tablestr[0].GetSize() != colNum)




...{


AfxMessageBox("绘制标格时出错！");


doc.ReleaseDispatch();


docs.ReleaseDispatch();


win.ReleaseDispatch();


view.ReleaseDispatch();


ap.ReleaseDispatch();


sel.ReleaseDispatch();


font.ReleaseDispatch();




CComVariant SaveChanges(false),OriginalFormat,RouteDocument;


app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);


app.ReleaseDispatch();


return;


}




for(i = 0; i < rowNum; i++)




...{


for(j = 0; j < colNum; j++)




...{


sel.TypeText(tablestr[i][j]);


sel.MoveRight(COleVariant((short)1),COleVariant((short)1),COleVariant((short)0));


}


}




//设置标格居中


Table tb = tables.Item(1L);


//tb.AutoFitBehavior(1L);


Rows rs = tb.GetRows();


rs.SetAlignment(1);


COleVariant vTrue((short)TRUE),


vFalse((short)FALSE);


doc.SaveAs(//保存文档


COleVariant(strOutDocFile),


COleVariant((short)0),


vFalse,


COleVariant(""),


vTrue,


COleVariant(""),


vFalse,


vFalse,


vFalse,


vFalse,


vFalse);




tb.ReleaseDispatch();


rs.ReleaseDispatch();


doc.ReleaseDispatch();


docs.ReleaseDispatch();


win.ReleaseDispatch();


view.ReleaseDispatch();


ap.ReleaseDispatch();


sel.ReleaseDispatch();


font.ReleaseDispatch();




CComVariant SaveChanges(false),OriginalFormat,RouteDocument;


app.Quit(&SaveChanges,&OriginalFormat,&RouteDocument);


app.ReleaseDispatch();


}




void ExcelTable(CString tablename,


int rowNum,


int colNum,


StrVecVecType& tablestr,


CString strOutExcelFile)




...{


//using namespace excel9;


int i,j;


excel9::_Application app;


excel9::_Workbook wbook;


excel9::Workbooks wbooks;


excel9::Worksheets sheets;


excel9::_Worksheet sheet;


excel9::Range range;


excel9::Range iCell;


//Range unionRange;


//LPDISPATCH lpDisp;


//COleVariant vResult;


COleVariant


covTrue((short)TRUE),


covFalse((short)FALSE),


covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);




if(!app.CreateDispatch("Excel.Application"))




...{


AfxMessageBox ("create excel faild!");


return;


}




//app.SetVisible(TRUE);


wbooks = app.GetWorkbooks();


wbook = wbooks.Add(covOptional);




//AfxMessageBox("");


sheets = wbook.GetSheets();


sheet = sheets.GetItem(COleVariant((short)1));


range.AttachDispatch(sheet.GetCells());




long iStartCol = 1; //使用区域的起始列，从1开始


long iStartRow = 1; //使用区域的起始行，从1开始


int iMaxCol = 6;




// 单元格样式设置(居中)


COleVariant varH, varV, varInfo;


varH.vt = VT_I2;


varV.vt = VT_I2;


varH.iVal = -4108;


varV.iVal = -4108;


range.SetHorizontalAlignment (varH);


range.SetVerticalAlignment(varV);




//最大化文档


excel9::Window win;


win = app.GetActiveWindow();


win.SetWindowState(-4137);




CArray<int,int&> maxcolwidarr;


for(i = 0; i < colNum; i++)




...{


int maxwid = tablestr[0][i].GetLength();


maxcolwidarr.Add(maxwid);


for(j = 0; j < rowNum; j++)




...{


if(tablestr[j][i].GetLength() > maxcolwidarr[i])


maxcolwidarr[i] = tablestr[j][i].GetLength();


}


}


//填写标格


for(int row = 1; row < rowNum+1; row++)




...{


for(int col = 1; col < colNum+1; col++)




...{


iCell = sheet.GetCells();


iCell.SetItem(COleVariant((short )(row)),


COleVariant((short )(col)),


COleVariant(tablestr[row-1][col-1]));


//iCell.SetColumnWidth(COleVariant((short)(maxcolwidarr[col-1])));


}


}


//设置宽度


for (int z = 0; z < maxcolwidarr.GetSize(); z++)




...{


iCell.AttachDispatch(range.GetItem


(COleVariant((long)1),COleVariant((long)(z+1))).pdispVal);


iCell.SetColumnWidth (COleVariant((long)maxcolwidarr[z]));


}




//保存文件




wbook.SaveAs(COleVariant(strOutExcelFile),


COleVariant((short )(-4143)),


COleVariant(""),


COleVariant(""),


COleVariant((short )(FALSE)),


COleVariant((short )(FALSE)),


0L,


COleVariant((short )(NULL)),


COleVariant((short )(NULL)),


COleVariant((short )(NULL)),


COleVariant((short )(NULL)));






//return


app.Quit();


app.ReleaseDispatch();


wbook.ReleaseDispatch();


wbooks.ReleaseDispatch();


sheet.ReleaseDispatch();


sheets.ReleaseDispatch();


range.ReleaseDispatch();


iCell.ReleaseDispatch();


win.ReleaseDispatch();


}

更多相关代码：