[问题求助] VBS如何将excel中某个区域的数据另存到txt中？

yuzz1

1、提取excel中某一列中的数据，此列中需要的数据会在solder这样字符中间。
2、提取excel中某一行中的数据，此行中需要的数据会再solder这样字符之前。

flashercs

Set excel=CreateObject("Excel.Application")
Set book=excel.Workbooks.Open("d:\test\a.xlsx")
Set sheet=book.Worksheets(1)
Set orange=sheet.UsedRange
Set fso=CreateObject("Scripting.Filesystemobject")
Set ts=fso.OpenTextFile("a.txt",2,True)
For Each cell In orange.Columns(1).Cells
  value=cell.Value()
  If Instr(1,value,"solder")>0 Then
    ts.WriteLine value
  End If
Next
For Each cell In orange.Rows(2).Cells
  value=cell.Value()
  If Instr(1,value,"solder")>0 Then
    ts.WriteLine value
  End If
Next
ts.Close
excel.Workbooks.Close
excel.Quit
复制代码

zss427607

向大佬学习，顶起来