[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 flashercs 于 2022-8-6 21:31 编辑
  1. Set excel=CreateObject("Excel.Application")
  2. Set book=excel.Workbooks.Open("d:\test\a.xlsx")
  3. Set sheet=book.Worksheets(1)
  4. Set orange=sheet.UsedRange
  5. Set fso=CreateObject("Scripting.Filesystemobject")
  6. Set ts=fso.OpenTextFile("a.txt",2,True)
  7. For Each cell In orange.Columns(1).Cells
  8.   value=cell.Value()
  9.   If Instr(1,value,"solder")>0 Then
  10.     ts.WriteLine value
  11.   End If
  12. Next
  13. For Each cell In orange.Rows(2).Cells
  14.   value=cell.Value()
  15.   If Instr(1,value,"solder")>0 Then
  16.     ts.WriteLine value
  17.   End If
  18. Next
  19. ts.Close
  20. excel.Workbooks.Close
  21. excel.Quit
复制代码
微信:flashercs
QQ:49908356

TOP

返回列表