高分求WordApplication和ExcelApplication控件的用法！

[CsharpGame]

高分求WordApplication和ExcelApplication控件的用法！

[e-mail]

[CsharpGame]

真的没人用过吗？分不够可以再给！

[CsharpGame]

怎样基于模板创建文件如模板为为c:\tt.dot
AnsiString tmp="c:\\tt.dot";
Variant temp=Variant (tmp);
向Add()方法传入temp会出错；
将tmp="c:\tt.dot";也不行
请高手指教！！

[CACACACACA]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
WideString s;
TOpenDialog *dlg = new TOpenDialog(this);
if( dlg->Execute() )
s = dlg->FileName;
delete dlg;
EA->Connect();
EA->set_Caption(WideString("更新审计来的EXCEL文件."));
EA->set_Visible(0,false);
EA->Workbooks->Open(s,TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam(),
TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam(),
TNoParam(),TNoParam());

EB->ConnectTo( EA->Workbooks->get_Item(Variant(1)) );
ES->ConnectTo( EB->Worksheets->get_Item(Variant(1)) );
ES->set_Name( WideString("z") );
EB->Save( 1 ); //保存,只有此方法可以保存文件,ES无此方法
/* 另存为
ES->SaveAs( Variant("d:\\abc.xls"),TNoParam(),TNoParam(),TNoParam(),
TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam(),1 );
*/
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
EA->Disconnect();
}
//---------------------------------------------------------------------------

[CACACACACA]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Word_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
WA->Connect();
WA->set_Caption(WideString("sdfsd"));
WA->set_Visible(1);

OleVariant Template = EmptyParam;
OleVariant NewTemplate = False;
OleVariant ItemIndex = 1;


TOpenDialog *dlg = new TOpenDialog(this);
// 下面这两句是加个空文档
// WA->Documents->Add(Template, NewTemplate);
// WD->ConnectTo(WA->Documents->Item(ItemIndex));
if( dlg->Execute() )
{
OleVariant aa = String( dlg->FileName );
WA->Documents->Open( aa );
}
WD->ConnectTo(WA->Documents->Item(ItemIndex));
Caption = WD->Paragraphs->Item(2)->Range->get_Text();
Caption = WD->Shapes->Count;
}
//---------------------------------------------------------------------------

[CACACACACA]

眼下只有这么一点点,其它的看帮助啦.

[moondaoke]

//这里先定义.dot文件完整路径：PathFileName

OleVariant ItemIndex=1;
WordApplication1->Visible=true;
WordApplication1->Connect();//连接Word应用程序

OleVariant NewTemplate=False;
OleVariant DocumentType;
OleVariant Visible;

WordApplication1->Documents->Add(PathFileName,NewTemplate,DocumentType,Visible);//添加文档