Question

我想在删除vv后在vv文件中插入点“ ...”。实际上，它将解决“内存不足”的问题

 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可能会更容易一些。然后，您只需将您的...添加到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

如何在txt文件中插入点？

1 个答案: