1

以下の要件を満たすコードが必要です

  1. Excelシートの列Aにいくつかの文字列が含まれています
  2. これらの文字列を検索するフォルダーを指定します
  3. その指定されたフォルダーには、サブフォルダーと、いくつかの種類のファイル (.txt、.c、.xml など) があります。

4.i フォルダー構造全体で文字列を 1 つずつ検索し、列 A の検索文字列のようなすべての結果をログに記録する必要があります C のファイルの場所 B のファイルの出現回数

ありがとうございました

以下のコードは、列 A に入力されたファイル名を検索し、その場所を B に保存します。

私は以下を試しました：

オプション明示

Dim fso As New FileSystemObject
Dim i As Long
Dim fld As Folder
Dim c As Range


Sub Find_Path()
   Dim nDirs As Long, nFiles As Long, lSize As Currency
   Dim sDir As String, sSrchString As String, sItem As String
   Dim fldr As FileDialog


111:
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "D:\Check\"   'ActiveWorkbook.Path & "\"
        .Show
           If .SelectedItems.Count = 0 Then
            MsgBox "Folder to search is  not selected"
            GoTo 111
           Else
            sDir = .SelectedItems(1)
           End If
  End With

MsgBox "You have selected  : " & sDir, vbInformation

  'Application.Cursor = xlWait
  Application.DisplayStatusBar = True
  Application.StatusBar = "Please wait..."

    For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)


     sSrchString = Range("A" & c.Row).Value

     lSize = FindFile(sDir, sSrchString, nDirs, nFiles)       

     If Str(nFiles) = 0 Then

       Range("B" & c.Row).Value = "Not Found in the Folder :   " & sDir

      End If

    Next
Application.Cursor = xlDefault
Application.StatusBar = False

End Sub






This will search for files in folder and sub folders. but i need to search string
4

1 に答える 1

1

これがファイルを調べる方法です...検索したいすべてのファイルに追加するだけです

Dim filenum, targetfile, Line
filenum = FreeFile
targetfile = "C:\Mytextfile.txt"
Open targetfile For Input As filenum
Do While Not EOF(filenum)
    Input #filenum, Line
    'if InStr(1, Line, yourSearchString) then 'check if your string is in this line
Loop
Close filenum
于 2013-10-16T09:21:57.467 に答える