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

• #14788 lappy őstag

  Új Válasz 2012-08-30 19:18:43 #14788

  Ú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

  Privát üzenet küldése

  

  lappy

  őstag

  Sziasztok!
  Az alábbi macrót kellene 2007 ben használnom, de nem vagyok toppon a macróban hogy hogyan tudom átalakítani.
  Private Sub UserForm_Initialize()
  
  
  Dim KERES As Object
  Dim FILEOK() As String
  
  Set KERES = Application.FileSearch
  KERES.LookIn = "C:\TRS\Munka"
  KERES.Filename = "*.xls"
  If KERES.Execute > 0 Then
  DARABSZAM = KERES.FoundFiles.Count
  ReDim FILEOK(DARABSZAM)
  For I = 1 To DARABSZAM
  FILEOK(I) = KERES.FoundFiles(I)
  Next I
  File_lista.List = FILEOK
  End If
  
  File_lista.SetFocus
  
  End Sub

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