Sorgu için arama sonuçları: IMEX

...source=" & ThisWorkbook.Path & "\" & Range("S2").Value & "\" & ActiveCell.Value & "E.xls" & ";extended properties=""excel 12.0;hdr=yes;imex=1""" rs.Open "Select * from [Sayfa1$D2:D35]", conn, 1, 1 Range("O7").CopyFromRecordset rs rs.Close: conn.Close Else MsgBox...

=1156409&hash=1229b282c9266023c68a643b6f4d59dc']Dosya ekle Çok teşekkürler Haluk Hocam, Bilginize ve emeğinize sağlık!

...< 14 Then adoCN.Provider = "Microsoft.Jet.OLEDB.4.0" adoCN.Properties("Extended Properties") = "Excel 8.0; HDR=No;IMEX=1;" Else adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=No;IMEX=1;" End If...

...< 14 Then adoCN.Provider = "Microsoft.Jet.OLEDB.4.0" adoCN.Properties("Extended Properties") = "Excel 8.0; HDR=No;IMEX=1;" Else adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=No;IMEX=1;" End If...

...< 14 Then adoCN.Provider = "Microsoft.Jet.OLEDB.4.0" adoCN.Properties("Extended Properties") = "Excel 8.0; HDR=Yes;IMEX=1;" Else adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes;IMEX=1;" End If...

Haluk Hocam çok güzel bilgi ve emeğinize sağlık, yalnız bir problem var, bu TXT dosyasının devamına yazmıyor, önceki yazılanları silip tekrar üzerine yazıyor, Benim istediğim önceki yazılı olanlar kalıp, yenilerini devamına yazıp gitmesi Aşağıda For ... Next döngüsü ile oluşturdğum yapı mevcut...

...< 14 Then adoCN.Provider = "Microsoft.Jet.OLEDB.4.0" adoCN.Properties("Extended Properties") = "Excel 8.0; HDR=No;IMEX=1;" Else adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=No;IMEX=1;" End If...

...CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & aktifDosyaYolu & ";extended properties=""excel 12.0;hdr=Yes;IMEX=1""" CN.Open rs.Open Sql, CN, 3, 1 Range("C8").CopyFromRecordset rs Set CN = Nothing Set rs = Nothing Set rs1 = Nothing say = Cells(Rows.Count...

...con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=No;IMEX=1'" s = "select format(f8,'dd.mm.yyyy'), format(f11,'dd.mm.yyyy'), format(f12,'dd.mm.yyyy') from [Giris$A5:DZ65000] where f1 is not null "...

...Con = New ADODB.Connection Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;hdr=Yes;IMEX=1""" SQL = "Select [Miktar] from [Data$] " & _ "WHERE [Ürün Kodu]= '" & Kod & "'" RS.Open SQL, Con...

Üstadlar Evren bey in emeğine sağlık böyle bir çalışma hazırlamış. bu çalışmayı aynı klasör içinde bulunan aynı formattaki bir kaç çalışma kitabını birleştirmek için uyarlamak mümkün mü?Bu çalışma kitaplarının da her sayfası ayrı ayrı birleştirilebilir mi? 1. kitapta 3 sayfa 2. kitapta 3 sayfa...

...strSQL$, strCon$, RS As Object strCon = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.FullName & ";Excel 8.0;HDR=YES;IMEX=1" strSQL = "SELECT [ÖĞRENCİ NO], [ADI SOYADI] FROM [Sayfa1$] ORDER BY [ADI SOYADI]" Range("F2:J" & Rows.Count).ClearContents Set...

Çok teşekkürler ederim hakkınızı helal edin.

...Set daoDBEngine = CreateObject("DAO.DBEngine.120") Set Db = daoDBEngine.OpenDatabase(yol, False, False, "Excel 8.0; HDR=yes; IMEX=0;") ' con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ' yol & ";extended properties=""Excel 12.0;hdr=yes""" ' Set rs =...

Çok teşekkürler Korhan Hocam

IMEX komutunu araştırınız.

hocam maalesef her şeyi denedim ama beklentilerimizi karşılamıyor diğeri çok iyi ama çok yavaş

...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" Set rs = CreateObject("Adodb.RecordSet") strSql = " SELECT * FROM [Sheet1$A:F] WHERE [Sütun1] IS NOT NULL ORDER BY...

Sayın veyselemre hocam elinize sağlık, çok teşekkür ederim, Allah sizden razı olsun. Çok güzel bir şekilde çalışıyor.

...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" Set rs = CreateObject("Adodb.RecordSet") strSql = " TRANSFORM COUNT(MEMLEKET) " & _ " SELECT AYLAR FROM (SELECT...