写一个自子方法，子方法的功能实现读取txt文件，并将txt文件的所需要的行数据和对应的表头返回出去

以下是一个使用 VBA 读取文本文件并将指定行数据和表头返回的示例代码：

Sub Example()
    Dim filePath As String

    ' 设置要读取的文件路径
    filePath = "C:\File.txt"
    
    ' 调用子方法并获取需要的行数据和表头
    Dim data() As String
    Dim headers() As String
    GetDataFromFile filePath, data, headers
    
    ' 在窗体中显示结果
    MsgBox "Headers: " & Join(headers, ",") & vbCrLf & _
           "Data: " & Join(data, vbCrLf)
End Sub

Sub GetDataFromFile(filepath As String, ByRef data() As String, ByRef headers() As String)
    Dim fileNumber As Integer
    Dim line As String
    Dim firstLine As Boolean
    
    ' 打开并读取文件
    fileNumber = FreeFile()
    Open filepath For Input As #fileNumber
    
    firstLine = True
    Do Until EOF(fileNumber)
        Line Input #fileNumber, line
        
        ' 将行按逗号进行拆分
        Dim fields() As String
        fields = Split(line, ",")
        
        ' 如果是第一行，则记录表头
        If firstLine Then
            ReDim headers(0 To UBound(fields))
            headers = fields
            firstLine = False
        Else
            ' 否则，记录数据
            ReDim Preserve data(0 To UBound(data) + 1)
            data(UBound(data)) = line
        End If
    Loop
    Close #fileNumber
End Sub

在上面的代码中，我们定义了名为 GetDataFromFile 的子方法，该方法负责读取指定的文件，并将第一行作为表头，其余行作为数据返回。

在主方法中，我们调用 GetDataFromFile 方法，并将返回的数据保存到 data 和 headers 数组中。最后，我们使用 MsgBox 函数在窗体中显示结果。

请注意，由于 data 和 headers 参数是通过引用传递的，因此我们需要在调用子方法时使用关键字 ByRef 来指示。如果没有使用 ByRef，则无法更新 data 和 headers 参数的值。

第二种：用vba写代码，写一个子方法，子方法的功能实现读取txt文件，并将txt文件的所需要的行数据和对应的表头返回出去

以下是一个使用 VBA 读取文本文件并将指定行数据和表头返回的示例代码：

Function GetDataFromFile(filepath As String) As Variant
    ' 声明变量
    Dim fileNumber As Integer
    Dim line As String
    Dim firstLine As Boolean
    Dim headers As Variant
    Dim data As Variant

    ' 打开并读取文件
    fileNumber = FreeFile()
    Open filepath For Input As #fileNumber

    firstLine = True
    Do Until EOF(fileNumber)
        Line Input #fileNumber, line
        
        ' 将行按逗号进行拆分
        Dim fields() As String
        fields = Split(line, ",")
        
        ' 如果是第一行，则记录表头
        If firstLine Then
            headers = fields
            firstLine = False
        Else
            ' 否则，记录数据
            ReDim Preserve data(0 To UBound(data) + 1, 0 To UBound(fields))
            data(UBound(data), 0 To UBound(fields)) = fields
        End If
    Loop
    Close #fileNumber
    
    ' 将表头和数据封装到数组中并返回
    GetDataFromFile = Array(headers, data)
End Function

在上面的代码中，我们定义了名为 GetDataFromFile 的子方法，该方法负责读取指定的文件，并将第一行作为表头，其余行作为数据返回。

在主方法中，我们调用 GetDataFromFile 方法，并将返回的结果保存到一个变量中。由于这个方法的返回值是数组，我们使用 Variant 类型来接收它。

请注意，我们使用 ReDim Preserve 来动态调整 data 数组的大小，并将每一行数据存储在二维数组的每个行中。最后，我们将表头和数据封装到一个新的数组中，并将其作为方法的返回值。

调用这个函数的示例代码如下：

Sub Example()
    ' 设置要读取的文件路径
    Dim filepath As String
    filepath = "C:\File.txt"
    
    ' 调用子方法并获取需要的行数据和表头
    Dim result As Variant
    result = GetDataFromFile(filepath)
    Dim headers As Variant
    Dim data As Variant
    headers = result(0)
    data = result(1)
    
    ' 在窗体中显示结果
    MsgBox "Headers: " & Join(headers, ",") & vbCrLf & _
           "Data: " & Join(data, vbCrLf)
End Sub

在上面的代码中，我们首先调用 GetDataFromFile 方法，并将返回的结果保存到 result 变量中。然后，我们从 result 变量中获取表头和数据，并使用 MsgBox 函数在窗体中显示结果。