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

• #14831 Delila_1 veterán lappy #14827

  Új Válasz 2012-09-06 12:29:06 #14831

  Ú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

  

  Delila_1

  veterán

  válasz lappy #14827 üzenetére

  A fájlok nevét az aktuális lap A oszlopába vittem fel, innen veszi a FileLista névre hallgató ListBox az adatokat. A kigyűjtést a CommandButton1 gombra bíztam.

  Private Sub CommandButton1_Click()
  Const utvonal = "E:\Eadat\" 'Írd át az útvonalat!
  Dim FN As String, sor%
  
  ChDir utvonal
  FN = Dir(utvonal & "*.xls", vbNormal)
  sor% = 1
  Do
  If FN <> "." And FN <> ".." Then
  Cells(sor%, "A") = FN
  sor% = sor% + 1
  End If
  FN = Dir()
  Loop Until FN = ""
  
  Set Rng = Range("A1")
  Set Rng = Range(Rng, Rng.End(xlDown))
  Me.FileLista.List = Rng.Value
  FileLista.SetFocus
  End Sub

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