请教EXCEL宏导出指定内容保存为txt

cfzzj

mojialang 发表于 2016-8-24 11:46
老师，我复制了上面的代码，怎么没反应呢？怎么回事呢？

1. Sub test()
   
2.     Dim arr, myPath$, s$, i As Byte, j As Byte
   
3.     arr = Range("a1").CurrentRegion
   
4.     myPath = ThisWorkbook.Path & ""
   
5.     For i = 3 To UBound(arr, 2)
   
6.         s = ""
   
7.         For j = 1 To 3
   
8.            s = s & vbCrLf & arr(j, 1) & vbTab & arr(j, 2) & vbTab & arr(j, i)
   
9.         Next
   
10.         Open myPath & "" & arr(1, i) & ".txt" For Output As #1
    
11.         Print #1, Mid(s, 3)
    
12.         Close #1
    
13.     Next
    
14. End Sub

复制代码

输入出代码少了一个\