excel export fra access hvor excel er exporteret med trackchange

Lidet elegant løsning i mine ører.

Hvad er senariet for beslutte synkronisering af access tabelindhold med ændringer i excel filer? visuel backtrack inspektion?
Man kunne gemme pathnames og have en skjult formular til at køre det automatisk styret af ændringer i last modification time

docmd.TransferSpreadsheet til import

kan du uddybe dette lidt mere ?

Først vil jeg lige have lov at påpege at det er en mega ineffektiv opdaterings metode , at en mindre ændring, sker ved at slette alt og derefter genoprette - som der er nødvendigt når excel bruges som datafangst metode. Anyway:

Følgene er blot et eksempel på problematikken

Vi skal kunne gemme file lastmodified tidspunkt
givet tabel: 'ExcelFileAtt' med netop 1 post og feltindhold

lastModf    <intet til start>
fRef    c:\test.xsl   
tblN    E

Bestem selv hvad der skal stå i fRef og tblN, men tabellen skal findes (her E)

For at få adgang til global data, uden initialisering - dette skal i et standardmodul:


Const fTbl = "ExcelFileAtt"

Function exfileN(): exfileN = DLookup("fRef", fTbl): End Function
Function exTblN(): exTblN = DLookup("tblN", fTbl): End Function
Function exfileAttTblN(): exfileAttTblN = fTbl: End Function
Function exFLastModf()
    exFLastModf = CreateObject("Scripting.FileSystemObject").GetFile(exfileN()).dateLastModified
End Function

Function exLogOfLastModified(): exLogOfLastModified = DLookup("lastModF", fTbl): End Function

Sub exStartLog(): DoCmd.OpenForm "PoolEFC", , , , , acHidden: End Sub
Sub exStopLog(): DoCmd.Close acForm, "PoolEFC": End Sub


--------

Hændelsen til knappen hvis aktivering gemmer filen i et excel ark:

Private Sub gemExcel_Click()
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, exTblN(), exfileN()
    CurrentDb.Execute "update " & exfileAttTblN() & " set lastModf='" & exFLastModf() & "'"
End Sub

------------

Ny formular: PoolEFC  - lav den

egenskabsark hændelser->timerinterval=5000

der testes med 5 sekunds opdatering

Private Sub Form_Timer()
    Dim tmpEfile
   
    tmpEfile = Split(exfileN(), ".")(0) & ".tmp.xls"
    If Len(Dir(exfileN())) Then
        If exFLastModf() <> exLogOfLastModified() Then
            ' HACK prevent file access  denied
            tmpEfile = Split(exfileN(), ".")(0) & ".tmp.xls"
            Shell "cmd /c copy " & exfileN() & " " & tmpEfile
            CurrentDb.Execute "delete from " & exTblN()
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, exTblN(), tmpEfile, True
    End If: End If
End Sub

------------------

Først sikres det at der er en excelfil ved tryk på gem knappen

Herefter startes 'logning til tabel' ved kald af exStartLog()

Prøv at åbne excelfil og ændre - gemme
Efter højest timerinterval/1000 sekunder er ændringen skrevet til tabel

-----------------

Til slut: der er et graverende hack - kopi til temp fil for at få adgang til en excel fil der stadig kan være åben af excel (en anden bruger) - det bør laves mere elegant med testning om det er tilfælde og venten på at excel lukker filen.

rettelse:
Private Sub Form_Timer()
    Dim tmpEfile
 
    tmpEfile = Split(exfileN(), ".")(0) & ".tmp.xls"
    If Len(Dir(exfileN())) Then
        If exFLastModf() <> exLogOfLastModified() Then
            ' HACK prevent file access  denied
            tmpEfile = Split(exfileN(), ".")(0) & ".tmp.xls"
            Shell "cmd /c copy " & exfileN() & " " & tmpEfile
            CurrentDb.Execute "delete from " & exTblN()
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, exTblN(), tmpEfile, True
            CurrentDb.Execute "update " & exfileAttTblN() & " set lastModf='" & exFLastModf() & "'"
    End If: End If
End Sub

og endnu en rettelse:

Private Sub Form_Timer()
    Dim tmpEfile
   
    tmpEfile = Split(exfileN(), ".")(0) & ".tmp.xls"
    If Len(Dir(exfileN())) Then
        If StrComp(exLogOfLastModified(), exFLastModf()) Then
            ' prevent file access  denied
            Debug.Print "saving with time:" & exFLastModf
            tmpEfile = Split(exfileN(), ".")(0) & ".tmp.xls"
            Shell "cmd /c copy " & exfileN() & " " & tmpEfile
            CurrentDb.Execute "delete from " & exTblN()
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, exTblN(), tmpEfile, True
            CurrentDb.Execute "update " & exfileAttTblN() & " set lastModf='" & exFLastModf() & "'"
    End If: End If
End Sub

Sidste rettelse:
Private Sub Form_Timer()
    If Len(Dir(exfileN)) Then
        If StrComp(exLogOfLastModified, exFLastModf) <> 0 And availExFile Then
            Debug.Print "Last modf time:" & exFLastModf
            CurrentDb.Execute "delete from " & exTblN
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, exTblN, exfileN, True
            CurrentDb.Execute "update " & exfileAttTblN & " set lastModf='" & exFLastModf & "'"
    End If: End If
End Sub

Function availExFile()
    On Error GoTo fExit
    Dim hndl
    hndl = FreeFile()
    Open exfileN For Binary Access Read Write Lock Read Write As hndl
    Close hndl
    availExFile = True
fExit:
    err.Clear
End Function

Når man excelere i at benytte programel til at slette data, skal man edermame være sikker på at man har et perfekt backupsystem, medmindre data er stort set værdiløse.

sifuentes: påpegning sikre konkrete implementations issues, er sikkert velkomne.
Har du prøvet mit eksempel?

svar gives venligst hvis point skal tildeles

har aldrig fået det testet, og opgaven er løst via andre rutiner nu :-(

smid et svar så vi kan få dette lukket...

hvis nogen vil have point er det nu :-)

har været syg i længere tid derfor har der ikke været aktivitet fra min side. Er nu klar igen så venligst blot besvar så giver jeg point, da sagen ikke længere er aktuel
sorry...