[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
DDDYJQ1

Rank: 4

帖子
121 
积分
354 
技术
0  
捐助
0  
注册时间
2008-12-21 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2014-5-11 20:43 | 只看该作者

[问题求助] VBS如何查找mdb文件里指定列中含有指定字符串的行

求个VBS用于查找db1.mdb,要求，比如输入“云人二厶”等1-5个汉字时，查找“详细拆分”列，同时含有“云人二厶”这五个汉字的行，也说是说“云人二厶”这五个汉字在“详细拆分”列也可能顺序不一样，比如“人二云厶”或者中间可能有其他汉字或字母，把找到的行后四列内容都显示出来，不知说清楚了没有，先谢了
收藏 分享

DDDYJQ1

Rank: 4

帖子
121 
积分
354 
技术
0  
捐助
0  
注册时间
2008-12-21 
8楼
发表于 2014-5-13 08:58 | 只看该作者
谢了，可以用，多谢了

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
7楼
发表于 2014-5-12 23:05 | 只看该作者
回复 6# DDDYJQ1


    第8行的路径和文件名改成真实路径和文件名，第12行的2改成1

TOP

DDDYJQ1

Rank: 4

帖子
121 
积分
354 
技术
0  
捐助
0  
注册时间
2008-12-21 
6楼
发表于 2014-5-12 19:13 | 只看该作者
谢谢巡查，可惜我也看不懂，是不是DB1.MDB改用用EXCEL就不会出问题，再帮我看看，我传个EXCEL上来，代码要如何改？先谢了

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
5楼
发表于 2014-5-12 17:37 | 只看该作者
本帖最后由 CrLf 于 2014-5-12 17:40 编辑

也许可以用 ADODB + spl 语句，参考：http://bbs.bathome.net/redirect. ... 8&fromuid=30406
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
4楼
发表于 2014-5-12 16:17 | 只看该作者
回复 3# DDDYJQ1


    我用的是ms-office2007，没有安装Access，测试顶楼附件没有问题

TOP

DDDYJQ1

Rank: 4

帖子
121 
积分
354 
技术
0  
捐助
0  
注册时间
2008-12-21 
3楼
发表于 2014-5-12 14:08 | 只看该作者
谢谢，可是出现如下错误
脚本：D：、TEST、1.VBS
行：15
字符：1
错误：EXCEL无法直接打开ACCESS MDB 文件。如果将ACCESS数据导入到EXCEL中，可使用“获取外部数据”命令，......
代码：800A03EC
源：MICROSOFT EXCELL
是不是我的电脑有什么问题？

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
2楼
发表于 2014-5-11 23:33 | 只看该作者 
  1. Do

  2.     Input = InputBox("输入：")

  3.     If IsEmpty(Input) Then WScript.Quit

  4. Loop while Input = ""

  5. 

  6. Set oExcel = CreateObject("Excel.Application")

  7. oExcel.Visible = false

  8. oExcel.WorkBooks.Open("d:\test\db1.mdb")

  9. oExcel.WorkSheets(1).Activate

  10. row = oExcel.ActiveSheet.UsedRange.Rows.Count

  11. 

  12. For i = 2 to row

  13.     flag = true

  14.     For j = 1 to Len(Input)

  15.         If InStr(oExcel.Cells(i,4), Mid(Input,j,1)) = 0 Then

  16.             flag = false : Exit For

  17.         End if

  18.     Next

  19.     If flag Then

  20.         s = ""

  21.         For j = 2 to 5

  22.             s = s & oExcel.Cells(i,j) & vbTab

  23.         Next

  24.         MsgBox s

  25.     End If

  26. Next

  27. If s = "" Then MsgBox "Not Found"

  28. oExcel.ActiveWorkBook.Saved = true

  29. oExcel.WorkBooks.Close

  30. oExcel.Quit
复制代码

TOP

返回列表