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

Question

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

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

Answer 1

在您提供一个最小的工作示例之前，这两部分可能会为您提供一些指导：

清除A列：

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

对于粘贴数据，类似于以下内容：

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

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