类似的帖子发了几次一直没有人解决。

ljpassport · 发表于 2013-12-9 13:16

山菊花发表于 2013-12-9 12:35
请测试。

十分感谢山菊花版主的帮助，同一个问题有N中解决办法，可是一种也不会太惭愧了。十分感谢山菊版主的帮助

山菊花 · 发表于 2013-12-9 22:07

ljpassport 发表于 2013-12-9 13:16
十分感谢山菊花版主的帮助，同一个问题有N中解决办法，可是一种也不会太惭愧了。十分感谢山菊版主的帮助

为模糊查询增加了多关键字功能，见新帖：
http://club.excelhome.net/forum. ... =1079108&extra=

ljpassport · 发表于 2013-12-10 08:17

山菊花发表于 2013-12-9 22:07
为模糊查询增加了多关键字功能，见新帖：
http://club.excelhome.net/forum.php?mod=viewthread&tid=107 ...

十分感谢山菊花版主的帮忙，没想到这个问题您还专门开个新帖十分感谢。

ljpassport · 发表于 2013-12-10 16:40

本帖最后由 ljpassport 于 2013-12-10 16:41 编辑

山菊花发表于 2013-12-9 22:07
为模糊查询增加了多关键字功能，见新帖：
http://club.excelhome.net/forum.php?mod=viewthread&tid=107 ...

山菊版主，http://club.excelhome.net/forum. ... &tid=1079108&extra=您写的这个代码我有一点疑问向您请教。
现在里面只有”资料“文件夹，如果说还有其他的几个文件夹”资料1“、”资料2“，然后新添加一个ComboBox6，通过combobox6来选择哪个文件夹。combobox6值为所有文件夹的名字。

Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\资料" & nm & ".xls"
Sql = "select * from [Sheet1$]"
Arr = Conn.Execute(Sql).getrows

复制代码

我将上述代码中的第一句替换为
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\" & ComboBox6.Value & "\" & nm & ".xls"
第三句提示错误是什么原因呢？

山菊花 · 发表于 2013-12-10 17:40

ljpassport 发表于 2013-12-10 16:40
第三句提示错误是什么原因呢？

估计是当其中一个为空的时候，发生错误。
在前面加一句：
If ComboBox6.Value = "" Or nm = "" Then Exit Sub
或者这一句：
If Dir(ThisWorkbook.Path & "\" & ComboBox6.Value & "\" & nm & ".xls") = "" Then Exit Sub

ljpassport · 发表于 2013-12-11 08:15

山菊花发表于 2013-12-10 17:40
估计是当其中一个为空的时候，发生错误。
在前面加一句：
If ComboBox6.Value = "" Or nm = "" Then ...

好的我试一下感谢山菊版主帮助

ljpassport · 发表于 2013-12-13 15:44

山菊花发表于 2013-12-10 17:40
估计是当其中一个为空的时候，发生错误。
在前面加一句：
If ComboBox6.Value = "" Or nm = "" Then ...

123.rar (42.87 KB, 下载次数: 26)

版主您好，您写的这个代码出现了一个问题，如附件中所示，点开窗体导入的1工作表后，序号里面只显示“一”和“1.1.1”形式的序号。这个原因是什么呢？

山菊花 · 发表于 2013-12-15 19:21

ljpassport 发表于 2013-12-13 15:44
版主您好，您写的这个代码出现了一个问题，如附件中所示，点开窗体导入的1工作表后，序号里面只显示“ ...

没发现你说的问题。

ljpassport · 发表于 2013-12-18 16:34

山菊花发表于 2013-12-9 22:07
为模糊查询增加了多关键字功能，见新帖：
http://club.excelhome.net/forum.php?mod=viewthread&tid=107 ...

山菊版主您好，您写的这个窗体combobox不能实现逐级筛选呢怎么

ljpassport · 发表于 2013-12-18 16:48

ctp_119 发表于 2013-12-9 10:20
具体情况请看附件，其他类推！！！

您好版主。其他的类推怎么推啊没有弄明白呢麻烦您写个combobox3的吧

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

[求助] 类似的帖子发了几次一直没有人解决。