Új hozzászólás Aktív témák

• vilag tag

  #2126

  #2125 martonx

  2013-06-25 13:37:59

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  #2125 martonx

  #2125 martonx

  Ez esetben meg tudod úgy oldalni, hogy a folderben az összes filenevet lekéred.
  Majd for-al végigjárod őket, és megnézed, hogy valamelyik megfelel-e annak a részletnek, amit meg szeretnél nyitni.
  Az első, amelyik megfelel, azt megnyitod.

  Egy ilyet találtam:

  Set fs = Application.FileSearch
  With fs
  .LookIn = "v:\Szamlatervek"
  .Filename = "*000-2*.xls"
  If .Execute > 0 Then
  MsgBox "There were " & .FoundFiles.Count & _
  " file(s) found."
  For i = 1 To .FoundFiles.Count
  MsgBox .FoundFiles(i)
  Next i
  Else
  MsgBox "There were no files found."
  End If
  End With

  Szerintem némi átalakítással még használható is lesz.

Új hozzászólás Aktív témák