|
请教,这个只能一行一个数字,要写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
- Private Sub FSO对象_从工作表写入记事本()
- Dim Content(), TxtFile As Object, i As Long, b As Long
- Content = Worksheets("sheet1").Range("a1:k10").Value
- Dim strTemp As String
- Set TxtFile = CreateObject("scripting.filesystemobject").OpenTextFile("c:\fso对象\写入测试.txt", ForWriting, True)
- For i = 1 To UBound(Content, 1)
- strTemp = ""
- For b = 1 To UBound(Content, 2)
- strTemp = strTemp & Content(i, b) & ","
- Next
- strTemp = Left(strTemp, Len(strTemp) - 1)
- TxtFile.WriteLine strTemp
- Next
- TxtFile.Close
- Set TxtFile = CreateObject("scripting.filesystemobject").OpenTextFile("c:\fso对象\写入测试.txt", ForReading)
- Debug.Print TxtFile.ReadAll
- TxtFile.Close
- End Sub
复制代码
|
|