直接按文本文件导入就是。

首先将del文件转换成txt文件，再将txt文件批量导入excel。获得要导入的txt文件的文件名，将其复制到新的工作薄的sheet1中，在运行如下代码，全部导入到excel之后计算每个工作的列数即可
Sub Macro3()
    Dim k As Integer
    For k = 2 To Range("A65536").End(xlUp).Row
    Sheets(k).Activate
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;E:\" & Sheets("Sheet1").Cells(k, 2).Value _
        , Destination:=Range("$A$1"))
        .Name = Sheets(1).Cells(k, 3).Value
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

    Sheets(k).Name = Sheets("Sheet1").Cells(k, 1).Value
    Next k
End Sub