标签：Execl wApp VBA Word delphi 接口 Application test eApp

使用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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。