Import fra Acces DB med dynamisk placering på disk

Dette er ikke svaret på dit spørgsmål, men Access kan jo også vise grafer og rapporter, så hvad er grunden til, at du bruger Excel til dette?

Jeg har valgt at gøre det i Excel fordi jeg viser nogle grafer, som jeg ikke har kunnet få vist i Access. Er Access i stand til at vise nøjagtig de samme grafer??

Det kan jeg ikkemsige, da jeg ikke ved hvad du vil vise. Men prøv i Access at lave en forespørgsel, og Rapport > Ny og følg guiden Diagram

y = Environ("programfiles")
er stien, feks "C:\programmer"

Kabbak: jeg forstår ikke helt hvordan jeg skal bruge dit forslag. Jeg har prøvet at indsætte dit bud i min OLEDB forespørgsel på forskellige måder, men kan stadig ikke få det til at virke. Kan du være lidt mere præcis med hvad jeg skal gøre??

Her ser du indholdet af ”forbindelse”, kopieret fra formularen ”Rediger OLE DB forespørgsel”, som jeg får frem ved at vælge ”rediger forespørgsel” i Excel:

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Programmer\Proficon\Profilyze.mdb;Mode=ReadWrite;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Anders

Jeg troede at det var programmeret i et modul i Excel.

Så skulle din sti se sådan ud
Environ("programfiles") &"\Proficon\Profilyze.mdb"

Hvordan man retter i en OLEDB forespørgsel , ved jeg ikke.


Jeg laver det på denne måde

Sub Makro3()

'
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access-database;DBQ=C:\Documents and Settings\***\Data\div excel\db1.mdb;DefaultDir=" & Environ("programfiles") &"\hba\Data\d" _
        ), Array("iv excel;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;") _
        ), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT Forespørgsel1.dato, Forespørgsel1.måned, Forespørgsel1.ÅrUge" & Chr(13) & "" & Chr(10) & "FROM `" & Environ("programfiles") &"\***\Data\div excel\db1`.Forespørgsel1 Forespørgsel1" & Chr(13) & "" & Chr(10) & "ORDER BY Forespørgsel1.dato" _
        )
        .Name = "Forespørgsel fra MS Access-database"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Nå der smuttede noget:

Sub Makro3()

'
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access-database;DBQ=" & Environ("programfiles") & "\Data\div excel\db1.mdb;DefaultDir=" & Environ("programfiles") & "\Data\d" _
        ), Array("iv excel;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;") _
        ), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT Forespørgsel1.dato, Forespørgsel1.måned, Forespørgsel1.ÅrUge" & Chr(13) & "" & Chr(10) & "FROM `" & Environ("programfiles") & "\Data\div excel\db1`.Forespørgsel1 Forespørgsel1" & Chr(13) & "" & Chr(10) & "ORDER BY Forespørgsel1.dato" _
        )
        .Name = "Forespørgsel fra MS Access-database"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Kabbak: Så har jeg løst problemet!!!
Jeg brugte dit modul, dog med modifikation af sidste linie til        .Refresh BackgroundQuery:=True - ellers var der fejlmeldinger.

Tak for hjælpen - det var lige det der skulle til!!!
Læg et svar, og jeg skal belønne dig!
Mvh Anders

Et svar ;-))

jeg var faktisk ikke sikker på, om det kunne bruges.