Sorgu için arama sonuçları: IMEX

...DOSYA_YOLU = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & "C:\TALIMATLAR\ARACLAR\Hesaplar.xlsm" & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";" ADODB_DATA.Open DOSYA_YOLU Dim sorgu As String sorgu = "Select * From [" & ActiveSheet.Name & "$A2:D65536]"...

Hocam ekteki dosyanızı indirdim ek resimdeki hatayı verdi. office 2016 kullanıyorum. bu problemi düzeltebilir miyiz? bir de sadece bir klasörde değilde örneğin listeler klasörü içerisindeki A B C D gibi diğer klasörler içerisindeki excellerde de arama yapabilir mi?

...Exit Sub strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & fileopen & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strsql = "SELECT [Stok Adı], IIF ([Ödeme Tipi]='Yönetim Misafir', [Satış Miktarı], NULL), " & _ "IIF ([Ödeme...

...adoCN.Properties("Data Source") = ThisWorkbook.FullName adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=Yes; IMEX=1" adoCN.Open strSQL = "Select Distinct [İL] from [Sayfa1$]" RS.CursorType = adOpenKeyset RS.Open strSQL, adoCN Do Until...

Hocam sizede çok teşekkür ederim. Öğrenmek istediğim tam da buydu. Bu arada ADO ile (engin bilgilerinize dayanarak) kapalı dosyada A sutunundaki ilk boş hücreyi nasıl bulabiliriz. VBA da sheets("KITAP1").range("A1000000).end(3).xlup komutunu ADO da nasıl çalıştırabiliriz. Bu konuda da yardımcı...

...As Object, RS As Object Set DB = CreateObject("DAO.DBEngine.120").OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=No; IMEX=1;") Set RS = DB.OpenRecordset("Select F1 From [Sheet1$A2:A] Where F1 Is Not Null") RS.Move 2 MsgBox RS(0) RS.Close...

İyi akşamlar; arkadaşlar siteden araştırarak ekli dosyamdaki kod ile kapalı dosyadan istediğim verileri alıyorum, ancak bunu bir dosyadan alabiliyorum. Benim istediğim, aynı formatta olan ve diğer dosyalardan da isteğime göre verileri almak istiyorum, yani kodu her çalıştırdığımda eski verilerin...

Haluk Bey, Elinize emeğinize sağlık çok güzel olmuş, Çok teşekkür ederim.

...daoDBEngine = CreateObject("DAO.DBEngine.120") Set DB = daoDBEngine.OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=No; IMEX=1;") For i = 2 To Sheets.Count myShop = Replace(UCase(Sheets(i).Name), "ı", "I") Set RS = DB.OpenRecordset("Select...

...= CreateObject("DAO.DBEngine.120") Set DB = daoDBEngine.OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") Set RS = DB.OpenRecordset("Select * From [SAYFA1$] Where [fark] <> 0") Sheets("SAYFA2").Range("A1:H1") =...

Döndürmedi hocam Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _ Msgbox Dir("C:\Users\tomson\Desktop\01_OCAK_2022_Stok\1200 Malzeme_Stok_Takip*") & ";extended properties=""excel 12.0;hdr=no;imex=no""" satırı tamamen kırmızı oldu.

...Source=" & _ Dir("C:\Users\tomson\Desktop\01_OCAK_2022_Stok\1200 Malzeme_Stok_Takip*") & ";extended properties=""excel 12.0;hdr=no;imex=no""" If Sayfa1.Range("d3") <> 0 Then sorgu = "Select f1,f2*1,F3,F4,F5*1,F6*1,F7*1 from [Proje_Envanter$A5:G65536] WHERE f4='" & Sayfa1.Range("D3") & "' And...

...& _ "C:\Users\tomson\Desktop\01_OCAK_2022_Stok\1200 Malzeme_Stok_Takip_2022_28012022_2038.xlsb" & ";extended properties=""excel 12.0;hdr=no;imex=no""" Yukarıdaki Ado kodu ile kapalı dosyadan 01_OCAK_2022_Stok\1200 Malzeme_Stok_Takip_2022_28012022_2038.xlsb adlı dosyadan veri çekebiliyorum...

@Haluk bey uzun süre sonra tekrar merhaba, üstteki makronuzu yeni özelliklerde ekleyerek hala kullanmakta ve sizi anmaktayız ancak şöyle bir durumla karşılaştık bu yıl. Önceki yıllarda her sınıf seviyesinde öğrenci sayımız 100 öğrenci altındaydı. Bu yıl her sınıf seviyesinde öğrenci sayımız 100...

Ö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