vba读取txt

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

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

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

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

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

Sub ReadTxtFiles()
    Dim filePaths(1 To 3) As String ' 定义包含三个文本文件路径的数组
    Dim fileContents(1 To 3) As Variant ' 定义包含三个文件内容的数组
    
    ' 设置三个文本文件的路径
    filePaths(1) = "C:\Users\Username\Desktop\File1.txt"
    filePaths(2) = "C:\Users\Username\Desktop\File2.txt"
    filePaths(3) = "C:\Users\Username\Desktop\File3.txt"
    
    ' 读取每个文件并将其内容存储到对应的数组元素中
    For i = 1 To 3
        Open filePaths(i) For Input As #1
        fileContents(i) = Split(Input$(LOF(1), #1), vbCrLf) ' 使用Split函数将文本文件内容拆分成一个一维数组
        Close #1
    Next i
    
    ' 显示每个文件的创建者名称
    For i = 1 To 3
        Dim creatorName As String ' 定义一个字符串以存储创建者名称
        creatorName = Split(fileContents(i)(0), ":")(1) ' 将第一行拆分为数组，并获取第二个元素，即创建者名称
        
        MsgBox "The creator of file " & i & " is " & creatorName
    Next i
End Sub

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

Sub ReadTxtHeaderAndWriteToWorksheet()
    Dim filePath As String ' 定义文本文件路径
    Dim fileContent As String ' 定义变量以存储文件内容
    Dim headerFieldName As String ' 定义变量以存储文件表头的字段名
    
    ' 设置文本文件的路径（您需要更改该值）
    filePath = "C:\Users\Username\Desktop\File1.txt"
    
    ' 读取文本文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), #1)
    Close #1
    
    ' 获取文件表头的第一个字段名称
    Dim tempArr() As String ' 定义一个临时数组以存储拆分后的字符串
    tempArr = Split(fileContent, vbCrLf) ' 将文件内容拆分为一维数组
    headerFieldName = Split(tempArr(0), ",")(0) ' 获取表头的第一个字段名称
    
    ' 获取工作簿表格的第1行
    Dim targetRange As Range
    Set targetRange = ActiveSheet.Range("A1:D1") ' 按需更改范围
    
    ' 检查文件表头的第一个字段名称是否与工作簿表格的名称匹配，并将表头数据写入工作簿
    If headerFieldName = ActiveSheet.Cells(1, 1).Value Then ' 假定名称放在第1列的第1行
        Dim headerData() As String ' 定义一个数组以存储文件表头数据
        
        ' 将文件表头拆分为一维数组，并将每个元素添加到headerData数组中
        headerData = Split(tempArr(0), ",")
        
        ' 将文件表头数据写入工作簿中
        targetRange.Value = headerData
    Else
        MsgBox "Header field name does not match worksheet name."
    End If
End Sub

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

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

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

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