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

• #14827 lappy őstag

  Új Válasz 2012-09-06 07:18:15 #14827

  Ú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

  Szia Delila_1!
  Ebben tudnál nekem segíteni!
  Az alábbi macrót kellene 2007 ben használnom, de nem vagyok toppon a macróban hogy hogyan tudom átalakítani.
  A cél az hogy egy gombot megnyomva könyvtárból lehessen kiválasztani egy .xls kiterjesztésű fájlt és azt betölti majd a munkalapra.!
  Ez a macro viszont csak 2003 ban megy az Application.FileSearch miatt.

  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