上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
candy7240
註冊時間: 2008-12-02 文章: 8
第 1 樓
|
發表於: 星期二 十二月 02, 2008 11:30 am 文章主題: 請問我要如何抓出已轉入至excel的總欄位數 |
|
|
請問我要如何抓出已轉入至excel的總欄位數
eole=Createobject('Excel.application')
eole.Workbooks.Open(m_file)
我有先開起excel檔
但不知要下什麼去抓出欄位總數
例如:
A B C D E F G
TT SS 33 55 JJ KK
11 22 55 88 xx mm
A~F有資料,但我要怎麼抓出count=6 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 2 樓
|
發表於: 星期二 十二月 02, 2008 11:12 pm 文章主題: |
|
|
.Selection.SpecialCells(11).Select &&--xlCellTypeLastCell).Select 檔案之右下角( 最底),最大值,max
.selection.row &&--所在位置
.selection.column &&--欄位位置 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
chilin
註冊時間: 2003-10-01 文章: 79 來自: Taipei,Taiwan
第 3 樓
|
發表於: 星期二 十二月 02, 2008 11:30 pm 文章主題: |
|
|
eole=Createobject('Excel.application')
eole.Workbooks.Open(m_file)
_COUNT=0
FOR I=1 TO 256
IF ISNULL(EOLE.CELLS(1,I).VALUE)
_COUNT=I-1
EXIT
ENDIF
ENDFOR
?_COUNT
EOLE.QUIT
RELEASE EOLE
** EXCEL2007以前版本 列*欄=65535*256
** EXCEL2007 列*欄=1048576*16384(2^20*2^14) _________________ 一個喜愛Latte的男人 |
|
回頂端 |
|
|
candy7240
註冊時間: 2008-12-02 文章: 8
第 4 樓
|
發表於: 星期三 十二月 03, 2008 8:22 am 文章主題: |
|
|
謝謝板上前輩們~
我試過了,ok了~ |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 5 樓
|
發表於: 星期三 十二月 03, 2008 5:24 pm 文章主題: |
|
|
我會再轉出前就規定好格式及內容,
不會後來再去"猜"是什麼 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
candy7240
註冊時間: 2008-12-02 文章: 8
第 6 樓
|
發表於: 星期三 十二月 03, 2008 6:07 pm 文章主題: |
|
|
要做此功能,是因為,我想把excel的格式和內容設定,做成function
去呼叫,我就不用每做一個轉出,就要去設定它的格式
不然,有快一百多個轉出要去設定,會瘋掉喔!
所以,要傷腦筋去想方法了 |
|
回頂端 |
|
|
zz10903
註冊時間: 2008-12-08 文章: 1
第 7 樓
|
發表於: 星期一 十二月 08, 2008 4:11 pm 文章主題: |
|
|
activesheet.usedrange.rows.count
activesheet.usedrange.columns.count |
|
回頂端 |
|
|
|