vba读取txt

以下是一个示例代码，用于读取三个txt文件，将它们的内容存储到数组中，并从每个文件的第一行获取创建者名称：

在上述代码中，我们定义了两个数组filePath和fileContents。filePath数组包含三个文本文件的路径，fileContents数组将用于存储每个文件的内容。

然后，我们使用一个循环来打开每个文本文件，并使用Split函数将每个文件的内容拆分成一个一维数组，并将其存储在对应的fileContents数组元素中。该数组中的每个元素都是一个数组，其中包含每个文件的每一行文本。

最后，我们再次使用一个循环来遍历每个文件的第一行，并从该行中获取创建者名称。我们使用Split函数将每个第一行拆分为数组，并使用索引获取该数组的第二个元素，即创建者名称。然后，我们将创建者名称显示在一个对话框中。

请注意，在上面的示例中，我们假设每个文件的第一行都包含一个“创建者：[name]”的标志，其中[name]是创建者的实际名称。如果您的文本文件没有此格式，请相应地更改代码以匹配您的需求。

以下是示例代码，用于读取一个txt文件，将其表头的一个字段与工作簿的表一的名称相比较，并将文件对应的表头数据写入工作簿中：

在上面的代码中，我们首先定义文本文件的路径，并使用Open语句打开该文件以读取其内容。然后，我们使用Split函数将文件内容拆分为一个一维数组，并获取表头的第一个字段名称。

接下来，我们使用ActiveSheet对象的Cells属性来获取工作簿表格的第1行，并将其存储在targetRange变量中。如果文件表头的第一个字段名称与工作簿表格的名称匹配，我们创建一个名为headerData的数组并将文件表头拆分为该数组的元素。

最后，我们将文件表头数据写入目标范围中，并显示一个消息框（如果文件表头的第一个字段名称与工作簿表格的名称不匹配）。

请注意，在上述示例中，我们假设文件的第一行包含用逗号分隔的表头（例如，“名称,年龄,性别”）。如果您的文件不是这种格式，请相应地更改代码以匹配您的需求。