Macro

[musmiles]

Hierbij een andere vraag,
weet iemand hoe ik een bestandsnaam incl. directory als tekst in een cel kan invoeren?
dus bv. c:\werkmap\tekst.txt:thumb:

 

[Palmpje]

Nou, gewoon tekst intypen....

Maar dat was vast niet het antwoord op de echte vraag. Dus: wat wil je?

 

[Roncancio]

Via:

=CEL("bestandsnaam")

Krijg je het volledige bestandsnaam te zien van je bestand.

 

[musmiles]

Nee Dat bedoel ik niet.

Ik heb een macro opgenomen die een tekst bestand in excel invoerd, deze macro zoekt in een cel (zeg A1) naar een tekstbestandsnaam om deze in Excel te importeren.

Hiervoor moet in cel A1 een bestandsnaam en root staan.
c:\excel\tekst1.txt gaat nog wel maar om een lange naam in te voeren is wat lastig.

daarom ben ik opzoek naar een manier of een prog om een bestandsnaam te selecteren.

grts,

 

[jpvs]

Misschien is dit iets?

Select filenames
The macro below shows how you can let the user select a single filename:

Sub OpenOneFile()
Dim fn As Variant
fn = Application.GetOpenFilename("Excel-files,*.xls", _
1, "Select One File To Open", , False)
If TypeName(fn) = "Boolean" Then Exit Sub
' the user didn't select a file
Debug.Print "Selected file: " & fn
Workbooks.Open fn
End Sub

zie : http://www.erlandsendata.no/english/index.php?d=envbafoldersselectfilenames

Pierre