Как вставить точку в текстовый файл?

Question

Я хотел бы вставить точку "..." в файл cvs с помощью vba после удаления его содержимого. Фактически это решило бы проблему «недостаточной памяти»

 Sub StartExtract()      
' Load the CSV file
 OpenCSVFile

Sheets("temp").Select
Sheets("NS_Aug_310_330").Select
Columns("A:F").Select
Selection.ClearContents

Workbooks.Open FileName:="C:\Users\p100789\Documents\SAP\SAP 
GUI\text.txt"
Cells.ClearContents
ActiveWorkbook.Close SaveChanges:=True

End Sub

Answer 1

Вы можете просто добавить все, что вам нравится, в ячейку A1 этой "рабочей книги" перед сохранением, и она должна работать. Может быть немного проще работать с CSV, если вы назначите «Workbook» переменной. Тогда вы можете просто добавить свой ... к Range("A1")

Dim wb as workbook
Set wb = Workbooks.Open(Filename:="C:\Users\p100789\Documents\SAP\SAP GUI\text.txt")
wb.Sheets(1).Cells.ClearContents
wb.Sheets(1).Range("A1").Value = "..."
wb.Close SaveChanges:=True