如何通过 VBA 附加 CSV 文件而不读取空的格式化单元格

Question

我的代码能够将工作表中的一系列数据附加到现有的 CSV 文件中。但是，我注意到当现有的 CSV 文件包含超出数据范围末尾的空但格式化的单元格时，Append 函数也会考虑这些空单元格。

例如，现有的 CSV 文件有 10 行数据，而第 11 到 20 行是空的，但已经格式化（例如“dd-mmm-yy”）。因此，当我附加 CSV 文件时，新数据将添加到第 21 行而不是第 11 行。

除了手动删除 CSV 文件中的第 11 到 20 行之外，是否有快速解决此问题的方法？我有很多现有的 CSV 文件，所以手动方式是不可行的。至于为什么有些行是空的，但是被格式化了，这是由于之前发生的一些修改。

感谢您的帮助。

Answer 1

我有一个代码，它能够将工作表中的一系列数据附加到现有的 CSV 文件中。但是，我注意到当现有 CSV 文件包含超出数据范围末尾的空但格式化的单元格时，Append 函数也会考虑这些空单元格。

如果您编写了该代码，则需要考虑您要忽略的格式化单元格。假设您将数据从 .xlsx 文件交换到 .csv 文件，所有这些都在 Excel 平台内完成。然后，例如，如果“常规”是最适合您的格式，但 .csv 列 A、工作表 1 中的一些尾随单元格不是这样，那么让您的代码在循环中评估 CSV Worksheets("Book1").Range("A[whatever row]").NumberFormat = "General"

然后让您的代码将不是的代码更改为 General；然后继续追加。