[求助]：請問 在此ADO 時,如何 得知 最後一欄位置

hartball38

1. 
   
2.   [FONT=courier new]
   
3. myCnc = "Driver={Microsoft Excel Driver (*.xls)};" & _
   
4.             "DBQ=" & ThisWorkbook.Path & "" & filename & ";"
   
5.     '以SQL來指定讀入資料
   
6.     myCmd = "SELECT * FROM [Sheet1$] "   '範圍未知,
   
7.         
   
8.     myCon.Open "Provider=MSDASQL;" & myCnc
   
9.    
   
10.     myRst.Open myCmd, myCon, adOpenDynamic
    
11. 
    
12.   [/FONT]
    

复制代码

想請問 在不打開 excle檔案的情況下
要如何 知道 該sheet1裡面最後的欄位地址

因為在撈取之料時
Sheet1 的 第一個 row 並非  欄位 名稱
所以 要用以下
myCmd = "SELECT * FROM [Sheet1$A3:E1000 ] "   '範圍未知,
其中 A3:E1000
A3 我是要從 A3 開始做起
但 E1000 ,我卻不知道 所以只好先用預設值
但請問 有辦法 執行時,知道 該 sheet1 的最後位置嗎

tennicse

DO while not mycon.EOF
mycon.movenext
loop
循环结束后应该就是最后一条记录

hartball38

謝謝 tennicse
可是 這要
myCmd = "SELECT * FROM [Sheet1$A3:EX]    裡面的
EX  範圍
因為 原本的 VBA中，不開啟　　要收尋的資料　情況下
可以　這樣做嗎



若是用   mycon.EOF  會出現 ERROR

但若是用

myCon.Open "Provider=MSDASQL;" & myCnc
   
     myRst.Open myCmd, myCon, adOpenDynamic
   
    x = 0
    Do Until myRst.EOF = True
   
        myRst.MoveNext
        x = x + 1
    Loop

就不會 ,請問這樣正確嗎