Excel og ODBC

Du optager en macro med din refresh data.

Derefter kan du gå ind i vb editoren og tilføje f.eks:
    Range("A1").Value = Now()

Så får du sat aktuelt tidspunkt ind på den plads du vælger.
Når der skal laves ny refresh skal makroen køres.

Ok men så er problemet så at køre macroen hver gang arket bliver opdateret med Refresh

Nej nej, du kører makroen som indeholder både refresh og datoopdatering.
Makroen kan du så lægge ind i en kommandoknap.

Det var OK hvis ikke lige jeg skulle installere denne macro kanp på alle PCere i huset, så vidt jeg ved kommer disse kanpper ikke med i et ark.

Du skal naturligvis lægge kommandoknappen ind i det ark hvor du skal bruge den.
Så kommer den med når du distribuerer arket.

OK, men jeg ville nu stadig gerne have haft det ind via den "normale" refresh. Men du får points.

Du kan få det ind i den normale refresh, men det kræver lidt ekstra.

Du skal indsætte et Classmodule.
i det indsætter du du følgende:

Public WithEvents qtQueryTable As QueryTable

Private Sub qtQueryTable_AfterRefresh(ByVal Success As Boolean)
Range("k1") = Date & "  -  " & Time
End Sub

Sub InitQueryEvent(QT As Object)
    Set qtQueryTable = QT
End Sub

opret nu et normalt kodemodul og indsæt følgende:

Dim clsQueryTable As New Class1

Sub RunInitQTEvent()
    clsQueryTable.InitQueryEvent _
        QT:=ActiveSheet.QueryTables(1)
End Sub

Kør det sidste modul.
hver gang du refresh'er nu skrives dato og klokkeslet i K1

Jeg får fejlen  "Subscript Out of range" på den nederste

Hedder dit klassemodul Class1  ?

Ja !

Ok, det virker fint her.
Du har husket at få linien
Public WithEvents qtQueryTable As QueryTable
med over i klassemodulet?
og Dim clsQueryTable As New Class1  med i det alm. modul?





Så gå lige om i klassemodulet og forsøg at køre Sub InitQueryEvent(QT As Object)

Har du en mailadresse så kan du få et eksempel

(ved godt det er for sent, men hvis der er andre der har brug for det samme...)

Lav en ny MSQuery forespørgsel i samme regneark med følgende sætning:
select to_char(sysdate, 'DD-MM-RRRR HH24:MI:SS') LastUpdate from sys.dual

Sæt den ind et eller andet centralt sted og højreklik på den dato der fremkommer; vælg Egenskaber for Dataområde og fjern hakket i Medtag feltnavne. Lav evt en bedre overskrift, f.eks. Senest opdateret

Denne forespørgsel bliver opdateret sammem med de andre i regnearket og skulle derfor give det ønskede resultat

// Codpiece

Hov, lille fejl:

  select to_char(sysdate, 'DD-MM-RRRR HH24:MI:SS') from sys.dual

(LastUpdate fjernes, navngivning af kolonner virker ikke helt på samme måde som i Oracle)

// Codpiece