我写的代码调用Word模板,然后填充数据,但是每次调用的居然是模板文件而不是由魔板生成的新的文档,这个很苦恼.代码如下请大家帮忙
var
myExcel: Variant;
workBook: olevariant;
workSheet: olevariant;
j:integer;
beginif MessageBox(self.Handle, '您确定将工艺数据导出到Excel中吗?', pchar(frmMain.strDlg), MB_YESNO OR MB_ICONWARNING) = IDNO THEN EXIT; try myExcel := CreateOleObject('Excel.Application');
myExcel.WorkBooks.Open(ExtractFilePath(application.ExeName) + 'Sonic.xlt' ); //寻找应用程序目录下的导出模板 //myExcel.Caption := cmbType.Text;
myExcel.Application.Visible := true; workBook := myExcel.Application.workBooks[1];
workSheet := workBook.Worksheets.Item[1];
end;
var
myExcel: Variant;
workBook: olevariant;
workSheet: olevariant;
j:integer;
beginif MessageBox(self.Handle, '您确定将工艺数据导出到Excel中吗?', pchar(frmMain.strDlg), MB_YESNO OR MB_ICONWARNING) = IDNO THEN EXIT; try myExcel := CreateOleObject('Excel.Application');
myExcel.WorkBooks.Open(ExtractFilePath(application.ExeName) + 'Sonic.xlt' ); //寻找应用程序目录下的导出模板 //myExcel.Caption := cmbType.Text;
myExcel.Application.Visible := true; workBook := myExcel.Application.workBooks[1];
workSheet := workBook.Worksheets.Item[1];
end;
MSWord: Variant;
docWord : olevariant;begin
if MessageBox(self.Handle, '您确定将工艺数据导出到Word中吗?', pchar(frmMain.strDlg), MB_YESNO OR MB_ICONWARNING) = IDNO THEN EXIT; try
MSWord:= CreateOLEObject('Word.Application');
docWord := MSWord.Documents.Open( ExtractFilePath(application.ExeName) + 'HJ.dot' ); MSWord.Visible := true; except
MessageBox(self.Handle, '未能建立 WORD !' + #13#10 + '请检查是否已经安装了WORD。', pchar(frmMain.strDlg), MB_OK OR MB_ICONWARNING);
Abort;
exit;
end;
将那句调用HJ.dot的代码改成既可
docWord := MSWord.Documents.Add( ExtractFilePath(application.ExeName) + 'HJ.dot',false );
想不到楼主搞定了