作者:乔山办公网日期:
返回目录:excel表格制作
用个控件读取excel数据到gridview中。然后想怎么操作就怎么操作了。。。没有具体代码,只有思路一条
uses ComObj;
var Excel: OleVariant;
MaxRow,MaxCol: integer;
begin
try
Excel := CreateOLEObject( 'Excel.Application ');
except
ShowMessage( 'Excel没有zd安内装容 ');
Exit;
end;
try
Excel.WorkBooks.Open( 'c:\1.xls ');
MaxRow:=Excel.WorkSheets[1].UsedRange.Rows.Count;
MaxCol:=Excel.WorkSheets[1].UsedRange.Columns.Count;
ShowMessage(Format( '%d %d ',[MaxRow,MaxCol]));
finally
Excel.Quit;
end;
end;
excel中有个函数match()函数可以显示百出某一字符度串在一个表格中行,列
但,这个函数在delphi不能使用,请问问如何实现这个功能。
------解决方案答--------------------
用OLE模式打开Excel,编内码遍历查找!
------解决方案--------------------
用VBA连上就可以容用了
当然能。
ExcelWorksheet1.Cells.Column;
ExcelWorksheet1.Cells.Row.
ExcelWorksheet1.Cells.Item[i,j] :第i行j列。