求助，关于vba操作txt的问题

风过天涯

fzxba 发表于 2023-2-7 08:43
可以，但不明白具体要求。

没什么特别要求，就比如说a文件夹，b文件夹，原来是txt1生成的还叫txt1分放在a，b两个文件夹，我的话我做不到，我要call其他sub才行，所以问问

fzxba

风过天涯 发表于 2023-2-7 08:54
没什么特别要求，就比如说a文件夹，b文件夹，原来是txt1生成的还叫txt1分放在a，b两个文件夹，我的话我做 ...

1. Sub test0() '这样？
   
2.   Dim ar, i As Integer, j As Integer
   
3.   Dim p As String, pt(1) As String, f As String
   
4.   Dim s As String, t As String
   
5.   s = String(3, "*")
   
6.   p = ThisWorkbook.Path & "\"
   
7.   For j = 0 To 1
   
8.     pt(j) = p & Array("aaa\", "bbb\")(j)
   
9.     If Dir(pt(j), vbDirectory) = "" Then MkDir pt(j)
   
10.   Next
    
11.   f = Dir(p & "*.txt")
    
12.   While Len(f)
    
13.     Open p & f For Input As #1
    
14.     ar = Split(StrConv(InputB(LOF(1), #1), vbUnicode), s)
    
15.     Close #1
    
16.     j = 0
    
17.     For i = 0 To UBound(ar)
    
18.       t = Trim(ar(i))
    
19.       If Len(Replace(t, vbCrLf, "")) Then
    
20.         Open pt(j) & f For Output As #2
    
21.         Print #2, s & t
    
22.         Close #2
    
23.         j = j + 1
    
24.       End If
    
25.     Next
    
26.     f = Dir
    
27.   Wend
    
28.   Beep
    
29. End Sub

复制代码

风过天涯

fzxba 发表于 2023-2-7 09:53

是这样。Array还能这么用，我平时只是用来复制粘贴的，哈哈哈，学习了