Convert 2003 Macro To 2007

[cyildirim]

Sub totals()
Dim cn As Object, rs As Object

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};Dbq=" & _
    ThisWorkbook.FullName
    
Set rs = cn.Execute( _
"select distinct isim, sum(başvuru), sum(başarı) " & _
"from [Sayfa1$] " & _
"group by isim")

Sheets("zeki").[a2].CopyFromRecordset rs

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

Sheets("zeki").Activate
End Sub

is it possible to convert this macro to excel2007 .?

[royUK]

Have you tried in Excel 2007?

[cyildirim]

yes, if you save as 2003 format it works, but i have column problem (not enough). i haveto save it as 2007 workbook format.

[Andy Pope]

So after you save the workbook as .xlsm format does the code not work?

We need more detail.

[royUK]

So you are saying that you need more columns than Excel 2003 provides?

[cyildirim]

i cant use it with xlsm format. and i need to convert it to 2007.

im sorry i need more lines than 2003 provides

[Andy Pope]

In order to have code in a 2007 workbook you need to save it with the xlsm format. If you try to save as .xlsx the code will be removed.