请教:Delphi7采用ADO与excel连接成功,如何读取某个单元格的内容,应该用什么指令?求指点,谢谢!
查阅资料研究出来了:分享一下引用usescomobjvarExcelApp:Variant;beginExcelApp:=CreateOleObject('Excel.A...
查阅资料研究出来了:分享一下
引用uses comobj
var ExcelApp:Variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Caption:='应用程序调用 Microsoft Excel';
ExcelApp.workBooks.Open('d:\yto\test201104201330.xls'); //打开已存在工作簿
ExcelApp.Worksheets[1].activate; //打开第2个工作表
form1.Edit1.Text:= ExcelApp.Cells[7,4].Value;// 可以在Edit显示第7行第4列单元格内容
ExcelApp.ActiveWorkBook.Saved := True; // 放弃存盘
ExcelApp.WorkBooks.Close; //关闭工作簿
ExcelApp.Quit; //退出 Excel
end; 展开
引用uses comobj
var ExcelApp:Variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Caption:='应用程序调用 Microsoft Excel';
ExcelApp.workBooks.Open('d:\yto\test201104201330.xls'); //打开已存在工作簿
ExcelApp.Worksheets[1].activate; //打开第2个工作表
form1.Edit1.Text:= ExcelApp.Cells[7,4].Value;// 可以在Edit显示第7行第4列单元格内容
ExcelApp.ActiveWorkBook.Saved := True; // 放弃存盘
ExcelApp.WorkBooks.Close; //关闭工作簿
ExcelApp.Quit; //退出 Excel
end; 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询