as _Application是什么用法? 好像没有吧m$内定的对象或数据命名都是_xxxx的形式的, _application就是m$com对象的一种吧! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 为了不和Delphi定义的Application冲突,将office 的com对象定义为_Applicationsender as TButton 原理上来说差不多 我用delphi控制Excel...var Fapp:_application; WB: _WorkBook; WBs: Workbooks;...WBs := Fapp.Get_Workbooks; //打开Excel文件WBs.Open(excelFile, 3, false, 1,'', '', True, $00000002, 1, False,False, 0, False, 0);当执行到WBs.Open系统报错,说是Excel格式不匹配,那位知道这中用法? var FExcel: Variant; FWorkbook: Variant; FWorksheet: Variant;begin try FExcel := CreateOleObject('excel.application'); except Exit; end; FWorkBook := FExcel.WorkBooks.Open (Filename); FWorkSheet := FWorkBook.Sheets[1];(.....) FExcel.Quit; FExcel := unAssigned;end; var FExcel: Variant; FWorkbook: Variant; FWorksheet: Variant;begin try FExcel := CreateOleObject('excel.application'); except Exit; end; FWorkBook := FExcel.WorkBooks.Open (Filename); FWorkSheet := FWorkBook.Sheets[1];(.....) FExcel.Quit; FExcel := unAssigned;end; delphi2007升级到delphi2010后,外部动态库运行结果不对了。 indy httpClient 在dll 中使用的问题 请高手看看我这程序哪里有问题啊 怎么使StringGrid标题行的字体大小及类型与其它行不同? 请问如何用流把TXT或Word文件包存到SQLServer中 海天一线大哥进来领分 学校专用的管理软件!! 有关DELPHI7.0支持的控件? 没有控制面板如何设置Delphi快捷键? 如何注册文件类型与关联程序 大家一般在显示大数据量时用什么组件啊(70个输出点)? delphi关于acess数据库的压缩!
为了不和Delphi定义的Application冲突,将office 的com对象定义为_Application
sender as TButton 原理上来说差不多
...
var
Fapp:_application;
WB: _WorkBook;
WBs: Workbooks;
...WBs := Fapp.Get_Workbooks; //打开Excel文件
WBs.Open(excelFile, 3, false, 1,'', '', True, $00000002, 1, False,False, 0, False, 0);当执行到WBs.Open系统报错,说是Excel格式不匹配,那位知道这中用法?
FExcel: Variant;
FWorkbook: Variant;
FWorksheet: Variant;
begin try FExcel := CreateOleObject('excel.application');
except Exit; end;
FWorkBook := FExcel.WorkBooks.Open (Filename);
FWorkSheet := FWorkBook.Sheets[1];
(.....)
FExcel.Quit;
FExcel := unAssigned;
end;
FExcel: Variant;
FWorkbook: Variant;
FWorksheet: Variant;
begin try FExcel := CreateOleObject('excel.application');
except Exit; end;
FWorkBook := FExcel.WorkBooks.Open (Filename);
FWorkSheet := FWorkBook.Sheets[1];
(.....)
FExcel.Quit;
FExcel := unAssigned;
end;