仅在Excel vba中添加新表数据

Question

我试图从几个文件中读取数据并创建一个包含读取数据的新文档，使用工作簿对象很容易。

但是，我不确定如何只添加尚未添加的数据而不覆盖以前写入的数据。

任何帮助将不胜感激， 提前谢谢。

Answer 1

您可以先将数据读入Dictionary对象。字典可用于存储唯一的项目列表。例如：

Dim d As Object
Set d = CreateObject("Scripting.Dictionary")

' Loop thru your file data, adding each value if it doesn't exist...
    If Not d.Exists(strData) Then d.Add strData, ""
' End loop

' Now add each dictionary item to your workbook...
Dim k As Variant
For Each k In d
    ' Add k to workbook
Next