请问如何遍历同一个文件夹查找

bajifeng

If n=0 Then Msgbox "查询内容不存在": End

529905149

If n = 0 Then
        'MsgBox "没有找到有关“" & Range("B1") & "”的信息。"
        Sheets("查询").Cells(1, 3) = "无" '编号
Else
[a3:j65536] = ""
    [a3].Resize(n, 10) = Application.Transpose(br)
    Sheets("查询").Cells(1, 3) = "有" '编号
    End If
   
    Application.ScreenUpdating = True
End Sub

529905149

bajifeng 发表于 2016-3-19 15:20
If n=0 Then Msgbox "查询内容不存在": End

谢谢，老师，这么快的解答。送花。

deyulean

如果是要一整行的数据~代码怎么改啊~ 这里只查询原表的A-I列~~求大神回复

deyulean

求助2位大神，帮我看看这个表格~需要查询整行的数据~怎么改代码~求助求助~谢谢

LMY123

Set rs = cnn.OpenSchema(20)

补充内容 (2019-1-1 11:32):
同夹_多薄_多表_单条件查询_ADO法,已入库