zhaogang1960 老师解决ListView1和ComboBox1建立链接并可以模糊查询和导出相应工作表

feiaoli · 发表于 2013-9-7 11:21

本帖最后由 feiaoli 于 2013-9-7 19:37 编辑

ListView1和ComboBox1建立连接模糊查询和导出

1、借用老师的ListView1已经建立了和单独工作表模糊查询导出的链接
2、ComboBox1（本例为"选择"名字）建立了和工作标签的链接

问题是：怎么样通过ComboBox（本例为"选择"名字）自由选择工作表，同时在ListView1中显示相应工作表的数据并可以模糊查询导出？

请老师看看怎么做代码？？？

选择工作表查询导出.rar (23.62 KB, 下载次数: 246)

2013-9-7 11:20 上传
点击文件名下载附件

问题解决喽！！再次谢谢zhaogang1960 老师、太牛了、我的附件也是在zhaogang1960 老师代码的基础上做的、嘿嘿还是zhaogang1960 解决的！！

zhaogang1960 · 发表于 2013-9-7 11:47

需要修改的地方挺多：

Private Sub UserForm_Initialize()
With 选择 '内页数量复合框赋值
.AddItem "打印记录"
.AddItem "操作记录"
.AddItem "备用表"
.ListIndex = -1
End With
End Sub
Sub 设置初值()
Dim i&, j&, arr, a(), k, m%, n%
With 打印记录
arr = .Range("A2").CurrentRegion
ReDim a(UBound(arr, 2) - 1)
For i = 0 To UBound(a)
a(i) = .Columns(i + 1).ColumnWidth * 7.5 'ListView1各列列宽
Next
End With
Set cnn = New ADODB.Connection
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
SQL = "select * from [" & ActiveSheet.Name & "$]"
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
On Error Resume Next
With ListView1
' 设置ListView1的标题,显示类型,整行选择和网格线属性
.ColumnHeaders.Clear
.View = lvwReport ' listivew的显示格式为报表格式
.FullRowSelect = True ' 允许整行选中
.Gridlines = True ' 显示网格线
' 为ListView1设置标题
For i = 0 To rs.Fields.Count - 1
Set k = Controls.Add("Forms.TextBox.1", "TextBox" & i + 1, False) '模糊查询定义False为不显示TexBox ,True为显示
If i > 0 Then
.ColumnHeaders.Add , , rs.Fields(i).Name, a(i), lvwColumnCenter '从第2列起居中
Else
.ColumnHeaders.Add , , rs.Fields(i).Name, a(i)
End If
Next i
End With
Call 显示数据(SQL) '为ListView1设置各行数据
模糊查询.SetFocus
End Sub
Private Sub 选择_Change() '选择窗口选择数据录入的工作表 2
Select Case 选择.Value
Case "打印记录"
打印记录.Activate
Case "操作记录"
Sheet2.Activate
Case "备用表"
Sheet3.Activate
End Select
模糊查询.Text = ""
Call 设置初值
End Sub

复制代码

zhaogang1960 · 发表于 2013-9-7 11:48

请看附件

选择工作表查询导出.rar (22.35 KB, 下载次数: 446)

feiaoli · 发表于 2013-9-7 12:06

zhaogang1960 发表于 2013-9-7 11:48
请看附件

谢谢赵老师，刚才还没看您在线呢！O(∩_∩)O~
这个表的基础都是您的O(∩_∩)O~，盗用来不会链接了嘿嘿，还得请老师帮忙！！

问题解决、、、、、、、

1、有一点就是在查找操作记录工作表的时候窗体中的标题多了而备用报表正好。不知道我应该修改哪里？？
2、另外、有没有在ComboBox中自动提取工作标签的VBA（也就是工作表增减ComboBox也随之增减）？？？？

zhaogang1960 · 发表于 2013-9-7 12:17

第一句不理解
第二句：

Dim sh As Worksheet
With ComboBox1
For Each sh In Worksheets
.AddItem sh.Name
Next
End With

复制代码

feiaoli · 发表于 2013-9-7 12:29

zhaogang1960 发表于 2013-9-7 12:17
第一句不理解
第二句：

如图片，应该是6个标题列，他创建了9个其中3个没数据，其他两个表格没有这种现象，是按照表格创建的标题
不知道是什么原因？？？？？

feiaoli · 发表于 2013-9-7 12:35

zhaogang1960 发表于 2013-9-7 12:17
第一句不理解
第二句：

赵老师，第一句的问题解决啦！！

我是复制的数据，lstview默认有数据，我把那几列删除就没有多余的列标题了、、

feiaoli · 发表于 2013-9-7 14:18

zhaogang1960 发表于 2013-9-7 11:48
请看附件

赵老师、应用中发现一个问题

下列代码出现 If rs.RecordCount = 0 Then 对象变量或with块未设置、怎么改代码？？？

Private Sub 数据导出_Click()
If rs.RecordCount = 0 Then Exit Sub '没有查询记录则退出
Dim arr(), i&, j&
ReDim arr(rs.Fields.Count - 1)
On Error Resume Next
For i = 0 To rs.Fields.Count - 1 '逐个字段
arr(i) = rs.Fields(i).name '取字段名
Next i
With Workbooks.Add(xlWBATWorksheet).ActiveSheet '新建只有一个工作表的工作簿
.Range("A2").CopyFromRecordset rs '复制全部数据
With .Cells(1, 1).Resize(, rs.Fields.Count) '表头区域
.Value = arr '写表头
.Font.Bold = True '黑体
.EntireColumn.AutoFit
.HorizontalAlignment = xlCenter '垂直居中
End With
End With
End Sub

复制代码

zhaogang1960 · 发表于 2013-9-7 15:15

feiaoli 发表于 2013-9-7 14:18
赵老师、应用中发现一个问题

下列代码出现 If rs.RecordCount = 0 Then 对象变量或with块未设置、怎么 ...

第一句已经考虑到这个问题：
If rs.RecordCount = 0 Then Exit Sub '没有查询记录则退出

feiaoli · 发表于 2013-9-7 15:23

zhaogang1960 发表于 2013-9-7 15:15
第一句已经考虑到这个问题：
If rs.RecordCount = 0 Then Exit Sub '没有查询记录则退出

谢谢赵老师

你的代码在我的附件中完美无缺、只是我在应用中总出毛病、我还找不到。
或许我的自动加载项太多了，以至于
1、打开查询也不显示默认的表格了，只有选择表格才显示
2、模糊查询输入数据显示的数据就没有了
3、有时还提示定义名称太多
郁闷死我了，等我找到了问题再向您请教！！谢谢！

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

[已解决] zhaogang1960 老师解决ListView1和ComboBox1建立链接并可以模糊查询和导出相应工作表

点评

评分