Sorgu için arama sonuçları: IMEX

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

ADO bağlantısını kurarken; .Properties("Extended Properties") = "Excel 8.0; HDR=No;IMEX=1;" veri tablosundaki alanlarla ilgili olarak HDR=No (Header ≡ Başlık) kullanarak, ADO'ya sütun başlıkları "Yok" diye belirttik. O zaman ADO, tablodaki veri alanlarınının başlıklarını otomatik olarak...

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

Hocam ilginiz için çok teşekkür ederim

..."E").End(3).Row con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _ ";extended properties=""excel 8.0;hdr=yes;Imex=1""" evnsorgu = "select TC, [ADI SOYADI],3,[Çalışma Günü],[Aylık Tutar],[14 Günlük], Toplam, [Damga Vergisi], [İcra Kesintisi], [Kira...

...= CDbl(CDate(TextBox1)) dateEnd = CDbl(CDate(TextBox2)) Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=YES; IMEX=1;") Set RS = DB.OpenRecordset("Select sum([VERİ]) as [ToplamVeri] from [Sayfa1$] where " & _ "[TARİH] between "...

ADO'da "IMEX" parametresini kullanmanız gerekir...... Aslında siz de IMEX=1 kullanmışınız.... şu anda bilemiyorum dosyayı incelemek gerekir. .

...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ "C:\PERSONEL1\deneme.xlsx" & ";extended properties=""excel 12.0;hdr=no;imex=1""" ilktarih = CLng(CDate(Range("G3").Value)) sontarih = CLng(CDate(Range("H3").Value)) sorgu = "Select f1,f2,f3,f7 from [GRUPLAR$A2:Y65536] WHERE...

..."\\Server\Kayit\" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & YolA & "Panel.xlsm" & _ ";extended properties=""excel 12.0;hdr=no;imex=1""" Sorgu = "Select f6,f1,f10,f13 from [Giris$] rs.Open Sorgu, con, 1, 1 Range("a2").CopyFromRecordset rs rs.Close: con.Close Set con =...

baglan.Open = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=1;RetrieveIds=Yes;" & _ "DATABASE=https://abcd.sharepoint.com/teams;" & _ "LIST={28359664-31AF-4A6A-B6CA-E0C4727AD89A};" kitaplık:"LIST={28359664-31AF-4A6A-B6CA-E0C4727AD89A};" olarak görüyor (LIST numarası SharePoint ayarlar + site...

Kodu aşağıdaki gibi değiştirdim. Yine bağlanamadım baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://abcd.sharepoint.com/teams/kitaplik/List.mdb" Bağlandıktan sonra verileri listboxa aktarması lazım. Veriler aktarılmadığı için bağlanmadığını anlıyorum...

Merhaba bu kodda sorgu diye tanımladığımız kısmı revize edip kullanmaya çalışıyorum. Ancak kapalı excelim düzenli olarak webden inen bir dosya olduğu için Kapalı excelde sorgu diye ad tanımlaması yapamıyorum. Nasıl çözebiliriz revize etmek istesek?

..."Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data Source") = myFile adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=No; IMEX=1" adoCN.Open strSQL = "Select [F1] from [Sayfa1$] where [F1] is not null" RS.CursorType = adOpenKeyset RS.Open strSQL...

..."Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data Source") = myFile adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=No; IMEX=1" adoCN.Open strSQL = "Select [F1] from " & sayfaa & " where [F1] is not null" RS.CursorType = adOpenKeyset On Error...

Kodu denedim 65536dan geriye doğru işlem yapıyor ve bayağı uzun sürüyor fakat doğru sonuç verdi yani bu durumda 65536 yada 1048576 yazınca iş karışıyor :)

...Source=" & ThisWorkbook.Path & "\kapali.xlsx" & _ ";Extended Properties=""Excel 12.0;HDR=No;Imex=1;""" On Error Resume Next sql = "Select Last(F1) FROM [Sayfa1$A2:A65536]" Set rs = con.Execute(sql)...

...Application.ScreenUpdating = False a.Open "provider=microsoft.ace.oledb.12.0;data source=" & fn & ";extended properties=""excel 12.0;hdr=yes;imex=1""" c.Open "select * from [Sayfa1$];", a, 1, 1 Range("A" & i).CopyFromRecordset c c.Close: a.Close Application.ScreenUpdating = True Set c =...

...Exit Sub strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & fileopen & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strsql = "SELECT [kULLANICI Adı], IIF ([Bilet Tipi]='Öğrenci', [Fiyat], NULL), " & _ "IIF ([Bilet Tipi]='Tam', [Fiyat]...