vba批量获取文件夹中dat格式文件，并将dat文件中的内容写入excel表格中

以下是一个VBA示例，可以批量获取文件夹中dat格式文件，并将dat文件中的内容写入Excel表格中：

Sub ImportDataFromDATFiles()
    Dim FolderPath As String
    Dim Filename As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Integer
    Dim j As Integer
    Dim FileContent As String
    
    '设置文件夹路径
    FolderPath = "C:\DATFiles\"
    
    '创建新工作簿
    Set wb = Workbooks.Add
    Set ws = wb.Sheets(1)
    
    '设置表头
    ws.Cells(1, 1) = "文件名"
    ws.Cells(1, 2) = "内容"
    
    '获取文件夹中的dat文件
    Filename = Dir(FolderPath & "*.dat")
    
    '循环处理每个文件
    i = 2
    Do While Filename <> ""
        '打开dat文件
        Open FolderPath & Filename For Input As #1
        
        '将文件内容读入字符串变量
        FileContent = Input$(LOF(1), 1)
        
        '关闭文件
        Close #1
        
        '将文件名和内容写入工作表
        ws.Cells(i, 1) = Filename
        ws.Cells(i, 2) = FileContent
        
        '下一行
        i = i + 1
        
        '获取下一个文件
        Filename = Dir()
    Loop
    
    '调整列宽
    ws.Columns("A:B").AutoFit
    
    '保存工作簿
    wb.SaveAs FolderPath & "Data.xlsx"
    
    '关闭工作簿
    wb.Close
    
    '释放对象
    Set ws = Nothing
    Set wb = Nothing
End Sub

在这个示例中，我们首先设置了要处理的文件夹路径，然后创建了一个新的Excel工作簿。接下来，我们循环处理文件夹中的每个dat文件，将文件名和内容写入工作表。最后，我们调整列宽、保存工作簿并关闭它。