[已解决]如何按要求把内容写入txt。

silenthunter

请教，这个只能一行一个数字，要写110行。我希望的结果是一行11个数字，写10行。

Private Sub FSO对象_从工作表写入记事本()
Dim Content(), TxtFile As Object, i As Long, b As Long
Content = Worksheets("sheet1").Range("a1:k10").Value
Set TxtFile = CreateObject("scripting.filesystemobject").OpenTextFile("c:\fso对象\写入测试.txt", ForWriting, True)
For i = 1 To UBound(Content, 1)
   For b = 1 To UBound(Content, 2)
      TxtFile.WriteLine Content(i, b)
   Next
Next
TxtFile.Close
Set TxtFile = CreateObject("scripting.filesystemobject").OpenTextFile("c:\fso对象\写入测试.txt", ForReading)
Debug.Print TxtFile.ReadAll
TxtFile.Close
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-20 20:48

1. Private Sub FSO对象_从工作表写入记事本()
   
2.     Dim Content(), TxtFile As Object, i As Long, b As Long
   
3.     Content = Worksheets("sheet1").Range("a1:k10").Value
   
4.     Dim strTemp As String
   
5.     Set TxtFile = CreateObject("scripting.filesystemobject").OpenTextFile("c:\fso对象\写入测试.txt", ForWriting, True)
   
6.     For i = 1 To UBound(Content, 1)
   
7.         strTemp = ""
   
8.         For b = 1 To UBound(Content, 2)
   
9.             strTemp = strTemp & Content(i, b) & ","
   
10.         Next
    
11.         strTemp = Left(strTemp, Len(strTemp) - 1)
    
12.         TxtFile.WriteLine strTemp
    
13.     Next
    
14.     TxtFile.Close
    
15.     Set TxtFile = CreateObject("scripting.filesystemobject").OpenTextFile("c:\fso对象\写入测试.txt", ForReading)
    
16.     Debug.Print TxtFile.ReadAll
    
17.     TxtFile.Close
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

第二层循环把11个数字连接起来，然后再用WRITELINE

hwc2ycy

1. Private Sub FSO对象_从工作表写入记事本()
   
2.     Dim Content(), TxtFile As Object, i As Long, b As Long
   
3.     Content = Worksheets("sheet1").Range("a1:k10").Value
   
4.     Dim strTemp As String
   
5.     Set TxtFile = CreateObject("scripting.filesystemobject").OpenTextFile("c:\fso对象\写入测试.txt", ForWriting, True)
   
6.     For i = 1 To UBound(Content, 1)
   
7.         strTemp = ""
   
8.         For b = 1 To UBound(Content, 2)
   
9.             strTemp = strTemp & Content(i, b) & ","
   
10.         Next
    
11.         strTemp = Left(strTemp, Len(strTemp) - 1)
    
12.         TxtFile.WriteLine strTemp
    
13.     Next
    
14.     TxtFile.Close
    
15.     Set TxtFile = CreateObject("scripting.filesystemobject").OpenTextFile("c:\fso对象\写入测试.txt", ForReading)
    
16.     Debug.Print TxtFile.ReadAll
    
17.     TxtFile.Close
    
18. End Sub
    

复制代码

windimi007

hwc2ycy 发表于 2013-7-20 20:46
第二层循环把11个数字连接起来，然后再用WRITELINE

是循环快？还是ReadAll速度快乃？{:4412:}

hwc2ycy

windimi007 发表于 2013-7-20 20:49
是循环快？还是ReadAll速度快乃？

传说中的七神现身了，{:1112:}

windimi007

hwc2ycy 发表于 2013-7-20 20:51
传说中的七神现身了，

o(╯□╰)o，现在懒了，全是用的ReadAll+Split放到数组里再处理，貌似听说循环好像更快点，是这样吗？烟花大仙{:2012:}

hwc2ycy

windimi007 发表于 2013-7-20 20:53
o(╯□╰)o，现在懒了，全是用的ReadAll+Split放到数组里再处理，貌似听说循环好像更快点，是这样吗？烟花 ...

我都没用过这个FSO对象，直接用相关的语句和函数操作。