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

• bteebi veterán

  2016-07-24 22:22:25 #32174

  Ú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

  

  bteebi

  veterán

  válasz Delila_1 üzenetére #32173

  Ezt is köszönöm!

  Végül összeállt minden, és jó is lett. Bemásolom ide a végső kódokat:

  Sub listakereso()
Dim datum As Long, file As Variant
datum = ActiveSheet.Range("C4")
file = Dir("D:\Proba\lista_" & datum & "*.pdf")
Do While (file <> "")
UserForm1.ListBox1.AddItem file
file = Dir()
Loop
If UserForm1.ListBox1.ListCount = 0 Then
MsgBox "Nem találom a listát!", vbExclamation
Exit Sub
End If
UserForm1.Show
End Sub

  Az OK gombhoz rendelve pedig:

  Private Sub ButtonOK_Click()
Dim sor As Integer
For sor = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(sor) = True Then
Shell CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe\") _
& " /A " & Chr(34) & "&zoom=95" & Chr(34) & " " & Chr(34) & "D:\Proba\" & ListBox1.List(sor) & Chr(34), vbNormalFocus
End If
Next sor
Unload Me
End Sub

  Lényeges elem, hogy bár a kiválasztást a ListBox1.Selected(sor) adja, a listaelem nevét viszont a ListBox1.List(sor) - időbe telt, amíg megtaláltam .

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