想要获取外部文件字段个数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

原本是分隔符为逗号的.del文件，我先将其另存为了.txt格式，再通过vba获得字段个数
vba程序如下：
Sub fl()
Dim str
Open "E:\new\861.del.TXT" For Input As #1
Line Input #1, str
Dim arr() As String
arr = Split(str, ",")
Range("B1") = UBound(arr)
Close #1
End Sub

由于文件时这种类型的：

“93883940”,"十点半共轭举动","92904","1","","HDJEBND","1998-09-09"

所以以上vba做出来的结果为0.
请各位帮忙解决！！！

另外，请问.del的文件能直接导入到excel吗？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：string Input tring 请各位帮忙 Bound excel 程序

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

首先将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