Условное открытие файлов в vba excel

Question

В этом коде я беру имя файла из листа Excel. Я использую доступ добавления, поскольку я использую для l oop, чтобы напечатать текст построчно. Но если я отредактирую данные в листе Excel и затем сохраню их снова, они добавят новые данные / неизмененные данные в файл вместо перезаписи. Если я не использую доступ добавления, тогда я не смог бы напечатать все строки. Могу ли я сделать что-то вроде сохранения строк в переменной и перезаписи или что-то еще?

PS-Игнорировать отступ кода;)

Sub ExportPipe()



Call declare_vars
Dim InitialName As String
Dim fName As String



FNum = FreeFile
fName = Application.GetSaveAsFilename(InitialFileName:=metaFileName, FileFilter:="pipe delimited (*.csv),*.csv")

If fName = "False" Then
Exit Sub
End If

 Open fName For Append Access Write As #FNum

For R = attrFirstRowNum To dataLastRowNum
    Line = ""
    For C = attrFirstColNum To attrLastColNum
        editCell = Cells(R, C)
        Line = Line & editCell & C_CSV_SEPERATOR

    Next

     Print #FNum, Line

Next

Close #FNum

End Sub