在DELPHI下如何读EXCEL中的数据呢,要根据一定的条件读取指定行和指定列的数据,怎么样表示特定单元格中的数据?(50分)

  • 主题发起人 主题发起人 duanfeihu
  • 开始时间 开始时间
D

duanfeihu

Unregistered / Unconfirmed
GUEST, unregistred user!
在DELPHI下如何读EXCEL中的数据呢,要根据一定的条件读取指定行和指定列的数据,怎么样表示特定单元格中的数据?
 
var MyExcelApp : Variant ;
MySheet : Variant ;

try
MyExcelApp := CreateOleObject( 'Excel.Application' );
except
messagebox(0,'Excel没有正确安装!','错误',mb_iconerror);
exit;
end;
MyExcelApp.Visible := false; // 让对象Excel不可视
try
MyExcelApp.WorkBooks.Open( edit1.Text ) ;
except
showmessage('文件不存在!') ;
exit
end ;
MySheet:=MyExcelApp.ActiveSheet;

temp := Mysheet.cells[i, j].value;
 
后退
顶部