Avatar billede larsgrau Forsker
25. marts 2010 - 13:40 Der er 7 kommentarer og
1 løsning

import af fil med efter navn log

Hej

jeg sidder med et lille problem, jeg skal kunne importer en fil som eks. fil.log til en tabel, jeg kan godt få den til det hvis jeg renamer den til fil.txt, men jeg ville gerne at access til importe fil.log men det vil access ikke lige så snart den hedder log.

jeg har bruget denne code og den virker fint hvis fil hedder txt men ikke hvis den hedder log, hvad kan jeg gøre for at få access til det ?

Private Sub import_file_Click()

On Error GoTo Err_import_file

Dim stDocname As String

stDocname = GetOpenFile("", "Vælg en Log Fil")

DoCmd.TransferText acImportDelim, "import data", "ikke rettet data", stDocname, False, ""

import_file_exit:

Exit Sub

Err_import_file:

MsgBox Err.Description

Resume import_file_exit




End Sub
Avatar billede terry Ekspert
25. marts 2010 - 13:58 #1
I'd copy or rename fil.log to fil.txt and then import. Then after import you can either rename or delete
Avatar billede larsgrau Forsker
25. marts 2010 - 14:19 #2
Ja jeg kan godt, men det er ikke sikker brugen kan. derfor ville jeg gerne have at access kunne gøre det for mig.
Avatar billede terry Ekspert
25. marts 2010 - 14:47 #3
You do it using code so that the user doesnt notice it.

Example:
name "C:\data\fil.log" AS "C:\data\fil.txt"

import here....

name "C:\data\fil.txt" AS "C:\data\fil.log"
Avatar billede larsgrau Forsker
25. marts 2010 - 17:41 #4
Hej igen

i denne linie vælger jeg filer

stDocname = GetOpenFile("", "Vælg en Log Fil")

kan man få den til at rename den fil man vælger der?

måske sådan her

stDocname = GetOpenFile("", "Vælg en Log Fil")

name "stdocname" AS "import.log"

Import her ??
Avatar billede terry Ekspert
25. marts 2010 - 21:19 #5
I think I prefer to make a copy of the file and then delete it when imported. I'm copying it to "C:\TEMP\import.txt" but you could place it in a TEMP folder.



Private Sub import_file_Click()

On Error GoTo Err_import_file

Dim stDocname As String

stDocname = GetOpenFile("", "Vælg en Log Fil")

Filecopy stDocname, "C:\TEMP\import.txt"

DoCmd.TransferText acImportDelim, "import data", "ikke rettet data", "C:\TEMP\import.txt", False, ""

Kill "C:\TEMP\import.txt"

import_file_exit:

Exit Sub

Err_import_file:

MsgBox Err.Description

Resume import_file_exit


End Sub
Avatar billede terry Ekspert
26. marts 2010 - 12:20 #6
can you use this answer?
Avatar billede terry Ekspert
26. marts 2010 - 13:04 #7
Thanks, hope you got it working
Avatar billede larsgrau Forsker
14. april 2010 - 19:40 #8
jeps det virker

men jeg lavede det sådan her:

Private Sub import_file_Click()

On Error GoTo Err_import_file

Dim stDocname As String

stDocname = GetOpenFile("", "Vælg en Log Fil")

Name stDocname as "C:\TEMP\import.txt"

DoCmd.TransferText acImportDelim, "import data", "ikke rettet data", "C:\TEMP\import.txt", False, ""

Kill "C:\TEMP\import.txt"

import_file_exit:

Exit Sub

Err_import_file:

MsgBox Err.Description

Resume import_file_exit


End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester