将ListView中及内容导出到Word和Excel.docVIP

将ListView中的内容导出到Word和Excel(新) //---------------------------------------------------------------------------//?将ListView中的内容导出到Word文档//?v0.2?by?ccrun(老妖)?2005.10.13//---------------------------------------------------------------------------void?__fastcall?ListView2Word(TListView?*lv,?String?strDocFile){? ? Variant?vWordApp,?vTable,?vCell;? ? try? ? {? ? ? ? vWordApp?=?Variant::CreateObject(Word.Application);? ? }? ? catch(...)? ? {? ? ? ? MessageBox(0,?启动?Word?出错,?可能是没有安装Word.ListView2Doc,?MB_OK?|?MB_ICONERROR);? ? ? ? vWordApp?=?Unassigned;? ? ? ? return;? ? }? ? //?隐藏Word界面Visible,?false);? ? //?新建一个文档Documents).OleFunction(Add);? ? //? ? Variant?vSelect?=?vWordApp.OlePropertyGet(Selection);? ? //?设置一下字体，大小Font).OlePropertySet(Size,?lv-Font-Size);? ? vSelect.OlePropertyGet(Font).OlePropertySet(Name,?lv-Font-Name.c_str());? ? //?要插入表格的行数int?nRowCount(lv-Items-Count?+?1);? ? nRowCount?=?nRowCount??2??2:?nRowCount;? ? //?要插入表格的列数int?nColCount(lv-Columns-Count);? ? nColCount?=?nColCount??1??1:?nColCount;? ? //?在Word文档中插入与ListView行数列数相同的一个表格ActiveDocument).OlePropertyGet(Tables)? ? ? ? .OleProcedure(Add,? ? ? ? vSelect.OlePropertyGet(Range),? ? ? ? nRowCount,?//?行数//?列数//?DefaultTableBehavior:=wdWord9TableBehavior? ? ? ? 0);?//?AutoFitBehavior:=wdAutoFitFixed? ? //?操作这个表格ActiveDocument).? ? ? ? ? ? OleFunction(Range).OlePropertyGet(Tables).OleFunction(Item,?1);? ? //?设置单元格的宽度for(int?i=0;?inColCount;?i++)? ? {? ? ? ? int?nColWidth;? ? ? ? if(lv-Columns-Count??i)? ? ? ? ? ? nColWidth?=?lv-Columns-Items[i]-Width;? ? ? ? else? ? ? ? ? ? nColWidth?=?100;?//?如果没有设置列，就随便设置个默认值Columns).OleFunction(Item,?i?+?1)? ? ? ? ? ? ? ? .OlePropertySet(PreferredWidthType,?3);?//?wdPreferredWidthPoints? ? ? ? vTable.OlePropertyGet(Columns).OleFunction(Item,?i?+?1)? ? ? ? ? ? ? ? .OlePropertySet(PreferredWidth,?nColWidth?*?2);? ? }? ? //----------------------------------------------------------------------------? ? //?抱歉，这个提示又来了，为了防止不负责任的转载者，只好在此