Saygıdeğer Forum Üyeleri,
Excel üzerinden yine excel dosyalarında bazı sql komutlarını kullanabilmek konusunda birkaç çalışma yapma ihtiyacım doğdu. Doğal olarak ilk başvuru kaynağı olarak excel.web.tr ’nin forumunda aramalarıma başladım ve pekçok da örnek buldum ancak aldığın hatalar nedeniyle ilerleme kaydedemedim.
Örneğin Sayın Orion1’in http://www.excel.web.tr/f48/kapaly-dosya-kopyalama-t129540.html adresinde cevaben verdiği aşağıdaki kodda ;
Sub kapali59()
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
conn.Open ("provider=microsoft.jet.oledb.4.0;data source=" & _
ThisWorkbook.Path & "\A.xls;extended properties=""excel 8.0;imex=1;hdr=no"";")
rs.Open "select F1,F2,F3,F4,F8,F11 from [Sayfa1$E3:O65536] where F1=" & _
Range("A2").Value & ";", conn, 1, 1
Application.ScreenUpdating = False
Range("A4:F65536").ClearContents
If rs.RecordCount > 0 Then Range("A4").CopyFromRecordset rs
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub
“ Runtime Error ‘3706’ ” hatası almaktayken,
Sayın Zeki Gürsoy’un http://www.excel.web.tr/f48/fazla-olan-veriyi-bul-not-et-sutun-icinde-t130016.html adresinde aşağıdaki kodla verdiği cevapta;
Sub test()
cn = "driver={microsoft excel driver (*.xls)};dbq=" & ThisWorkbook.FullName
Sql = "select top 1 f1, count(f1) as x from [sayfa1$f4:f11111] group by f1 order by count(f1) desc"
Set rs = CreateObject("adodb.recordset")
rs.Open Sql, cn
[j1] = rs(0)
rs.Close
Set rs = Nothing
End Sub
ise “ Runtime Error 2147467259(8004005)” hataları almaktayım.
Referanslardan sırayla “ Microsoft ActiveX Data Objects 2.8” hem de “ Microsoft ActiveX Data Objects 6.1” yüklememe rağmen sorunu gideremedim. Konuyla ilgisi olan arkadaşlardan ya çözüme yönelik bilgilerini paylaşmalarını ya da bilgi sağlayabileceğim bir web sitesine yönlendirmeleri konusunda yardımlarını rica etmekteyim. Şu anda bir thin client üzerinde excel 2010 kullanmaktayım.
Saygılarımla,
Excel üzerinden yine excel dosyalarında bazı sql komutlarını kullanabilmek konusunda birkaç çalışma yapma ihtiyacım doğdu. Doğal olarak ilk başvuru kaynağı olarak excel.web.tr ’nin forumunda aramalarıma başladım ve pekçok da örnek buldum ancak aldığın hatalar nedeniyle ilerleme kaydedemedim.
Örneğin Sayın Orion1’in http://www.excel.web.tr/f48/kapaly-dosya-kopyalama-t129540.html adresinde cevaben verdiği aşağıdaki kodda ;
Sub kapali59()
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
conn.Open ("provider=microsoft.jet.oledb.4.0;data source=" & _
ThisWorkbook.Path & "\A.xls;extended properties=""excel 8.0;imex=1;hdr=no"";")
rs.Open "select F1,F2,F3,F4,F8,F11 from [Sayfa1$E3:O65536] where F1=" & _
Range("A2").Value & ";", conn, 1, 1
Application.ScreenUpdating = False
Range("A4:F65536").ClearContents
If rs.RecordCount > 0 Then Range("A4").CopyFromRecordset rs
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub
“ Runtime Error ‘3706’ ” hatası almaktayken,
Sayın Zeki Gürsoy’un http://www.excel.web.tr/f48/fazla-olan-veriyi-bul-not-et-sutun-icinde-t130016.html adresinde aşağıdaki kodla verdiği cevapta;
Sub test()
cn = "driver={microsoft excel driver (*.xls)};dbq=" & ThisWorkbook.FullName
Sql = "select top 1 f1, count(f1) as x from [sayfa1$f4:f11111] group by f1 order by count(f1) desc"
Set rs = CreateObject("adodb.recordset")
rs.Open Sql, cn
[j1] = rs(0)
rs.Close
Set rs = Nothing
End Sub
ise “ Runtime Error 2147467259(8004005)” hataları almaktayım.
Referanslardan sırayla “ Microsoft ActiveX Data Objects 2.8” hem de “ Microsoft ActiveX Data Objects 6.1” yüklememe rağmen sorunu gideremedim. Konuyla ilgisi olan arkadaşlardan ya çözüme yönelik bilgilerini paylaşmalarını ya da bilgi sağlayabileceğim bir web sitesine yönlendirmeleri konusunda yardımlarını rica etmekteyim. Şu anda bir thin client üzerinde excel 2010 kullanmaktayım.
Saygılarımla,