Konvertering af Excel 2007 VBA til Excel 2010 64bit VBA
Her er koden der IKKE virker i Excel 2010 64 BitSub Opd_FMaaned()
'
Dim Sheetname As String
Dim bib As String
bib = Range("Opsætning!A21").Value ' Navnet på databasen
'
' Bruger det aktuelle Ark til dataene
'
Sheetname = ActiveSheet.name
'
'Spørger om Maaned
'
If Maan_Nummer = 0 Then Exit Sub ' Hvis der ikke er noget månedsnummer
'
' Åbner database
'
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bib & ";"
Set Rs = CreateObject("ADODB.Recordset")
'
' Søger i database, efter indtastede navn
'
StrSQL = "SELECT * From Fjernvarme WHERE ((Fjernvarme.Dato_afl) LIKE '" & Maan_Nummer & "');"
Rs.Open StrSQL, Cn, adOpenKeyset, adLockOptimistic, adCmdText
'
'
'Bruger records fra Energi.mdb tabel "Fjernvarme" til at indsætte på Excelark
'
Rs.MoveLast ' finder den sidste Aflæsning
With Rs
'
Range("B10") = .Fields("Dato_afl")
Range("C10") = .Fields("Aar")
Range("D10") = .Fields("Afl_Energ")
Range("E10") = .Fields("Afl_M3")
'
End With
'
'Afslutter og lukker pænt efter sig.
'
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
' Lukker databasen igen.
'
' On Error Resume Next
' Bliver på aktuelt ark
'
Set CurrentChart = Sheets(Sheetname)
Sheets(Sheetname).Select
Range("G10").Select
'
End Sub
Jeg mener det er noget med Access databasen, men burde Excel 2010 ikke være bagud kompatibel ?
