[已解决]VBA筛选问题

q5128977 · 发表于 2012-12-12 15:47

Sql = "select * from [数据源$a3:M65536] where 产品型号='" & Range("B1") & "'"
这句好像有问题

最佳答案

hwc2ycy

2012-12-12 20:47

(, 下载次数: 18)

可可人 · 发表于 2012-12-12 15:55

要用单引号吧，字符串。

hwc2ycy · 发表于 2012-12-12 16:03

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And (Target.Column = 2) Then
Select Case Target.Column
Case 2
Range("a4:m65536").ClearContents
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
If Range("b1") = "全部" Then
Sql = "select * from [数据源$B3:M65536] "
Else
Sql = "select * from [数据源$B3:M65536] where 产品型号=" & CInt(Range("B1")) '& "'"
End If
Sheets("BOM").Range("B4").CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing
End Select
End If
End Sub

复制代码

hwc2ycy · 发表于 2012-12-12 16:03

你数据类型有误。然后序号的问题，你第1列还做什么合并单元格了。
序号你自己把合并取消，试吧。
我这可以帮你查询有结果。

q5128977 · 发表于 2012-12-12 16:05

自动编号怎么写啊，...

q5128977 · 发表于 2012-12-12 16:07

序号跟数据源没关系，从1开始到B列为不空结束

hwc2ycy · 发表于 2012-12-12 16:13

又有字符，6500E不成。

q5128977 · 发表于 2012-12-12 16:31

怎么解决啊

hwc2ycy · 发表于 2012-12-12 16:35

序号问题你选的数据源是从B3开头，你改成A3.

q5128977 · 发表于 2012-12-12 16:39

序号你理解错了，序号不跟源数据，只判断B不为空他就是从123456 这样下去，那个查找的有办法解决吗？6500E什么的

		自动登录	找回密码
密码			注册