vba把dat导入excel

在VBA中把dat文件导入到Excel中，可以使用以下代码：

Sub ImportDatFileToExcel()
    ' 定义变量
    Dim datFilePath As String, excelFilePath As String
    Dim fileNum As Integer, i As Integer, j As Integer
    Dim lineText As String, cellValue As String
    Dim rowData() As String
    
    ' 设置文件路径
    datFilePath = "path/to/dat/file.dat"
    excelFilePath = "path/to/excel/file.xlsx"
    
    ' 打开dat文件并读取数据
    fileNum = FreeFile()
    Open datFilePath For Input As fileNum
    
    ' 创建新的Excel工作簿
    Dim wb As Workbook
    Set wb = Workbooks.Add
    
    ' 选择第一个工作表
    Dim ws As Worksheet
    Set ws = wb.Sheets(1)
    ws.Activate
    
    ' 读取每一行数据并写入Excel
    i = 1
    While Not EOF(fileNum)
        ' 读取一行数据
        Line Input #fileNum, lineText
        rowData = Split(lineText, vbTab)
        
        ' 写入Excel
        j = 1
        For Each cellValue In rowData
            ws.Cells(i, j).Value = cellValue
            j = j + 1
        Next cellValue
        
        i = i + 1
    Wend
    
    ' 关闭dat文件
    Close fileNum
    
    ' 保存Excel文件
    wb.SaveAs excelFilePath
    wb.Close
    
    ' 提示导入完成
    MsgBox "导入完成！"
End Sub

上面的代码中，首先定义了变量`datFilePath`和`excelFilePath`，分别为dat文件路径和要生成的Excel文件路径。然后打开dat文件，逐行读取数据并写入Excel中。最后保存Excel文件并提示导入完成。

请注意，上面代码中的路径需要替换为实际的文件路径，否则会导致无法读取或写入文件。