如何使用vba导入将取代现有列中数据的文本文件答案

【问题标题】：How to import text file that will supersede data in existing column using vba如何使用vba导入将取代现有列中数据的文本文件
【发布时间】：2021-09-04 23:59:02
【问题描述】：

我需要从 VBA 导入一个文本文件，将其转换为整数，然后将其加载到 A 列中。它必须清除当前数据集并加载新数据集。它在 B1 中还有一个公式 =SUM(OFFSET($A$1,0,0,COUNTA(A:A),1))，它对可变长度的 A 列求和。我将使用一组带有可变行的新数字一遍又一遍地运行 VBA 文件。然后我想将 B1 中的总和写到一个文本文件中，我可以从另一个程序中读取。

到目前为止，当我导入文本文件时，会创建一个工作表。我还没有弄清楚如何清除 A 列并在工作表 1 中加载新数据集，该数据集将具有对可变长度 A 列求和的公式。

【问题讨论】：

欢迎来到 SO！请用minimal working example 向我们展示您现在拥有的代码，以及包含您尝试加载的数据的文本文件。

标签： vba file text import

【解决方案1】：

在您提供minimal working example 之前，这两部分可能会给您一些指导：

清除A列：

ActiveWorkbook.Worksheets("sheet1").Columns(1).select
Selection.ClearContents

对于粘贴数据，类似这样：

For iLoop = 0 To UBound(ArrayOfTextToPaste)
   Range(ColumnToPaste & iFirstRowToPaste + iLoop) = ArrayOfTextToPaste(iLoop)
Next iLoop

再次为我们提供一个示例，我们可以尝试填补空白。 Here，一个开始挖掘的地方。

【讨论】：