| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Batman
註冊時間: 2003-11-15
文章: 348
第 1 樓
|
 發表於: 星期六 三月 15, 2014 11:02 am 文章主題: 如何取Excel有多少Sheet?Sheet的名字及Sheet中有多少行是有資料? |
 |
|
| 如何取Excel有多少Sheet? Sheet的名字及Sheet中有多少行是有資料? 謝覆 |
|
| 回頂端 |
|
 |
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 2 樓
|
| 發表於: 星期六 三月 15, 2014 10:01 pm 文章主題: |
|
|
| 參考這個 |
|
| 回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25
文章: 130
第 3 樓
|
| 發表於: 星期日 三月 16, 2014 12:12 am 文章主題: |
|
|
 CLEAR
EOLE=CREATEOBJECT('EXCEL.APPLICATION')
EOLE.WORKBOOKS.OPEN("D:\SL\EXCEL\DLT.XLS")
*EOLE.VISIBLE=.T.
*当前工作薄中工作表总数
NCOUNT=EOLE.WORKSHEETS.COUNT
*----读取EXCEL文件的各个工作表名称及有数据的行数与列数
FOR I=1 TO NCOUNT
?EOLE.SHEETS(I).NAME && 工作表名称
?EOLE.SHEETS(I).USEDRANGE.ROWS.COUNT && 有数据的行数
?EOLE.SHEETS(I).USEDRANGE.COLUMNS.COUNT && 有数据的列数
ENDFOR |
|
| 回頂端 |
|
|
Batman
註冊時間: 2003-11-15
文章: 348
第 4 樓
|
| 發表於: 星期日 三月 16, 2014 10:52 am 文章主題: |
|
|
| 謝謝2位熱心指導, 感激,感激 ^^ |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
