Importer tekst fil med macro

Hej
Du kan på www.makeiteasy downloade et eks. hvor det muligt at åbne standardfil dialogboksen fra windows, og på denne måde vælge den fil du vil importere til din tabel. eks kan hentes under menuen download/eks. Det hedder OpenFileDialog. Prøvt at kikke på det, det vil løse den første del af det.

Efterfølgende skal koden på din importmakro så tilrettes

sorry www.makeiteasy.dk

Dette er et eksempel på en eksportfunktion, men principperne er det samme for import

Function Vejstykke()
Dim Message, Title, Default, MyValue
Message = "Indtast sti"    ' Set prompt.
Title = "Eksport - Filstruktur"    ' Set title.
Default = "C:\"    ' Set default.

MyValue = InputBox(Message, Title, Default)


DoCmd.TransferText acExportDelim, "Eksportspecifikation", "Tabel", MyValue & "Data.txt", False, ""

    MsgBox ("Tekstfil generet, og placeret i " & MyValue)
   
End Function

Importen ser således ud :

Function Import()
Dim Message, Title, Default, MyValue
Message = "Filnavn"    ' Set prompt.
Title = "Import - Filer"    ' Set title.
Default = "fil.txt"    ' Set default.

MyValue = InputBox(Message, Title, Default)


DoCmd.TransferText acImportDelim, "Importspecifikation", "Tabel", "C:\" & MyValue, False, ""

    MsgBox ("Tekstfil importeret")
   
End Function

Jeg knokler.... tik tak

Hvis du anvender det eks. jeg henviser til må det være muligt at definere hele strengen på det filnavn der er returneret i tekstboksen den importmakro vha. at benytte VBA kode

Jensen>>> Hvad er Inportspecifikationen?

Hej Jensen, jeg tror sug du ledte mig ind på det rigtige. Her har du lidt at boltre dig med.

-Anders-, jeg nåede desværre aldrig at kikke på Hjemmesiden, måske næste gang.

FUCK FUCK forkert modtager.

Importspecifikation genereres 1. gang du opsætter din importdatafil, dvs. der hvor du angiver hvad din csv-fil indeholder (tekst/dato/tal ... ).

Denne opsætning kan du gemme med et importspecifikationsnavn

Øh Jensen, vent lige lidt......tænke tænke hvad gør jeg

:o) ingen problem, jeg opretter blot et spørgsmål med titlen Points til jensen363 med reff. til dette soørgsmål

No problem ... Anders kan oprette en nyt spørgsmål som referere til dette, og "videresende" point :o)

:o)

Så den klaret point venter på jensen :o)

Du indleder spørgsmålet med dette "få et browser vindue op hvor jeg kan vælge de filer jeg vil importerer?", dette kan lade sig gøre med det eks. jeg henviser til (bruger det selv).

Løsningen fra jensen browser ikke, men har en fast defineret værdi på den fil du vil importere, derfor henviste jeg til sitet, da det var min opfattelse at det skulle være dynamisk.

Hvis der senere opstår behov for en mere dynamisk løsning vil jeg varmt anbefale at tage kik på det eks. jeg henviser til. :o)

Jeg takker jeg beggge, for god ro og orden, og jeg kikker helt sikkert på siden ved anden lejlighed

Selv tak, og forsat god arbejdslyst

Og tak herfra