excel顺序提取文件夹内txt文件名及txt内特定内容

网络加载

liucf 发表于 2018-6-29 11:37
没看见附件

艾玛  整忘记了 已经上传  求大神指导。

网络加载

yylucke 发表于 2018-6-29 11:41
你不整个附件上来，没办法帮忙。

艾玛  整忘记了 已经上传  求大神指导。

yylucke

网络加载 发表于 2018-6-29 11:46
艾玛  整忘记了 已经上传  求大神指导。

加一句
Cells(a, 1) = Split(f.Name, ".txt")(0)

网络加载

yylucke 发表于 2018-6-29 12:04
加一句
Cells(a, 1) = Split(f.Name, ".txt")(0)

大神，非常感谢，可以实现了。再次膜拜啊

网络加载

yylucke 发表于 2018-6-29 12:04
加一句
Cells(a, 1) = Split(f.Name, ".txt")(0)

之前只加了Cells(a, 1) ，尝试过，提示错误，后面的不晓得如何加，谢谢了。

网络加载

yylucke 发表于 2018-6-29 12:04
加一句
Cells(a, 1) = Split(f.Name, ".txt")(0)

例外，再请教个问题 ，这段代码中间的IF 语句可以最多能弄几个呢 ？

zhangzhang

Public Sub GetTxt()
Dim Str1 As String, Fname As String, MyFile As String
Dim fNumber As Long, r As Long
Dim MyPath As String
Dim Arr, Sp

r = 1
On Error Resume Next
Range("A1").CurrentRegion.Offset(1).ClearContents

MyPath = ThisWorkbook.Path & "\提取文本内容\"
Fname = Dir(MyPath & "*.txt")

Do While Fname <> ""
    MyFile = Fname
    Fname = MyPath & Fname
    fNumber = FreeFile
    Open Fname For Input As fNumber

    ReDim Arr(1 To 1, 1 To 9)
        Arr(1, 1) = VBA.Split(MyFile, ".")(0)
    Do
        Line Input #fNumber, Str1
           
        If InStr(Str1, ";Logged:") > 0 Then
            Str1 = Mid(Str1, 9)
            Sp = VBA.Split(Str1, " at ")
            Arr(1, 2) = Sp(0)
            Arr(1, 3) = Sp(1)
        End If
         
        If Left(Str1, 5) = ";Min:" Then
            Str1 = Split(Str1, ":")(1)
            Arr(1, 4) = VBA.Replace(Str1, "mJ", "")
        End If
        
        If Left(Str1, 5) = ";Max:" Then
            Str1 = Split(Str1, ":")(1)
            Arr(1, 5) = VBA.Replace(Str1, "mJ", "")
        End If
        
        If InStr(Str1, ";Average:") > 0 Then
            Str1 = Split(Str1, ":")(1)
            Arr(1, 6) = VBA.Replace(Str1, "mJ", "")
        End If
         
        If InStr(Str1, ";Std.Dev.:") > 0 Then
            Str1 = Split(Str1, ":")(1)
            Arr(1, 7) = VBA.Replace(Str1, "mJ", "")
        End If
        
        If InStr(Str1, ";Overrange:") > 0 Then
            Arr(1, 8) = Split(Str1, ":")(1)
        End If
        
        If InStr(Str1, ";Total Pulses:") > 0 Then
            Arr(1, 9) = Split(Str1, ":")(1)
            Exit Do
        End If
   
    Loop Until EOF(fNumber)

    Close #fNumber
    r = r + 1
    Range("A" & r).Resize(, 9) = Arr
    Fname = Dir
Loop

End Sub

liucf

给你个不用IF的

网络加载

liucf 发表于 2018-6-29 17:10
给你个不用IF的

多谢大神，你这个看着简单，不过如果找不到就会出错。

网络加载

yylucke 发表于 2018-6-29 12:04
加一句
Cells(a, 1) = Split(f.Name, ".txt")(0)

例外 请教老师大神，这种查找内容的  可以实现一个或两个条件来决定后面固定行数的特定内容吗，同样如果是 返回值，如果不是，则不显示。这种在一个if里面是不是不能实现啊？