Sorgu için arama sonuçları: IMEX

...Ancak çözüm şu oldu ADO RecorSet'te ilk 8 veriye bakıldığından "Haluk Beye Teşekkürler" Başlıkları Metin yapıp HDR=No ; IMEX=1 yapınca tüm veriler metin olarak geliyor . ilgilendiğiniz için size de teşekkürler Feraz Arkadaşım.

...benmi bir hata yapıyorum? kapalı bir dosyadan içinde sayısal ve metinsel verileri olan 100 sütun 450 satırlık bir tablodan veri çekiyorum faka IMEX=1 yazmama rağmen sayıları metin olarak çekmiyor ne yapmamlazım? Data.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & D_Yolu &...

Haluk hocam aradığım buydu. Kod bitince en sonda hata veriyor. On error resume next vs... ayarlarım orayı.

Halit hocam kod doğru çalıştı :)

Orion1 hocam yanlış anlamışsınız olayı.Kodu denedim mesela kodunuzdaki 5 yerine 85 yazdım mesaj kutusunda 99 çıktı :)

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=No;Imex=1;""" strRecord = "5" sql = "Select F1 FROM [Sayfa1$A1:A65536]" rs.Open sql, con, 1, 1 rs.Find "F1 =" & strRecord If rs.EOF...

(y) Hocam birden fazla aranan değerden varsa ilk bulduğununmu satırını veriyor?

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=No;Imex=1;""" strRecord = "5" sql = "Select F1 FROM [Sayfa1$A1:A65536]" rs.Open sql, con, 1, 1 rs.Find "F1 =" & strRecord MsgBox "Aranan...

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=no;Imex=1;""" sql = "Select top 5 f1 FROM [Sayfa1$A2:A65536]" rs.Open sql, con, 1, 1 rs.movelast MsgBox rs(0).Value con.Close Set con = Nothing Set rs = Nothing End Sub

...= "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=YES;Imex=1;""" sql = "SELECT TARİH, [FATURA NO],KİME,'Toptan Satış Faturası', " & _ "SUM(IIF([KDV ORANI]=0, [SATIR TOPLAMI], 0)) AS MTRH0, " & _...

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=no;Imex=1;""" sql = "Select f1 FROM [Sayfa1$A2:A65536]" rs.Open sql, con, 1, 1 aranan = 5 say = 1 While Not rs.EOF say = say + 1 If rs(0) = aranan Then MsgBox rs(0) & Chr(10) & say...

...Source=" & ThisWorkbook.FullName & _ ";Extended Properties=""Excel 12.0;HDR=no;Imex=1;""" sql = "Select f1 FROM [Sayfa1$A2:A65536]" rs.Open sql, con, 1, 1 rs.Find "f1 = 5" MsgBox rs!f1 con.Close Set con = Nothing Set rs = Nothing End Sub

...strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";" Set RS = CreateObject("Adodb.RecordSet") With Sheets("En Ucuz") .Select .Range("A2:D" & Rows.Count).ClearContents...

Merhaba, bu son attığınız makro ilk attığınızdan ne gibi farklılığı var onu anlayamadım. Öğrenmek için soruyorum bunu, birde ben bu makroları asıl kullanmam gereken yerde malesef kullanamadım. Şimdi attığım örnek bu makroyu asıl kullanmak istediğim yer. Ama oraya taşıyamadım. Birleştirilmiş...

...Exit Sub strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & fileopen & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strsql = "SELECT [Stok Adı], IIF ([Ödeme Tipi]='Yönetim Misafir', [Satış Miktarı], NULL), " & _ "IIF ([Ödeme...

...= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.Path & _ "\Data.xlsx';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";" Set RS = CreateObject("Adodb.RecordSet") krtr = [M2] strsql = "SELECT * FROM [Sayfa1$] WHERE (F1 + F2 + F3 + F4 +F5 + F6 +...

...= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";" strsql = "SELECT F3, (" & miktar & "*F5), F4,null,null,null,null, F5 " & _ "FROM [VERI$A2:E" &...

ÇOK TEŞEKKÜR EDERİM

...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";" strsql = "SELECT F3, (" & miktar & "*F5), F4,null,null,null,null, F5 " & _ "FROM [VERI$A2:E" &...

Merhaba. Kapalı bir excel dosyasında şifre var.Alttaki koda nasıl bir ilave edilmeli saygılar. adobaglanti = "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & xxx & ";extended properties=""excel 12.0;hdr=no;imex=1"""