excel vb 扫描TEXT文件条件录入Excel

Question

求大神指导
1，指定文件名---text1*.txt
2，到指定文件夹下寻找text1*.txt相关的所有文件
3，通过逐行扫描txt，将含有关键词（ab）的行记录到excel里

希望大神帮忙

Answer 1

Sub test()
Dim strfilename As String, strpath As String, strfiletext As String
Dim xrow As Integer
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        strpath = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With
strfilename = Dir(strpath & "\*.txt")
xrow = 1 '设置一个在Excel中填入含关键字的内容的开始行
Do While strfilename <> ""
    Open strpath & "\" & strfilename For Input As #1
    Do While Not EOF(1)
        Line Input #1, strfiletext
        If InStr(strfiletext, "1") > 0 Then '这里关键字设的是“1”，自行修改一下即可，也可以把它做成一个变量
            Sheet1.Cells(xrow, 1).Value = strfiletext '符合条件的数据填在了第1列，自行修改一下
            xrow = xrow + 1
        End If
    Loop
    Close #1
    strfilename = Dir
Loop
End Sub

看看行不，有问题追问。

Answer 2

应该把命令写在:在TEXT1推动焦点时,进行该命令:
Dim app As Excel.Application
Dim wbk As Excel.Workbook
Dim wsh As Excel.Worksheet
Private Sub Text1_LostFocus()
Set app = CreateObject("excel.Application")
Set wbk = app.Workbooks.Open(Path)
Set wsh = app.Worksheets(1)
wsh.Activate
wsh.Cells(a, b) = Text1.Text
wbk.Close
app.Quit
Set app = Nothing
Set wbk = Nothing
Set wsh = Nothing
End Sub

追问

关键字呢
批量处理呢

Answer 3

豆腐花

Answer 4

用vba可以实现你说的要求，你若会VBA可以修改楼上的朋友给你提供的代码。要我具体帮助可看我头像中信息232728……