[已解决]怎么将不同的工作表内容转存不同名称的TXT文件

lin2001

请问怎么批量处理将不同的工作表内容转存不同名称的TXT文件
就是将工作表1，E列的存为1.TXT
工作表2，E列的存为2.TXT
工作表3，E列的存为3.TXT

最佳答案

月排行榜 / 总排行榜

wp8680

2016-3-5 12:13

1. Public Sub savetext()
   
2.     Dim sh As Worksheet
   
3.     Dim arr, istr As String, ipath As String
   
4.     For Each sh In ThisWorkbook.Sheets
   
5.         ipath = ThisWorkbook.Path & "" & sh.Name & ".txt"
   
6.         Open ipath For Output As #1
   
7.             arr = WorksheetFunction.Transpose(Intersect(sh.UsedRange, sh.Range("e:e")))
   
8.             istr = Join(arr, vbCrLf)
   
9.             Print #1, istr
   
10.         Close #1
    
11.     Next sh
    
12. End Sub

复制代码

跳转到最佳答案楼层

wp8680

1. Public Sub savetext()
   
2.     Dim sh As Worksheet
   
3.     Dim arr, istr As String, ipath As String
   
4.     For Each sh In ThisWorkbook.Sheets
   
5.         ipath = ThisWorkbook.Path & "" & sh.Name & ".txt"
   
6.         Open ipath For Output As #1
   
7.             arr = WorksheetFunction.Transpose(Intersect(sh.UsedRange, sh.Range("e:e")))
   
8.             istr = Join(arr, vbCrLf)
   
9.             Print #1, istr
   
10.         Close #1
    
11.     Next sh
    
12. End Sub

复制代码

lin2001

谢谢