【批量提取】txt文件【特定位置】数据至excel

bigear86

小弟刚开始接触vba，恳请论坛老师不吝指导：1.附件RawData文件夹下是要提取的txt文件，数量可多到数万个；
2.附件Template是依次提取RawData下txt文件中开头部分统计信息的excel文档。
多谢了！

liulang0808

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    a = 2
    For Each f In CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path & "\RawData").Files
        Open f For Input As #1
        While Not EOF(1)
            Line Input #1, str1
            If InStr(str1, ";Logged:") > 0 Then
                Cells(a, 1).Resize(1, 2) = Split(Split(str1, "Logged:")(1), " at ")
            Else
                If Left(str1, 5) = ";Min:" Then
                    Cells(a, 3) = Split(Split(str1, ";Min:")(1), "mJ")(0)
                Else
                    If Left(str1, 5) = ";Max:" Then
                        Cells(a, 4) = Split(Split(str1, ";Max:")(1), "mJ")(0)
                    Else
                        If InStr(str1, ";Average:") > 0 Then
                            Cells(a, 5) = Split(Split(str1, ";Average:")(1), "mJ")(0)
                        Else
                            If InStr(str1, ";Std.Dev.:") > 0 Then
                                Cells(a, 6) = Split(Split(str1, ";Std.Dev.:")(1), "mJ")(0)
                            Else
                                If InStr(str1, ";Overrange:") > 0 Then
                                    Cells(a, 7) = Split(str1, ";Overrange:")(1)
                                Else
                                    If InStr(str1, ";Total Pulses:") > 0 Then
                                        Cells(a, 8) = Split(str1, ";Total Pulses:")(1)
                                        a = a + 1
                                        GoTo l1
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Wend
l1:
        Close #1
        Next f
    Application.ScreenUpdating = True
End Sub

liulang0808

附件 内容供参考吧。。。

kldxlb

代码竟然发不出来，看附件吧

bigear86

liulang0808 发表于 2017-3-14 07:51
附件 内容供参考吧。。。

感谢大神！还有小问题 就是我给的txt文档名称只到_05.txt 如果到_100.txt 其文件读取顺序就错排至_11.txt后 而非_99.txt后 最多能有1000000个txt 怎么办？

bigear86

kldxlb 发表于 2017-3-14 11:51
代码竟然发不出来，看附件吧

感谢大神！还有小问题 就是我给的txt文档名称只到_05.txt 如果到_100.txt 其文件读取顺序就错排至_11.txt后 而非_99.txt后 最多能有1000000个txt 怎么办？

bigear86

kldxlb 发表于 2017-3-14 11:51
代码竟然发不出来，看附件吧

感谢大神！还有小问题 就是我给的txt文档名称只到_05.txt 如果到_100.txt 其文件读取顺序就错排至_11.txt后 而非_99.txt后 最多能有1000000个txt 怎么办？

kldxlb

bigear86 发表于 2017-3-14 14:31
感谢大神！还有小问题 就是我给的txt文档名称只到_05.txt 如果到_100.txt 其文件读取顺序就错排至_11.txt ...

你这个还要排序？

liulang0808

bigear86 发表于 2017-3-14 14:28
感谢大神！还有小问题 就是我给的txt文档名称只到_05.txt 如果到_100.txt 其文件读取顺序就错排至_11.txt ...

对啊，按照文本顺序来的
不然把文件名读进excel里，读取完成后再处理吧

bbcvoc

kldxlb 发表于 2017-3-14 11:51
代码竟然发不出来，看附件吧

不错啊！！！
大神能否帮我解决一下类似的问题？   http://club.excelhome.net/thread-1454323-1-1.html