Når man impoter txt filer

if you are usin th eimport wizard you should be able to save it as an import specification then use this in your vba code next tim eyu import

you can use
docmd.TransferText to import using an importspec

press the advanced button when you use the import wizard

når jeg så har gemt min importspec hvordan kalder jeg den så frem igen
via en vba kode?

den skal spørge efter fil navn da det er et nyt navn hver gang

Example
The following example exports the data from the Microsoft Access table External Report to the delimited text file April.doc by using the specification Standard Output:

DoCmd.TransferText acExportDelim, "Standard Output", _
    "External Report", "C:\Txtfiles\April.doc"


If your filename changes then you will need som eway of entering it, maybe in a form wit a text field, then a button to run the code.

The example is for exporting, but its very similar to import

Hvad er der galt her
DoCmd.TransferText acImportDelim, "Højspænding"

import specification name is Højspænding

Du skal lave noget kode der løber filnavnene igennem og for hvert filnavn gør:

For i = 1 to antalfiler
    filnavn = filnavn(i)
    DoCmd.TransferText acImportDelim, "Højspænding", , filnavn
Next


mvh Flemming

14/12-2006 13:38:43

what error do you get?

til flemming
den melder fejl ved filnavn = filnavn(i)

til terry
den skriver erroe 2495
den mangler argumentet tablnavn
men det er jo import specification jeg vil have den til
at køre

Just use the table which you have selected in the import specefication. This just allows you to use another table if necessary.

du bliver lige nød til at vise mig hvordan den skal se ud med
hvor der skal stå tabel navn og hvor der skal stå specification navn
dit Example

DoCmd.TransferText acImportDelim, "Standard Output", _
    "External Report", "C:\Txtfiles\April.doc"
og der skal jo vælges en ny fil hver gang

Hej

Det er formentlig fordi der mangler et tabelnavn. Prøv at vise os den kode du har lavet. Jeg har ikke testet nedenstående men det er så vidt jeg kan se noget i den retning du har brug for.

sti = "C:\\"
filnavne = "Fil1 fil2 fil3"
antalfiler = 3
FilNavnArray = Split(filnavne, " ")
For i = 1 To antalfiler
    filnavn = filnavn(i)
    DoCmd.TransferText acImportDelim, "Højspænding", Tabelnavn, sti & filnavn
Next i

Tror ikke jeg forstå hvis man bruger importer i access og går guiden tekstimport igennem og man så laver en gem som så kan man kalde den frem via en vba kode hvis jeg har forstået det rigtig men hvordan
skal den kode se ud er ikke ret god til at lave vba koder!!

har prøvet din her under det virker ikke


Private Sub Kommandoknap12_Click()
On Error GoTo Err_Kommandoknap12_Click

  sti = "C:\\"
filnavne = "Fil1 fil2 fil3"
antalfiler = 3
FilNavnArray = Split(filnavne, " ")
For i = 1 To antalfiler
    filnavn = filnavn(i)
    DoCmd.TransferText acImportDelim, "Højspænding", Højspænding reinhaus, F:\lab\HN\Rein-txt\BG380210.txt

Exit_Kommandoknap12_Click:
    Exit Sub

Err_Kommandoknap12_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap10_Click
   
End Sub
End Sub

Arent we going a little off track? Ther ewas no mention of havin to loop through a list of files only how you could automate the ame functions when importing ONE file.

If we keep to this and get that working then we can go on to how we can loop trhough a number of files (in another question).

You need to put the file name in ""
DoCmd.TransferText acImportDelim, "Højspænding", Højspænding reinhaus, "F:\lab\HN\Rein-txt\BG380210.txt"

Tak hvordan så med at spørge efter en ny fil hver gang man bruger

laver lige et nyt spørgsmål