Sorgu için arama sonuçları: IMEX

Ömer faruk bey, yarın kodlarınızı uygulama şansım olacak. Öncelikle teşekkürler. Yalnız şunu belirtmek istedim. Listboxa alınan tarih verilerini vba ile ne denediysem düzgün sıralatamadım. Bunun sebebi ise, eğer yanlış anlamadıysam Gün/Ay Ay/Gün çevirmesinde mutlaka bir hata ile karşılaştım...

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

...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no;imex=1""" sorgu = "select F1,F2,F5 from [Mizan Aktar$B4:J" & son & "] where F1 like '190.%' or " _ & "F1 like '191.%' or F1 like '192.%'" Set rs =...

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...