Текст над написанным, когда он должен быть добавлен

Question

Это кажется очень легким (я сделал это миллион раз и никогда не испытывал проблем), но он убивает меня.

Я хочу создать SQL-скрипты на основе содержимого в электронной таблице Excel. Для этого я создал макрос, который считывает текстовый файл, используя приведенный ниже код

Dim fso As FileSystemObject 
Set fso = New FileSystemObject 

Dim stream As TextStream 
Set stream = fso.OpenTextFile(filepath, 8, False) 

Это предполагается открыть текстовый файл для добавления и подключить свои новые значения.

К сожалению, это всегда переписывание вместо добавления, и это заставляет меня гайки.

Любые идеи?

Answer 1

Я только недавно построили функцию Append строк в файл. Я наткнулся на эту проблему всего несколько недель/месяцев назад и обнаружил, что, если использовать фактическое слово ForAppending, так же, как оно появилось в Intellisense, insted из числа это сработало для меня.

Const ForAppending = 8 

Sub AppendStringToFile(ByVal strFile As String, ByVal strNewText As String, Optional intBlankLine As Integer = 1) 

Dim fso as FileSystemObject, ts as TextStream 

Set fso = New FileSystemObject 
Set ts = fso.OpenTextFile(strFile, ForAppending, True) 

With ts 
    .WriteBlankLines intBlankLine 
    .WriteLine (strNewText) 
    .Close 
End With 

Set ts = Nothing 
Set fso = Nothing 

End Sub 

Answer 2

Это очень странно, в this documentation, он упоминает о том, что константа, соответствующая ForAppending является 8, но он использует 3 в примере на дне.

Try:

Dim fso As FileSystemObject 
Set fso = New FileSystemObject 

Dim stream As TextStream 
Set stream = fso.OpenTextFile(filepath, 3, False) 

Answer 3

падения назад к основам ....
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

используется для ваших требований:

Dim FNum As Integer 

FNum = FreeFile() 
Open strFile For Append As FNum 

'do your stuff here 
Write #FNum, MyData 

Close FNum