各位大佬，能给看看吗？数据明明有，就是筛选不出来

dcy0405w8

半百 发表于 2023-3-2 16:16

报错8002000b

简七

dcy0405w8 发表于 2023-3-2 15:56
老师，我是小白，不太能看明白，能说的详细些吗？

Sub 筛选OLT影响用户()
Dim n%, c, ss As Variant

     c = Application.InputBox(Prompt:=" 请输入你要割接的IP地址？", Title:="提示", Default:="XX.XX.XX.XX", Left:=2, Top:=0)
'将在对话框中输入的数据保存在变量c中

    Worksheets("test1").Range("D1").AutoFilter Field:=4, Criteria1:="*" & c & "*", Operator:=xlFilterValues
'筛选变量为c的数据
    Worksheets.Add.Name = "影响用户清单"
'在活动簿中新建一个sheet，并命名为：影响用户清单；
Sheets("test1").Range("k:k").Copy ActiveWorkbook.Sheets("影响用户清单").Range("a1")

End Sub

dcy0405w8

ykcbf1100 发表于 2023-3-2 16:38
干吗非得筛选啊，用数组不挺简单嘛。

set sh是啥？

dcy0405w8

半百 发表于 2023-3-2 16:16

运行出错，是文件太大了吗？原文件有44W行数据

dcy0405w8

简七 发表于 2023-3-2 16:49
Sub 筛选OLT影响用户()
Dim n%, c, ss As Variant

第三行代码，显示下标越界

简七

1. Sub demo()
   
2.     Dim serachVal$
   
3.    
   
4.     serachVal = Application.InputBox(Prompt:=" 请输入你要割接的IP地址？", Title:="提示", Default:="XX.XX.XX.XX", Left:=2, Top:=0, Type:=2)
   
5. 
   
6.     Dim conn As Object, rs As Object
   
7.    
   
8.     Set conn = CreateObject("adodb.connection")
   
9.    
   
10.     Set rs = CreateObject("adodb.recordset")
    
11.    
    
12.     conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;HDR=NO;imex=2';Data Source=" & ThisWorkbook.FullName
    
13. 
    
14.     rs.Open "SELECT F4,F11 from [test1$] where F4 like '%" & serachVal & "%'", conn
    
15.    
    
16.     With Worksheets.Add
    
17.         .Name = "影响用户清单" & Format(Now, "yymmddhhmmss")
    
18.         .Range("a1").CopyFromRecordset rs
    
19.     End With
    
20.    
    
21.     Set rs = Nothing
    
22.    
    
23.     Set conn = Nothing
    
24. End Sub

复制代码

直接用这个吧

一只狗三只眼

需上传附件，不好帮助。

dcy0405w8

我哥，能让这个ip地址筛选同时筛选多个IP地址吗？

dcy0405w8

简七 发表于 2023-3-2 18:45
直接用这个吧

我哥，能让这个代码中的IP地址筛选同时筛选多个地址吗？

简七

dcy0405w8 发表于 2023-3-3 08:53
我哥，能让这个代码中的IP地址筛选同时筛选多个地址吗？

加一句我标的那个