Господа приветствую.
Подскажите как выйти из положения.
Есть у меня например 5 заполненных ячеек.
Я хочу записать в текстовый файл их друг за другом в кодировке utf-8
но он перезаписывает каждую запись, а как сделать дозапись типа ioStream.appendtext я не понял.
обращение к функции
Либо если дозаписи потока не существует, как обойти данную проблему.
Буду признателен за помощь.
Подскажите как выйти из положения.
Есть у меня например 5 заполненных ячеек.
Я хочу записать в текстовый файл их друг за другом в кодировке utf-8
| Код |
|---|
Sub Save2File(sText, sFile)
Dim oStream
Set oStream = CreateObject("ADODB.Stream")
With oStream
.Open
.Charset = "utf-8"
.WriteText sText
.SaveToFile sFile, 2
End With
Set oStream = Nothing
End Sub |
но он перезаписывает каждую запись, а как сделать дозапись типа ioStream.appendtext я не понял.
обращение к функции
| Код |
|---|
For lCounter = 2 To lLastRow
Save2File Sheets("Test").Range("L" & lCounter), "c:\test.txt"
Next lCounter |
Либо если дозаписи потока не существует, как обойти данную проблему.
Буду признателен за помощь.
