delphi 调用编写Word、Execl
作者:互联网
使用VBA接口实现。
VBA官方接口:
Office Visual Basic for Applications (VBA) 参考 | Microsoft Docs
常用办公三件套的接口和其他的软件接口齐全。
打开Word :
uses
ComObj
///声明,所有VBA相关的对象都使用Variant实现
wApp,eApp,wordRange:Variant;
///实现
try
wApp:=GetActiveOleObject('word.Application');
except
wApp:=CreateOleObject('word.Application');
end;
//是否可视
wApp.Visible := True;
//打开文档
wApp.Documents.Open('test.docx');
//选中工作簿,n代表第几个,如果就只有一个就是1,返回Range
doc := wApp.Documents.Item(n);
//也可以根据名字来选中
doc := wApp.Documents['test.docx'];
打开Execl:
try
eApp:=GetActiveOleObject('excel.Application');
except
eApp:=CreateOleObject('excel.Application');
end;
eApp.Visible := True;
eApp.WorkBooks.Open('test.xlsx');
wb := eApp.WorkBooks['test.xlsx'];
sheet := wb.Sheets.Item(n); //sheet := wb.Sheets('Sheet1');
后续的插入文字,样式设置,指定位置等等的操作可以根据官网VBA接口调用。
标签:Execl,wApp,VBA,Word,delphi,接口,Application,test,eApp 来源: https://www.cnblogs.com/tutuleilife/p/16616047.html