|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/7/4 17:47:50 |
标题: |
请教如何得到excel文件的总行数 |
浏览:1232 |
|
加入我的收藏 |
楼主: |
要对Excel文件中的数据一行一行的操作
var ExcelApp,Sheet: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); Sheet:=ExcelApp.ActiveSheet
接下来呢? 谢谢
----------------------------------------------
- |
作者: |
|
2004/7/5 9:31:50 |
1楼: |
谢谢
----------------------------------------------
-
|
作者: |
|
2004/7/5 14:19:02 |
2楼: |
各位帮个忙啊 谢谢
----------------------------------------------
-
|
作者: |
|
2004/7/5 15:32:03 |
3楼: |
顶 急 谢谢
----------------------------------------------
-
|
作者: |
|
2004/7/6 8:38:27 |
4楼: |
晕 高手们都不在?
----------------------------------------------
-
|
作者: |
|
2004/7/6 10:03:15 |
5楼: |
晕 可能就一个属性就得到了excel文件的总行数 就一行 高手帮忙一下 其它都写好了 就差这个了
----------------------------------------------
-
|
作者: |
|
2004/7/6 11:34:17 |
6楼: |
在网上搜了一下 Excel+总行数,得到以下解决方法:
procedure TForm1.BitBtn4Click(Sender: TObject); var ExcelApp, Sheet: Variant; begin if OpenDialog1.Execute then begin ExcelApp := CreateOleObject( 'Excel.Application' ); ExcelApp.Workbooks.Open(OpenDialog1.FileName); Sheet := ExcelApp.ActiveSheet; Caption := 'Row Count: ' + IntToStr(Sheet.UsedRange.Rows.Count); Sheet := Unassigned; ExcelApp := Unassigned; end; end;
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
|
作者: |
|
2004/7/8 9:04:32 |
7楼: |
谢谢
----------------------------------------------
-
|
|