locatie van bestand invoegen

[bartdeboer87]

Hallo
De laatste tijd ben ik bezig geweest om een bestand te koppelen
nu zou ik graag de locatie van een het bestand als tekst in een cel willen hebben doormiddel van de browser

Nu heb ik dit,

Sub f()
ScreenUpdating = False
Filename = Application
.GetOpenFilename
If Filename <> False Then ActiveSheet.Text.Insert(Filename).Range("I16").Select

En zou graag hebben, dat hij de niet alleen de filename neemt, maar de volledige locatie. en heb list in een cel,
weet iemand waar het fout gaat?

MVG

Bart de boer

 

[Demeter]

kijk eens naar de volgende code:

dim TempFilePath as string
TempFilePath = ActiveWorkbook.Path & "\"

deze geeft je huideige pad naar je file

 

[bartdeboer87]

reactie

Hiermee krijg ik de locatie van het huidige bestand
maar,


Ik zou graag willlen dat ik een bestand kan opzoeken in een explorer

Sub Invoegen()
FileToOpen = Application.GetOpenFilename _

en ipv van het bestand in te voegen. wil ik het volledige pad van het bestand in een cel plaatsen (bijvoorbeeld in cel: "C3" celwaarde: "c:/programma's/foto's/windows.jpg")

Nu zit ik hiermee te prutsen?
ActiveSheet.filepad.Insert(FileToOpen).C3.Select


end sub

weet iemand een oplossing

alvast bedankt.

mvg
Bart de Boer


(sorry van de late reactie.)

 

[Demeter]

Volg je niet helemaal.
Kan je een goede beschrijving geven wat je nu preices van plan bent?
stap voor stap graag.

 

[Warme bakkertje]

Bekijk deze eens

Mvg

Rudi

 

[bartdeboer87]

Bedankt

Dit is precies wat ik bedoel:thumb:

Vriendelijk bedankt!


Groeten Bart

 

[snb]

Of

Sub opzoeken()
  ActiveCell.Value = Application.GetOpenFilename
End Sub

 

[bartdeboer87]

locatie van map

Bovenstaand is goed, Nu een klein stukje verder in mijn formulier zou ik graag een opgezochte map (het path daarvan in een cel hebben : bijv C:\Documents and Settings\All Users\)
Ik heb van Rudi deze code ( voor een bestand)

Function GetFile() As String
'Adapted from Ozgrid by Rudi
Dim file As FileDialog, sItem As String
Set file = Application.FileDialog(msoFileDialogFilePicker)
With file
.Title = "Selecteer een Bestand"
.AllowMultiSelect = False
.InitialFileName = Application.DefaultFilePath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFile = sItem
Set file = Nothing
End Function
Sub opzoeken()
Range("H15").Select
ActiveCell.Value = GetFile()
End Sub

en van Snb
een simpele met dezelfde functie

ActiveCell.Value = Application.GetOpenFilename


is hiervan ook een code voor de map, om alleen het path van de map die ik selecteer.
als resultaat in een cel krijg?


mvg

Bart de Boer

 

[snb]

Sub tst()
  ActiveCell.Value = CreateObject("scripting.filesystemobject").GetParentFolderName(Application.GetOpenFilename)
End Sub

 

[bartdeboer87]

alleen werkend met bestanden bij de map

Goedemorgen,

Deze code geeft de bronmap van een bestand,
en kan niet de map zelf selecteren. zodat ik het path in een cel krijg.

ik neem aan dat het bijna dezelfde code is als bovenstaand (princiepe is goed) alleen dan voor een map, welke is dat?

Alvast wederom bedankt,:thumb:

mvg Bart de Boer

 

[Warme bakkertje]

De lange versie

Mvg

Rudi

 

[bartdeboer87]

Super

Werkt super!
Bedankt


mvg
Bart