FileName scheiden van PathName

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
Goedenavond allen,

Zit weer met een vraagje.
Opzet is om in een Excel-file met een FileDialog een Word-file naam binnen te halen en vervolgens Word te openen met het file-naam.

Haal met een FileDialog het Path op met het FileName.
Hoe kan ik nu op een mooie korte manier het File-Name scheiden van het Path-Name?


Code: 
Function FileDialog() As String

  With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "alle xls-bestanden", "*.xls", 1
    .AllowMultiSelect = True
    If .Show = -1 Then
      FileDialog = .SelectedItems(1)
    Else
      FileDialog = ""
    End If
  End With
  
  filenaam = FileDialog
  
    MsgBox (filenaam)

End Function

Vr. Gr.

Dutch
 

Bijlagen

  • FileDialoogVensterFileMenu.xls
    36 KB · Weergaven: 25
Lekker verwarrend allemaal.

Code: 
MsgBox Split(myfile, "\")(UBound(Split(myfile, "\")))
 
Gebruik geen variabelen die al vergeven zijn door Vba zelf.

Je wilt het bestand openen, dan heb je het hele pad nodig.



Code: 
Function FileDialog() As String


  With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "alle doc-bestanden", "*.doc", 1
    .AllowMultiSelect = True
       If .Show = -1 Then ThisWorkbook.FollowHyperlink .SelectedItems(1)
    End With
 End Function
 
Zal lastig zijn Wordbestanden te vinden als je naar Excelbestanden zoekt.
Je vergist je:

Code: 
Function FileDialog() As String
  With Application.FileDialog(1)
    .initialfilename="G:\OF\*.doc*"
    If .Show = -1 Then
       with getobject(.SelectedItems(1))
          ' doe wat in Word
       end with
    End If
  End With
End Function
 
Mensen bedankt allemaal weer. Het is die van VenA geworden :)

Deze sluit het beste aan op mijn vraag.

Code: 
Function FileDialog() As String
  Dim Filenaam As String

  With Application.FileDialog(msoFileDialogOpen)
   .Filters.Clear
    .Filters.Add "alle doc-bestanden", "*.doc", 1
    .AllowMultiSelect = True
    If .Show = -1 Then
      FileDialog = .SelectedItems(1)
    Else
      FileDialog = ""
    End If
  End With
  
  Filenaam = Split(FileDialog, "\")(UBound(Split(FileDialog, "\")))
  MsgBox (Filenaam)
End Function

Many thanks en fijne avond nog

Vr. Gr.

Dutch
 
@Dutch

Probeer eens de suggesties allemaal en goed te lezen.
Als helpers (HSV, V&A, snb) de indruk krijgen dat je hun bijdragen liever negeert dan gebruikt zul je vervolgens door helpers genegeerd worden.
 
Hoi VenA,

Welk nut heeft de variabele Filenaam? Wel heb een Excel Program van waaruit ik bepaalde dingen bestier.

Maar tevens kunnen er ook dingen in Word gemaakt worden voor overzichten e.d.

Maak maandelijks (eind v/d maand) een update voor alle spelers.

Deze Update is in Word gemaakt. Heb al een Button waarmee ik een Basis file Update opent en kan aanpassen voor de huidige maand.

Als extra heb ik een Button waarmee ik een oude Updates kan terugzien. En daarvoor had ik deze optie nodig.
Zelfs het Path is variabel.

Vr. Gr.

Dutch
 
Het gaat niet over mij, want je negeert alle helpers.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan