好心人帮帮忙

[yb210021]

以下是我从网上找到的一个关于报表的方法，但为什么我用EVC编译的时候，在板子上不显示报表呢！而只执行到Falied!,即只显示Failed!,后面的程序没有执行,原因可能是没有打开WORD！但请问各位要怎么改才能显示啊？
1、Ctrl + W Add Class From a type Library C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB 添加_Application, _Document, _Font, _ParagraphFormat, Borders, Cell, Cells, Columns, Documents, Range, Row, Rows, Selection, Table, Tables

2、添加如下代码

BOOL C***App::InitInstance()
{
if (!AfxOleInit())
{
AfxMessageBox(IDP_OLE_INIT_FAILED);
return FALSE;
}

……
}

3、添加一按钮，生成报表代码如下：

void C***Dlg::OnButton1()
{
// TODO: Add your control notification handler code here
CString strField[8],strTop;
strField[0]="商品编号";
strField[1]="商品名称";
strField[2]="现有数量";
strField[3]="价 格";
strField[4]="采购数量";
strField[5]="采购价格";
strField[6]="供应商";
strField[7]="计划采购时间";

CString Title="计划采购信息";

CWaitCursor wait;
_Application wordApp;
_Document wordDoc;
Documents wordDocs;
if(!wordApp.CreateDispatch("word.Application"))
{
AfxMessageBox("Failed!");
return;
}
LPDISPATCH pDocs=wordApp.GetDocuments();
wordDocs.AttachDispatch(pDocs);
VARIANT varUnit;
VARIANT varOptional;
VariantInit(&varUnit);
varUnit.vt=VT_I4;
varUnit.lVal=5;
//
VariantInit(&varOptional);
varOptional.vt=VT_ERROR;
varOptional.scode=DISP_E_PARAMNOTFOUND;
//
LPDISPATCH pDoc=wordDocs.Add(&varOptional,&varOptional,&varOptional,&varOptional);
wordDoc.AttachDispatch(pDoc);

long nRows,nCols;
nRows=8;
nCols=8;
//
Range wordRange;
wordRange=wordDoc.Range(&varOptional,&varOptional);
//
Selection wordSelec=wordApp.GetSelection();
_Font oFont;
_ParagraphFormat wordFormat;

//标题
wordSelec.HomeKey(&varUnit,&varOptional);

oFont=wordSelec.GetFont();
oFont.SetSize(12);
oFont.SetName("宋体");
wordFormat=wordSelec.GetParagraphFormat();
wordFormat.SetAlignment(1);
wordSelec.InsertAfter(LPCSTR(Title));
wordSelec.InsertParagraphAfter();

oFont.SetSize(16);
oFont.SetName("黑体");
wordFormat=wordSelec.GetParagraphFormat();
wordFormat.SetAlignment(1);
wordSelec.InsertAfter(LPCSTR(strTop));
wordSelec.InsertParagraphAfter();

wordSelec.EndKey(&varUnit,&varOptional);

//设置表格
wordRange=wordSelec.GetRange();
oFont=wordSelec.GetFont();
oFont.SetSize(10);
oFont.SetName("宋体");
wordFormat=wordSelec.GetParagraphFormat();
wordFormat.SetAlignment(1);

VARIANT varTable;
VariantInit(&varTable);
varUnit.vt=VT_I4;
varUnit.lVal=0;
//
Tables wordTables=wordSelec.GetTables();
Table wordTable=wordTables.Add(wordRange,nRows,nCols,&varOptional,&varTable);
//
Borders tblBorders;
tblBorders=wordTable.GetBorders();
tblBorders.SetInsideLineStyle(1);
tblBorders.SetOutsideLineStyle(7);
//
Columns tblColumns;
tblColumns=wordTable.GetColumns();
tblColumns.GetPreferredWidthType();
//
int i,j,n;
char buf[50];
CString strValue;
Cell tblCell;

for(i=1;i<=nRows;i++)
{
for(j=1;j<=nCols;j++)
{
if(i==1)
{
tblCell=wordTable.Cell(i,j);
wordRange=tblCell.GetRange();
oFont=wordRange.GetFont();
oFont.SetName("黑体");
n=j-1;
strValue=strField[n];
wordRange.InsertAfter(strValue);
}
else
{
tblCell=wordTable.Cell(i,j);
wordRange=tblCell.GetRange();
n=j-1;
if(n==0 || n==1 || n==6)
{
strValue="016";
}
if(n==2 || n==3 || n==4 ||n==5)
{
strValue="2345";
}
if(n==7)
{
strValue="7";
}
//strValue.TrimRight();
wordRange.InsertAfter(strValue);
}
}

}
wordApp.SetVisible(true);
wordDoc.Activate();
}

[yb210021]

？？？

[快乐鹦鹉]

？？？

[feilinhe]

Word.Application试试

[yb210021]

什么意思啊，不太明白?