Import Access

Ja - det kan godt lade sig gøre via VBA

Hej Supertekst!
Er lige overgået fra LotusSmartsuite hvor database (makroprogrammering) er noget enklere end i Access - men det kommer jo nok med tiden...
Er det muligt, at du kan sende noget makro/vba stump. Går ud fra, at det er både i Access og Excel (hvor jeg skal gøre kaldet) hvor der skal programmeres.
Mvh. Lars

Ups...det tidl. til Supertekst kom vist ind som et svar

Har forsøgt, at konsolidere dataarkene i Excel men har problemer med mængden af data (excel 2007)og ressourcerne "Excel kan ikke udføre opgaven med de tilgængelige ressourcer...."

Jeg finder et eksempel med Excel som platform, der "trækker" på en Access DB.

Mit store problem er med Access (Åbne databasen, slette data, importere nye og lukke ned igen). Selve "trækket" i Access via Excel tror jeg jeg har styr på (Udl-fil, Sql m.m.)
Mvh Lars

Hvis du sender en mail - så returnerer jeg et eksempel, der tidligere er udarbejdet til et Eksperten.

lk@kr.dk

Hmmmm.. smart metode til opslag i databasen - men løste ikke mit problem omkring Access, hvor jeg efterlyste en metode/makro/vba der kan:
*  Åbne en bestemt Accessdatabase
*  Slette indhold af data i databasen
*  Importere nye data ind i Accesbasen fra navngivne områder i forskellige excelfiler
*  Og derefter lukke ned igen.

Derefter kan man så lave opslag i Databasen i Excel allá den metode som jeg har fået fremsendt.

Mvh Lars

Super "Supertekst"!

Det var straks bedre - nu har jeg noget at arbejde ud fra.....Tusinde tak.

Smid lige et svar så du kan høste point.

Mvh Lars

Public dXLS
Sub clearTabel()
    Tools_DB.clearTabel
   
    afslut "Tabel slettet"
End Sub
Sub tabelEksport()
    Tools_DB.findSti

    Set dXLS = CreateObject("Excel.Application")
   
    With dXLS
        .Workbooks.Open Tools_DB.xSti + "budget_1.xls"
       
        For Række = 3 To 65000
            If .Cells(Række, 1) <> "" Then
                Tools_DB.opdaterTabel Række
            Else
                Exit For
            End If
        Next Række
       
        .Quit
    End With
   
    Set dXLS = Nothing
   
    afslut "Opdatering afsluttet"
End Sub
Private Sub afslut(tekst)
    MsgBox (tekst)
End Sub

'======Kode i modul ===========
Rem Database-def.
Public db As database, tbl_budget

Public xSti
Public Sub findSti()
    xSti = ActiveWorkbook.Path
    If Right(xSti, 1) <> "\" Then
        xSti = xSti + "\"
    End If
End Sub
Rem Database - rutiner
Rem ==================
Public Sub LukDb()
    On Error Resume Next
   
    tbl_budget.Close
    db.Close
End Sub
Public Sub åbnDatabase()
    findSti
    Set db = OpenDatabase(xSti + "budget.mdb")
End Sub
Public Sub åbnBudgetTabel()
    åbnDatabase
    Set tbl_budget = db.OpenRecordset("budget")
End Sub
Public Sub clearTabel()
    åbnBudgetTabel
   
    With tbl_budget
        antalposter = .RecordCount
       
        For f = 1 To antalposter
            .Delete
            .MoveNext
        Next f
    End With
   
    LukDb
End Sub
Public Sub opdaterTabel(Række)
Dim antalFelter

    åbnBudgetTabel
    antalFelter = db.TableDefs("budget").Fields.Count
   
    With tbl_budget
        .AddNew
        For f = 1 To antalFelter
            .Fields(f - 1) = Ark1.dXLS.Sheets(1).Cells(Række, f)
        Next f
        .Update
    End With
   
    LukDb
End Sub