Private Sub ListXML() Dim sFile As String Dim i As Long, kat As String i = 1 kat = „c:\batman\*.xml”
Dzień: 2010-05-11
Bez kategorii
Excel – listowanie plików w katalogu
by root • • 0 Comments
Private Sub ListXML() Dim sFile As String Dim i As Long i = 1 sFile = Dir(„c:\bat\*.bat”) '<=== change to suit Do While sFile <> „” Cells(i, „A”).Value = sFile On Error Resume Next sFile = Dir Debug.Print sFile On Error GoTo 0 i = i + 1 Loop End Sub