想跟着老师做项目,老师布置了“Delphi导入excel读取excel数据”这个题目,但是之前根本没接触过这个软件,希望大家能帮帮我,如何实现这个功能,语句基本看不懂,明天就要上交作业!
解决方案 »
- 自以为水平很高,动不动就损别人是白痴的人,和痞子的区别仅在于他有文化,有文化的痞子才是真痞子
- 有没有这种功能的EDIT控制
- 98系统下,Delphi里的Dword与Integer型??????
- 【不死鸟的散分贴之四……】郁闷之一...发现有人反对我散分的时候占一楼....
- 我在使用savedialog时怎么判断是点击的ok还是cancle按钮呢?
- ShellListView的使用问题
- Delphi中如何编写类似SYGATE的网关服务软件???
- 谁有<<Delphi深度编程及其项目应用开发>>这本书?书中的实例的数据库如何使用,解决者马上给分!!!!!!!!!
- 帮我看一下,这个语句。
- 连接远程数据库后,为什么我添加了一条记录后,tdbgrid为什么不刷新?
- XML解析
- delphi6 Unable to locate file "sysutils.pas"
2、使用第三方控件,比如XLSReadWriteII或者NativeExcel;个人推荐使用第三方控件,速度快,功能强,兼容性也好。尤其是NativeExcel,小巧灵活。需要的话我可以发给你,NativeExcel 3.0.26。
也可使用D中的Servers控件。
var
pExcel: Variant;
///////
pExcel := CreateOleObject('Excel.Application'); pExcel.WorkBooks.open('c:\aa.xls'); pExcel.worksheets[1].activate; RowCount := pExcel.ActiveSheet.UsedRange.Rows.count;
ColumnCount := pExcel.ActiveSheet.UsedRange.Columns.count;
for I := 1 to RowCount do
begin
for J := 1 to ColumnCount do
begin
tmpCellVal := pExcel.ActiveSheet.Cells[I,J].Text;
end
end