SQL træk i Excel via VBA?

Hej Henrik,

Det første du skal gøre er at sætte en reference til Microsofts ActiveX Data Objects (V 2.0 eller mere)

Dernæst skal du på arket skrive følgende kode:

Sub GetNumber()

dim con as Connection
dim rs as recordset

set con=new connection

con.open \"ODBC;DSN=C5\"
set rs=con.execute(\"SELECT SUM(antal) FROM Table\")

if not rs.eof then
  range(\"ARK1!A1\") = rs(0)
end if

set rs=nothing
set con=nothing

End sub

Såfremt du har nogle spørgsmål, så kan du maile mig på martin@livephoto.adsl.dk

Upps, jeg læser lige mit svar igennem og ser at det kan misforstås, hvis man ikke er vant til at arbejde i VBA.
Med linjen \"...på arket skrive...\" mener jeg at du skal vælge dit ark1-kodemodul inde i VBA.

Håber ikke det er alt for uklart.

/Xelor