Sorgu için arama sonuçları: IMEX

...ilk sayfasından veri almak için "TableDefs" özelliğini kullanabilirdik... Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") myTable = DB.TableDefs(0).Name Set RS = DB.OpenRecordset("Select * from [" & myTable & "A1:H20]")

...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no;imex=1""" sorgu = "SELECT top 5 f2,sum([F7])" & _ " FROM [Tabelle2$A2:G65536] WHERE [f6] >= #" & Format(.Range("C1").Value, "mm\/dd\/yyyy") & "#...

Haluk Bey, ne diyeceğimi bilemiyorum. Kod mükemmel üstü çalışıyor! Uzun zamandır çözemediğim bir konuydu bu. Ve bir çok yere danıştığımda cevabını alamamıştım (yabancı siteler de dahil). Sizinle karşılaşmamız benim için büyük şans oldu. Excel 2003' den sonra VBA çok değişmiş, yazdığınız kodu...

...On Error GoTo 0 Set Db = daoDBEngine.OpenDatabase(MyPath & myFile, False, False, "Excel 8.0; HDR=YES; IMEX=1;") Set RS = Db.OpenRecordset("Select [Speed 1 (RPM)] from [Sayfa1$]") With RS .MoveLast dbRow = .RecordCount...

..."Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\BankaListesi.xlsx" & _ ";Extended Properties=""Excel 12.0;Hdr=yes;IMEX=1""" Sorgu = "Select [IBAN], [TC Kimlik No],[Adı ve Soyadı],[Ele Geçen] From [Table 1$A8:H20]" Rs.Open Sorgu, Con, 1, 3 SonSatir =...

...= CreateObject("DAO.DBEngine.120") On Error GoTo 0 Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=No; IMEX=1;") Set RS = DB.OpenRecordset("Select distinct F1 from [Sheet2$]") RS.MoveFirst For i = 1 To RS.RecordCount RetVal =...

@Haluk Bey Merhaba; Bu hataları aldım. Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=YES; IMEX=1;")

@Haluk Bey rahatsız ediyorum. 1) Report dosyasındaki sayfada D sütununda yer alan Seri No'lar sabit. 2) Report dosyasındaki sayfada E-O sütunlarındaki veriyi sadece Data dosyasındaki sayfanın I-J-K-L-M-N sütunlarından olduğu gibi alıyoruz, 3) Data dosyasından alınacak veriler 100.000 - 150.000...

...& "Data.xlsx" Range("E2:J" & Rows.Count) = "" Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=No; IMEX=1;") Set RS = DB.OpenRecordset("Select * from [Sayfa1$I2:N65536]") With RS .MoveLast dbRow = .RecordCount .MoveFirst...

...Then con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ dosya & ";extended properties=""Excel 12.0; hdr=no;IMEX=1""" t = "select * from [Sayfa1$A15:F65536]" t = t & " WHERE clng(cdate([f1]))=" & al & " and not isnull([F1])"...

...con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & tt & ";" & "Extended Properties=""Excel 12.0;hdr=yes;imex=1""" bas = CLng(CDate(TESLIM_A.Value)): bit = CLng(CDate(TESLIM_B.Value)): KODE = CStr(durum_sorgu.Value) sorgu = "select * from [SIPARIS$] where...

...= CreateObject("ADODB.RECORDSET") conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=no;imex=1"";" rs.Open "select * from [HAT PERFORMANSI$D7:H106];", conn, 1, 1 Sheets("E").Range("B3").CopyFromRecordset rs rs.Close rs.Open "select *...

...Con.Open "Provider=Microsoft.Ace.OLEDB.12.0;" & _ "Data Source= '" & VeriTabani & "'" & ";" & _ "Extended Properties=""Excel 12.0;HDR=yes;IMEX=1"";" Set Rec = Con.Execute(Sorgu) hata: If Err Then Exit Function End Function 'Fonsiyon adını teknisyen adı yap Sub av2_1() Set Rec =...

...yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\" & kaynak_dosya & ";Extended Properties=""Excel 8.0;HDR=yes;IMEX=1"";" baglanti.Open yol '---------------------------------------- ArananVerininStrNo = 4 ArananVerininSutunAdi = "a"...

..."provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.Path & "\kapalı.xlsx" & ";extended properties=""excel 12.0;hdr=no;imex=1""" sorgu = "Select f1,f3,f4,f6,f8,f12 from [FaturaListesi$]" ' where f3 = '" & Range("N2").Value & "'" rs.Open sorgu...

...CreateObject("ADODB.RECORDSET") conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=yes;imex=1"";" rs.Open "select * from [ARIZALAR$A1:Y165536] where SAYI=" & Range("AC1").Value & " or BKMA=" & Range("AN1").Value & ";", conn, 1, 1...

Arkadaşlar aşağıdaki makro normalde işimi görecek şekilde sorunsuz çalışıyor. Fakat verilerin aktaracağı C:\512015.xls dosyasının adını makroya değilde VERILER sayfası H10 hücresinden aldırmak istiyorum. Bu hücrede de C:\512015.xls yazılı. Ama makrodan değil hücreden alacak bu adresi. Bunu nasıl...

...CreateObject("ADODB.RECORDSET") conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=yes;imex=1"";" rs.Open "select * from [ARIZALAR$A1:Y165536] where SAYI=" & Range("AC1").Value & ";", conn, 1, 1...

...= CreateObject("DAO.DBEngine.36") On Error GoTo 0 Set DB = daoDBEngine.OpenDatabase(KapDosya, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") NoA2 = Sheets("Sonuc").Cells(300000, 1).End(xlUp).Row + 1 Sheets("Sonuc").Range("A2:L" & NoA2).Clear For i = 1 To...

...conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & dosya.Name & ";extended properties=""excel 12.0;hdr=no;imex=1"";" rs.Open "Select * from [Sayfa1$C3:N52];", conn, 1, 1 Application.ScreenUpdating = False Range("C3").CopyFromRecordset rs...