[已解决]求助取消保存txt文件下面的空行

清华

1. Sub 记事本()
   
2. Range("E1").Select
   
3. Range(Selection, Selection.End(xlDown)).Select
   
4. Dim mArea As Range, N&, i&, Str$
   
5. If TypeName(Selection) = "Range" Then
   
6. Str$ = ""
   
7. For Each mArea In Selection.Areas
   
8. For N = mArea.Row To mArea.Row + mArea.Rows.Count - 1
   
9. For i = mArea.Column To mArea.Column + mArea.Columns.Count - 1
   
10. Str = Str & Cells(N, i).Text
    
11. If i < mArea.Column + mArea.Columns.Count - 1 Then Str = Str & vbTab
    
12. Next i
    
13. Str = Str & vbCrLf
    
14. Next N
    
15. Next mArea
    
16. Open ThisWorkbook.Path & "\平台数据.txt" For Output As #1
    
17. Print #1, Str
    
18. Close #1
    
19. End If
    
20. End Sub
    
21. 
    
22. 就是要保存的txt文件最下面没有空行

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-2 09:58

1. Sub 记事本()
   
2.     Range("E1").Select
   
3.     Range(Selection, Selection.End(xlDown)).Select
   
4.     Dim mArea As Range, N&, i&, Str$
   
5.     If TypeName(Selection) = "Range" Then
   
6.         Str$ = ""
   
7.         For Each mArea In Selection.Areas
   
8.             For N = mArea.Row To mArea.Row + mArea.Rows.Count - 1
   
9.                 For i = mArea.Column To mArea.Column + mArea.Columns.Count - 1
   
10.                     Str = Str & Cells(N, i).Text
    
11.                     If i < mArea.Column + mArea.Columns.Count - 1 Then Str = Str & vbTab
    
12.                 Next i
    
13.                 Str = Str & vbCrLf
    
14.             Next N
    
15.         Next mArea
    
16.         Str = Left(Str, Len(Str) - 2)
    
17.         Open ThisWorkbook.Path & "\平台数据.txt" For Output As #1
    
18.         Print #1, Str
    
19.         Close #1
    
20.     End If
    
21. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 记事本()
   
2.     Range("E1").Select
   
3.     Range(Selection, Selection.End(xlDown)).Select
   
4.     Dim mArea As Range, N&, i&, Str$
   
5.     If TypeName(Selection) = "Range" Then
   
6.         Str$ = ""
   
7.         For Each mArea In Selection.Areas
   
8.             For N = mArea.Row To mArea.Row + mArea.Rows.Count - 1
   
9.                 For i = mArea.Column To mArea.Column + mArea.Columns.Count - 1
   
10.                     Str = Str & Cells(N, i).Text
    
11.                     If i < mArea.Column + mArea.Columns.Count - 1 Then Str = Str & vbTab
    
12.                 Next i
    
13.                 Str = Str & vbCrLf
    
14.             Next N
    
15.         Next mArea
    
16.         Str = Left(Str, Len(Str) - 2)
    
17.         Open ThisWorkbook.Path & "\平台数据.txt" For Output As #1
    
18.         Print #1, Str
    
19.         Close #1
    
20.     End If
    
21. End Sub

复制代码

hwc2ycy

循环到了后时因为加了个vbcrlf，所以在写入前，把那两个字节不用就成了。