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接口调用。

posted @ 2022-08-23 14:25  图图雷  阅读(188)  评论(0)    收藏  举报