[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. Do
  2.     Input = InputBox("输入:")
  3.     If IsEmpty(Input) Then WScript.Quit
  4. Loop while Input = ""
  5. Set oExcel = CreateObject("Excel.Application")
  6. oExcel.Visible = false
  7. oExcel.WorkBooks.Open("d:\test\db1.mdb")
  8. oExcel.WorkSheets(1).Activate
  9. row = oExcel.ActiveSheet.UsedRange.Rows.Count
  10. For i = 2 to row
  11.     flag = true
  12.     For j = 1 to Len(Input)
  13.         If InStr(oExcel.Cells(i,4), Mid(Input,j,1)) = 0 Then
  14.             flag = false : Exit For
  15.         End if
  16.     Next
  17.     If flag Then
  18.         s = ""
  19.         For j = 2 to 5
  20.             s = s & oExcel.Cells(i,j) & vbTab
  21.         Next
  22.         MsgBox s
  23.     End If
  24. Next
  25. If s = "" Then MsgBox "Not Found"
  26. oExcel.ActiveWorkBook.Saved = true
  27. oExcel.WorkBooks.Close
  28. oExcel.Quit
复制代码

TOP

回复 3# DDDYJQ1


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

TOP

回复 6# DDDYJQ1


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

TOP

返回列表