Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Excel a potom kliknite na kartu " Vývojár " . Kliknite na " makrá " zadajte " searchFile " pod " Názov makra " . Kliknite na " Vytvoriť " otvorte Visual Basic okno Microsoft
2
Zadajte nasledujúce pod " searchFile " deklarovať svoje názvy premenných : .
Dim FilePath As String
Dim currentFile As String Dim
xCntr As Integer
3
Zadajte nasledujúce definovať premenné , ktoré budete používať pre vyhľadávanie súborov Text :
FilePath = " C : . \\ * txt "
Edit " C : . \\ * txt " a zadajte inú cestu a príponu k hľadaniu iných súborov
4
typu . nasledovné sa dostať na prvý súbor nájdený v ceste :
currentFile = Dir ( FilePath )
5
Zadajte nasledujúce prechádzať všetky súbory a zobrazí sa okno so správou , keď " myfile.txt " súbor nájdený :
robiť , keď currentFile < > " "
xCntr = xCntr + 1
Ak currentFile = " file.txt " Tak
MsgBox "Nájdený súbor ! "
End If
currentFile = Dir
Loop
6
Kliknite na " Microsoft Excel " okno potom vyberte " makrá . " Kliknite na tlačidlo " searchFile " , potom vyberte " Spustiť " pre spustenie makra a nájsť súbor .