求助EXCEL查找问题

xkaeli

我用CAD编写一段vba代码，用来统计每张CAD文件中图纸个数并放在excel中，部分代码如下：

1. 
   
2. Option Explicit
   
3. Type rexcel
   
4.     xlapp As Excel.Application
   
5.     xlbook As Excel.Workbook
   
6.     xlsheet As Excel.Worksheet
   
7. End Type
   
8. Public C As rexcel
   
9. 
   
10. Sub coonExcel(ByVal sp As String)
    
11. Set C.xlapp = CreateObject("excel.application")
    
12. Set C.xlbook = C.xlapp.Workbooks.Open(sp)
    
13. C.xlapp.Visible = True
    
14. Set C.xlsheet = C.xlbook.Worksheets(1)
    
15. C.xlapp.WindowState = xlMinimized
    
16. End Sub
    
17. 
    
18. Sub changeslx(ByVal num As String, ByVal page As String)
    
19. Dim ran As Range
    
20. Dim sh As Excel.Worksheet
    
21. On Error GoTo nex
    
22. For Each sh In C.xlbook.Sheets
    
23.     sh.Activate
    
24.     sh.Cells.Find(What:=num).Activate
    
25.     sh.Cells(ActiveCell.Row, ActiveCell.Column - 1).Activate
    
26.     With Selection
    
27.         .Value = page
    
28.         .Font.color = -16776961
    
29.     End With
    
30.     Exit Sub
    
31. nex:
    
32. Next sh
    
33. End Sub
    

<br /> Option Explicit<br /> Type rexcel<br />     xlapp As Excel.Application<br />     xlbook As Excel.Workbook<br />     xlsheet As Excel.Worksheet<br /> End Type<br /> Public C As rexcel<br /> <br /> Sub coonExcel(ByVal sp As String)<br /> Set C.xlapp = CreateObject("excel.application")<br /> Set C.xlbook = C.xlapp.Workbooks.Open(sp)<br /> C.xlapp.Visible = True<br /> Set C.xlsheet = C.xlbook.Worksheets(1)<br /> C.xlapp.WindowState = xlMinimized<br /> End Sub<br /> <br /> Sub changeslx(ByVal num As String, ByVal page As String)<br /> Dim ran As Range<br /> Dim sh As Excel.Worksheet<br /> On Error GoTo nex<br /> For Each sh In C.xlbook.Sheets<br />     sh.Activate<br />     sh.Cells.Find(What:=num).Activate<br />     sh.Cells(ActiveCell.Row, ActiveCell.Column - 1).Activate<br />     With Selection<br />         .Value = page<br />         .Font.color = -16776961<br />     End With<br />     Exit Sub<br /> nex:<br /> Next sh<br /> End Sub<br />

可是每当查找到第二张sheet的时候就会报错用On Error也控制不到，求教是什么地方出问题了。

linlq986

刚才看错了