db query

grunden til navnet i en celle, er at man kun må kunne søge i sin egen mappe efter filer med data. Det er til timeregistrering.

Denne kode viser Åbn dialogboksen for an mappe, hvis sti specificeres i A1.

Dim map As String
map = Range("a1").Value
ChDir map
Application.Dialogs(xlDialogOpen).Show

når man kører dette script åbner den i 'dokumenter'

Hvad skriver du i A1?

eksempelvis c:\

både med og uden "" virker det ikke ordentligt

Office XP

har fixet det. Skal bare ændre på startfilplacering i indstillinger.

Så langt så godt. Det skal nu kobles sammen med en ny databaseforespørgsel hvor man vælger filen der skal sættes ind i arket, hvorefter den selv klarer resten.

Ovenstående virker fint hos mig uden "".

vil det være muligt at få programmet til at checke om der er filer i den pågældende mappe? Og hvis der ikke er, skal den komme med

MsgBox "Du har ikke gemt nogle filer!", vbCritical

Denne del er nem :-)

Dim map As String
map = Range("a1").Value
a = Dir(map)
If a = "" Then
MsgBox "Du har ikke gemt nogen filer", vbCritical
else
ChDir map
Application.Dialogs(xlDialogOpen).Show
end if

Jeg arbejder stadig lidt med kun at få den til at vise csv filer.

nu ser den sådan ud, og nu kommer msgbox, ligemeget hvilken mappe den sættes til at åbne i:

Private Sub CommandButton5_Click()

If Range("D2").Value = "" Then
    MsgBox "Der er ikke angivet et navn!", vbCritical
    Exit Sub
    End If

Dim map As String

map = "c:\timeregistrering\databaser\" & Range("D3").Value

If Dir(map, vbDirectory) = "" Then MkDir map

a = Dir(map)
If a = "" Then
MsgBox "Du har ikke gemt nogen filer", vbCritical
Exit Sub
End If

ChDir map
Application.GetOpenFilename FileFilter:="Ufærdige skemaer (*.csv), *.csv", Title:="Vælg ufærdigt skema"

End Sub

Hvad er der, du forventer, der skal stå i D2 hhv D3?

I D2 Står brugerens navn, og i D3 står brugerens Initialer på baggrund af navnet. I mappen c:\timeregistrering\databaser\ ligger en mappe for hver bruger med initialerne som mappenavn

Prøv at rette til:

a = Dir(map & "\*.csv")

Men hvis der ligger en mappe med brugerens initialer er linien

If Dir(map, vbDirectory) = "" Then MkDir map

meningsløs. Den laver jo mappen. Er det ikke bedre at gre det på et tidspunkt, hvor du prøver at gemme noget i den?

Det er bare en sikring, hvis en eller anden nar sletter mappen.

a = Dir(map & "\*.csv")

virker.

Helt i orden. Vikede forslaget? Det virker i hvert fald hos mig.

Du svarede før jeg fik spurgt :-)

:)

Nu er jeg da nået et skridt videre. Nu skal den fil der vælges indsættes i regnearket ( i det samme ark), og har fundet ud af, at den eneste måde er at oprette en ny forespørgsel i data --> hent eksterne data --> opret ny forespørgsel.

Kan dette lade sig gøre at sætte sammen med ovenstående knap, eller bliver det uden for dit område? Jeg kan eventuelt sende dig filen, så du kan se hvad det hele går ud på, du har trods alt hjulpet med en del i det, uden at ane formålet.

Jeg vil gerne se nærmere på det, men det kanm først blive om en times tid eller to. Du kan evt sende din fil til jkr@lyngby.nu

Jeg har kigget på den, men kan ikke lige gennemskue det. Prøv evt. at indspille dette som en makro, og overfør så koden til din knap.

Alternativ skal du nok oprette dette som et helt nyt spørgsmål om automatisering af ODBC driveren.

En anden ide kunne være simpelthen at kopiere data tilbage til Excel i stedet for at importere dem.