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

• #32170 Delila_1 veterán bteebi #32169

  Új Válasz 2016-07-24 14:30:35 #32170

  Ú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 bteebi #32169 üzenetére

  Létrehozol egy userformot, ami egy listboxot tartalmaz, meg egy gombot.

  Modulba:
  Sub ListaFeltoltes()
Dim FN As String

FN = Dir("D:\Proba\lista_" & datum & "*.pdf")
Do While FN <> ""
UserForm1.ListBox1.AddItem FN
FN = Dir()
Loop
UserForm1.Show
End Sub

  Ez a makró feltölti a feltételeknek megfelelő fájlok nevével a listboxot, és indítja a formot.

  A gomb click eseményébe írhatod be, hogy mi legyen a listboxban kiválasztott 1 vagy több fájllal. Ha többet is ki akarsz választani, akkor a listbox MultiSelect tulajdonságát fmMultiSelectMulti-ra kell állítanod, az alapértelmezett fmMultiSelectSingle helyett.

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