使用FreeFile快速导出一个固定的范围

我试图把固定范围的单元格（不断变化）的值定期清理到文本文件中，尽可能干净。

我已经尽可能将一个单元格的值放入txt的文件名中：

FF = FreeFile() Open ThisWorkbook.Path & "\" & Range("A" & cell.Row).Value & ".txt" For Output As #FF Print #FF, cell.Text Close #FF 

但是我想把数据放到文件中，并且保留名字。

任何帮助感激！

Answer 1

添加对您的VBA代码的引用：

工具>参考> Microsoft脚本运行时

删除文件并写入新文件。 这将每次都给它相同的名称，将yourFile.txt 。 您的目录将有yourFile.xlsx和yourFile.txt 。

 Dim fso As New Scripting.FileSystemObject If fso.FileExists(Replace(Replace(ThisWorkbook.FullName, ".xlsx", ".txt"), ".xls", ".txt")) Then fso.DeleteFile (Replace(Replace(ThisWorkbook.FullName, ".xlsx", ".txt"), ".xls", ".txt")) End If FF = FreeFile() Open Replace(Replace(ThisWorkbook.FullName, ".xlsx", ".txt"), ".xls", ".txt") For Output As #FF Print #FF, cell.Text Close #FF