[已解决]怎么写批量处理文件夹的文本文件的VBA代码？

studystudy

附件： help3.rar (3.56 KB, 下载次数: 3)

2011-6-28 21:53 上传

点击文件名下载附件

待解决的问题是

1.
VBA代码要能批量处理test文件夹里的文本

2.对这个文件夹里的文本内容的判断都是： 从左到右，取第一个 空格 的位置，然后删除第一个空格位置前的所有字符串，包括删除第一个空格。

例如：

test文件夹里的 1.txt

第一第二行的内容如下：

2011-06-28 2011172 8787
2011-06-27 2011171 8992

以第一个空格为准。
那么就是分别删除第一个空格的左边的字符串，包括第一个空格。
“2011-06-28 ”
”2011-06-27 “

最后得到。

2011172 8787
2011171 8992


3.

批处理后覆盖原文本。

（为方便测试，我复制多一份 test文件夹）


请老师们帮忙哦。

先谢了。。。

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2011-6-28 23:55

写了两个供参考（一个改自录制宏）
Sub 宏1()
fn$ = Dir(ThisWorkbook.Path & "\test\?.txt")
Do While fn <> ""
  Open ThisWorkbook.Path & "\test\" & fn For Input As #1
  Line Input #1, s$
  Close #1
  i% = Len(s)
  If InStr(s, " ") Then i = InStr(s, " ")
    Workbooks.OpenText Filename:=ThisWorkbook.Path & "\test\" & fn, Origin:=936, StartRow:=1 _
        , DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(i, 1)), _
        TrailingMinusNumbers:=True
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test\a" & fn, FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close 0
    fn = Dir
Loop
End Sub
Sub 宏2()

fn$ = Dir(ThisWorkbook.Path & "\test\?.txt")
Do While fn <> ""
  Open ThisWorkbook.Path & "\test\" & fn For Input As #1
  Open ThisWorkbook.Path & "\test\b" & fn For Output As #2
  Do While Not EOF(1)
    Line Input #1, s$
    If InStr(s, " ") Then s = Mid(s, InStr(s, " ") + 1)
    Print #2, s
  Loop
  Close #1
  Close #2
  fn = Dir
Loop
End Sub

跳转到最佳答案楼层

studystudy

明天见

djyjysxxs

写了两个供参考（一个改自录制宏）
Sub 宏1()
fn$ = Dir(ThisWorkbook.Path & "\test\?.txt")
Do While fn <> ""
  Open ThisWorkbook.Path & "\test\" & fn For Input As #1
  Line Input #1, s$
  Close #1
  i% = Len(s)
  If InStr(s, " ") Then i = InStr(s, " ")
    Workbooks.OpenText Filename:=ThisWorkbook.Path & "\test\" & fn, Origin:=936, StartRow:=1 _
        , DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(i, 1)), _
        TrailingMinusNumbers:=True
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test\a" & fn, FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close 0
    fn = Dir
Loop
End Sub
Sub 宏2()

fn$ = Dir(ThisWorkbook.Path & "\test\?.txt")
Do While fn <> ""
  Open ThisWorkbook.Path & "\test\" & fn For Input As #1
  Open ThisWorkbook.Path & "\test\b" & fn For Output As #2
  Do While Not EOF(1)
    Line Input #1, s$
    If InStr(s, " ") Then s = Mid(s, InStr(s, " ") + 1)
    Print #2, s
  Loop
  Close #1
  Close #2
  fn = Dir
Loop
End Sub