| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
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
文章: 2160
第 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
文章: 4252
來自: 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 |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
