excel

是這樣的,本來我用vb來連接excel,用SQL語句的Select語句來查詢記錄.  
  但是因為會出現和excel的種種衝突:比如,程序運行,excel檔案不能開啟.  
  所以我想在excel本身自帶的vb里面編寫代碼.也就是先打開這個excel檔案,然後寫代碼查找.我用的是find語句如下:但是,因為數據庫有10000多條記錄,所以速度很慢,有沒有快一點的查找方法呢.  
  Dim   str   As   String,   str2   As   String  
  Dim   n   As   Integer  
  n   =   2  
  With   Worksheets("EVA").Range("C1:C10000")  
          Set   c   =   .Find(Worksheets("sheet1").Range("A10"),   LookIn:=xlValues)  
          If   Not   c   Is   Nothing   Then  
                  firstAddress   =   c.Address  
                  Do  
                    str   =   c.Row   &   ":"   &   c.Row  
                    str2   =   n   &   ":"   &   n                
                    Worksheets("EVA").Rows(str).Copy   Destination:=Worksheets("Sheet1").Rows(str2)  
                    Set   c   =   .FindNext(c)  
                    n   =   n   +   1  
                  Loop   While   Not   c   Is   Nothing   And   c.Address   <>   firstAddress  
          End   If  
  End   With  
   
  End   Sub  
   
  问题点数：20、回复次数：5Top

1 楼yangfengcl（傷透腦袋）回复于 2005-05-20 09:24:54 得分 0

不知道excel里面的查找功能是怎麼實現的,有那個速度就行了Top

2 楼pweixing（幸运星）回复于 2005-05-20 09:55:44 得分 10

10000条数据在excel里面怎么也快不起来啊！无解Top

3 楼yangfengcl（傷透腦袋）回复于 2005-05-20 13:51:41 得分 0

不是那麼糟吧。  
  Top

4 楼cnapc（明月照大江）回复于 2005-05-20 14:07:49 得分 10

EXCEL中可以记录宏的啊，你可以将查找功能的宏记下来，在VBA中依样调用就可以了啊。Top

5 楼yangfengcl（傷透腦袋）回复于 2005-05-21 10:37:39 得分 0

我試了,查找功能錄不下來.Top

相关问题

• excel
• 查找
• worksheets
• 語句
• rows
• str

• 帖主：yangfengcl
• pweixing
• cnapc

• Visual Basic类图书
• Visual Basic类源码下载