vba查找(find)excel数据时，若果查不到，不提示“查找不到”的对话框

弯刀哥

请教高手，怎样在用vba查找(find)excel数据时，若果查不到，不提示“查找不到”的对话框

tonychris

dim a as range

set a = cells.find(what:="alskjdf", ......)

弯刀哥

Workbooks.Open ThisWorkbook.Path & "\粘贴.xls"
Cells(1).Select
Dim x As Integer
'打开溶洞日报表
'    激活123.xls
    Workbooks("123.xls").Activate
    Cells(1).Select
  For x = 1 To 127
        Workbooks.Open ThisWorkbook.Path & "\" & ActiveCell.Value

'复制
        Cells.Find(What:="33-11#桩", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
        ActiveCell.EntireRow.Select
        Selection.Copy
        
'粘贴
Workbooks("粘贴.xls").Activate
ActiveCell.EntireRow.Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
   
'激活123下一单元格
  Workbooks("123.xls").Activate
  ActiveCell.Offset(1, 0).Select
'关闭日报文件
Workbooks(3).Activate
Application.CutCopyMode = False
Workbooks(3).Close (ture)
  Next
     
End Sub

dragonthree

你把代码复制上来

弯刀哥

，若果查不到，不提还是会示“查找不到”的对话框啊

弯刀哥

[img][/img]

弯刀哥

弯刀哥

原因我知道，是因为查找不到33-11，但我想让查不到时依然可以进行查另个文件

dragonthree

是不是要用on error resume next

qsxz

DisplayAlerts=false