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

• #52075 Delila_1 veterán föccer #52074

  Új Válasz 2024-01-19 11:24:23 #52075

  Ú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 föccer #52074 üzenetére

  Egy régebbi makró:

  Sub   Mappa_Valasztas()
   Dim FD, utvonal As String
   MsgBox "Válasszunk magunknak   útvonalat"
   Set FD = Application.FileDialog(4)  'mappa választás
   With FD 
    .AllowMultiSelect = False
    .Show
      If .SelectedItems.Count = 0 Then 
         MsgBox "Nem választottál   útvonalat, befejezzük.", vbInformation, "Értesítés"                         Exit Sub
      Else 
         utvonal = .SelectedItems(1) 
      End If
   End With
   MsgBox "A kiválasztott mappa: "   & utvonal     utvonal = utvonal & "\"   'jöhet a mentés, vagy megnyitás
End Sub

  Nem jó amit Fferi, vagy én írtunk?

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