Sorgu için arama sonuçları: IMEX

all Allah razı olsun henmen deneyecegim

...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no;imex=1""" sorgu = "select distinct F2,F3,F4 from [Liste$A3:I" & son & "] where F3 is not null" Set rs = con.Execute(sorgu) s2.[B2].CopyFromRecordset rs sorgu =...

Çok teşekkür ediyorum Korhan Ayhan üstadım. Sağlıcakla kalın

..."\SATIŞLAR.xlsx" Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ Yol & ";Extended Properties=""Excel 12.0;Hdr=No;Imex=1""" On Error Resume Next Kayit_Seti.Open "Select F1 From [Sayfa1$F5:F10000] Where Not IsNull(F1)", Baglanti, 1, 1 Say =...

Ben IMEX eklenmiş kod bloğunu paylaşıyorum. Bir ara denersiniz. Option Explicit Sub Mesai_Tablolarini_Iceri_Aktar() Dim S1 As Worksheet, S2 As Worksheet, Baglanti As Object, Kayit_Seti As Object Dim Sorgu As String, Yol As String, Dosya As String Dim Veri As Range, Alan As Range...

...veri türü varsa o sütun için o veri tipiniz baz alarak işlem yapar. Sizin verdiğiniz tarihlerde bu sorunlar var. Bu sorun bağlantı satırında IMEX=1 kullanılarak aşılabilir. Fakat 9 Mayıs tarihli dosyanızda H18-H19 hücrelerinde saat girişinde nokta sembolü kullanılmış. Bu veriyi IMEX=1...

...ettim sizi cahilliğimden. Bu sefer şöyle bir sorunum oldu .xlsx uzantılı dosyalarda oldu fakat bazı dosyalarım .xls (sistem otomatik çıktıyı böyle veriyor) uzantılı onları ekleyince şu kodda hata verdi Set DB = daoDBEngine.OpenDatabase(strFile, False, False, "Excel 12.0; HDR=Yes; IMEX=1;")

...adoCN.Properties("Data Source") = myFile adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=yes; IMEX=1" adoCN.Open strSQL = "Select " & mySelect & " from [MEMURLAR$] where [SİCİL] is not null" RS.CursorType = adOpenKeyset RS.Open strSQL, adoCN...

Bağlantı satırında Imex kullanımını deneyebilirsiniz.

...NO]) DESC) AS q LEFT JOIN [R2$] AS t ON q.[ID NO] = t.[ID NO];", _ ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1""") bu satırda hata veriyor bu kes hem automatıon hatası hemde unspesified hatası vermekte

...NO]) DESC) AS q LEFT JOIN [R2$] AS t ON q.[ID NO] = t.[ID NO];", _ ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1""") Worksheets("R3").Range("H32").CopyFromRecordset .DataSource End With End Sub

...= ThisWorkbook.FullName cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fName & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1""") strSQL = "SELECT q.*, t.[AD SOYAD], t.[GÖREV], t.[BİRİM] FROM (SELECT TOP 5 [ID NO], COUNT([ID NO]) AS Adet FROM [R2$] GROUP BY [ID...

...Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=No;Imex=1""" Sorgu = "Select * From [Sayfa1$B7:B] Where Len(F1)>0" Kayit_Seti.Open Sorgu, Baglanti, 1, 1 Range("D7:D" & Rows.Count).Clear...

...adoCN.Properties("Data Source") = myFile adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=No; IMEX=1" adoCN.Open strSQL = "Select * from [Sayfa1$A2:C]" On Error Resume Next RS.Open strSQL, adoCN...

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

ADO kullanıyorsanız sütunlardaki bilgiler ya tamamı METİN olmalı, ya da tamamı SAYI olmalıdır. Yani veritabanı kuralı vardır. IMEX=1 komutunu araştırın. Belki işinize yarar.

...Baglanti.Open "Provider=Microsoft.ACE.OleDb.12.0;Data Source=" & Excel & _ ";Extended Properties=""Excel 12.0;Hdr=no;imex=1"";" Kayit_Seti.Open "Select * From [" & Sayfa_Adi & "$]", Baglanti, 1, 1 Son = S2.Cells(S2.Rows.Count, "B").End(3).Row + 1 Son1 = S2.Cells(S2.Rows.Count...

...Baglanti.Open "Provider=Microsoft.ACE.OleDb.12.0;Data Source=" & Excel & _ ";Extended Properties=""Excel 12.0;Hdr=no;imex=1"";" Kayit_Seti.Open "Select * From [" & Sayfa_Adi & "$]", Baglanti, 1, 1 Son = Cells(Rows.Count, "B").End(3).Row + 1 Son1 = Cells(Rows.Count...

Bunu yukarıdaki mesajımda şöyle açıklamıştım; Buradaki "F1" ifadesi "Field1"in kısaltmasıdır. Yani, birinci alan F1, ikinci alan F2 ...... Yaptığınız düzeltmelere bakmadım çünkü örnek dosya yok, kontrol ettiyseniz sorun olmaz herhalde.... .

Açıklama için teşekkürler. Anladığım kadarıyla ilk sütun F oluyor satırda 1 olduğu için F1 mi diyoruz başka alanlar olduğunda olara G1, H1... şeklinde devam mı ediyor yoksa tek F olarak mı kullanılıyor? üstteki resimdeki gibi B:B sutünün soluna bir sütun eklediğimde aşağıdaki değğişiklikleri...