在VC中将数据存为word文件

[ljunfa]

怎样将一个数组数据转变为word表格文件，200分给提供详细代码的同志，谢谢！

[chyang]

参考一下msdn中关于office部分的开发文档。似乎可以考虑用OLE automation来完成。

[telan]

用OLE Automation来完成。

按CTRL+W键运行Class Wizard，选择Automation标签，选择Add Class按钮，并选择From a Type Library项，然后找到MSWord8.olb文件(MSWORD 97)，该文件一般放在
Microsoft Office目录下的Office目录下，同一目录下一般还有sacc8.olb,
msppt8.olb等文件，在确认对话框中选择所有的类，Class Wizard将会生成一堆
类，在文件Msword8.h和Msword8.cpp中，这其中自然包括Table,Row,Cell,_Document
等类，下面的事情就是调用接口的问题了。

希望能对你有点帮助。

[telan]

用OLE Automation来完成。

按CTRL+W键运行Class Wizard，选择Automation标签，选择Add Class按钮，并选择From a Type Library项，然后找到MSWord8.olb文件(MSWORD 97)，该文件一般放在
Microsoft Office目录下的Office目录下，同一目录下一般还有sacc8.olb,
msppt8.olb等文件，在确认对话框中选择所有的类，Class Wizard将会生成一堆
类，在文件Msword8.h和Msword8.cpp中，这其中自然包括Table,Row,Column,_Document
等类，下面的事情就是调用接口的问题了。

希望能对你有点帮助。

[telan]

下面是一个简单的示例：
_Application oApp;
Documents oDocs;
_Document oDoc;

COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);
if(!oApp.CreateDispatch("Word.Application", NULL))
{
AfxMessageBox("Unable to start Word");
return;
}

oDocs = oApp.GetDocuments();
oDoc = oDocs.Add(vOpt, vOpt);

Range oRange= oDoc.Range(vOpt,vOpt);

Tables oTables = oDoc.GetTables();
Table oTable = oTables.Add(oRange,3,4);

int i,j;
Cell oCell;
CString str;
Range oRange1;
for(i=1;i<=3;i++)
{
for(j=1;j<=4;j++)
{
oCell = oTable.Cell(i,j);
str.Format("{%d,%d}",i,j);
oRange1 = oCell.GetRange();
oRange1.SetText(str);
}
}

oDoc.SaveAs(COleVariant("C:\\1.doc"),vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt);

oDoc.Close(COleVariant((short)false), vOpt, vOpt);
oDoc.ReleaseDispatch();
oDoc.m_lpDispatch = NULL;

[ljunfa]

telan,非常感谢，你还知道那里有这方面的资料吗？
另外还有没有哪位知道使用VBA将数据转变为word文件？

[OpenBall]

I want the discussion artical

[telan]

使用VBA应该也是可以的,好好看看MSDN里面的
Office Development,里面应该有你要的全部东西,
此外,microsoft的站点里有更多关于Office automation
的内容.对于你来说,这些东西应该足够你用的啦.

GOOD LUCK!!

[ljunfa]

人气太少