Import af data fra access

Er det sådan, at du i Excel bruger "Data", "Importer eksterne data" og "Importer data ..."?

Hvis det er, ku' du så ikke beskrive problemet derfra?

jo det er sådan,

men når man så importere data, så skal man jo vælge hvilken database man tager forespørgelsen fra, og den ligger så på et eller andet drev. hvis så man flytter databasen så passer den sti jo ikke, og det er det jeg gerne vil undgå

Jeg kender umiddelbart ikke nogen måde at lave en Access-forespørgsel dynamisk.

Dette skyldes at det kald der oprettes til Databasen indeholder en sti til din Access database, eks.

"SELECT * FROM `C:/mappe1/mappe2/access.mdb`.Tabel1 Tabel1 WHERE Tabel1.Field=Value"

Jeg kender kun en metode til at gøre det dynamisk og det er ved hjælp af VBA...
Det skal jeg gerne hjælpe dig med...

Så vidt jeg kan se, giver det ikke problemer, at xls-filen flyttes. Den opdaterer korrekt efter en flytning, når der ændres data (og dermed forespørgselsresultat) i db. Men VBA er sikkert vejen, hvis det skal være dynamisk.

Sti = Application.Path ' er altid stien til excelarket
strsql = "SELECT * FROM " & Sti & "/access.mdb`.Tabel1 Tabel1 WHERE Tabel1.Field=Value"

ok, jeg ved ikke noget om de "udtryk" i bruger (SQL)

Så hvis i kan oversætte det til en som ikke fatter noget, så ville det være fedt.
eller lave en "brugsanvisning"

Kan man i det hele taget lave SQL i excel??

Prøv at stille dig i det ark det drejer sig om kør denne makro.
Det gør ikke det hele dynamisk. Jeg tror ikke den mulighed eksisterer.
Men dette vil ændre stien i query til at være samme sti som regnearket.

Sub ChangePath()
Dim stDBase As String
Dim vaTemp
Dim stPath As String
Dim vaConn As Variant
    stPath = ActiveWorkbook.path
    vaConn = Split(ActiveSheet.QueryTables(1).Connection, ";")
    vaTemp = Split(vaConn(2), "\")
    stDBase = vaTemp(UBound(vaTemp))
    vaConn(2) = "DBQ=" & stPath & "\MyBase.mdb"
    vaConn(3) = "DefaultDir=" & stPath
    vaConn = Join(vaConn, ";")
    ActiveSheet.QueryTables(1).Connection = vaConn
End Sub

her er en sammen flikket en.

Public Sub HentData()
' Kræver reference til
' Microsoft ActiveX Data Object 2.7 library

  Dim rsData As ADODB.Recordset, strConnect As String, strSQL As String, Database As String
  Dim K As Integer, I As Long
    Database = ThisWorkbook.Path & "\Biler.mdb" ' Ændres til din DB, men behold \

    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Database & ";"
   
    ' Vælg data via sql, ret til din sql
      strSQL = "SELECT * FROM Biler"
        Set rsData = New ADODB.Recordset
    rsData.Open strSQL, strConnect, adOpenStatic, adLockOptimistic, adCmdText
 
    GetCust = Application.WorksheetFunction.Transpose(rsData.GetRows)

K = rsData.Fields.Count
For I = 0 To K - 1
  Cells(1, I + 1) = rsData.Fields.Item(I).Name
  Next
    I = UBound(GetCust)
Range(Cells(2, 1), Cells(I + 1, K)) = GetCust
    rsData.Close
    Set rsData = Nothing
End Sub

Hej Bak,

den du har lavet der. Laver den stien om til at være den samme som hvor regnearket ligger? for så er det nok det jeg skal bruge.

Og hvordan laver jeg så den macro?

-Kabbak
øhh det kan godt være, din virker men jeg ved som sagt ikke noget om hvordan eller hvor jeg sætter koden ind henne.

Ja, den laver stien til databasen om til at være den smme som som den regnearket ligger i.

Tryk Alt-F11 for at komme om til makroeditoren..
Under Insert vælger du Module
Kopier så bare min kode ind.
Kør så makroen/koden.

Ps hvis du gemmer makroen sammen med filen kan du altid flytte tingene rundt (sålænge de bliver sammen) og så bare køre makroen bagefter.

OK, det er lige det jeg skal bruge!!

Jeg kan først teste det på mandag, så er det ok at vente med at uddele point til jeg har fundet ud af om det virker hos mig??

Gælder macroen på alle ark?

Nej, men det kan den da komme til :-)

Sub ChangePath()
Dim stDBase As String
Dim vaTemp
Dim stNewPath As String
Dim vaConn As Variant
Dim ws As Worksheet
Dim qt As QueryTable
    stNewPath = ActiveWorkbook.path
    For Each ws In ActiveWorkbook.Worksheets
    On Error Resume Next
        For Each qt In ws.QueryTables
            vaConn = Split(qt.Connection, ";")
            vaTemp = Split(vaConn(2), "\")
            stDBase = vaTemp(UBound(vaTemp))
            vaConn(2) = "DBQ=" & stNewPath & "\" & stDBase
            vaConn(3) = "DefaultDir=" & stNewPath
            vaConn = Join(vaConn, ";")
            qt.Connection = vaConn
        Next
    On Error GoTo 0
    Next
End Sub

Hej Bak,

Den skriver : den installerbare ISAM kan ikke findes

hvad skal jeg så gøre?

Mvh.
Sonos

Den ændre ikke stien, og den kommer heller ikke med nogen fejlmelding.

prøv at fjerne linien
On Error resume next

og fortæl så hvor den fejler

der sker heller ikke noget

og den fejler ikke