Sorgu için arama sonuçları: adodb

...Sub Test() ' Haluk - 22/03/2024 Sheets("Sayfa2").Range("B2:C" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.RecordSet") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}...

..." & _ " ) " & _ " ) GROUP BY Bölge, Marka, UK, UA ORDER BY Bölge, Marka, UK, UA" With CreateObject("ADODB.Connection") .Open "Driver={MicrosoFT Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

..." ) " & _ " Group By UK, UA Having (Sum(ADET12) + Sum(ADET6) + Sum(ADET3))>0 " Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...End Sub Sub herUrundenSonGelenGetir_ADO() Dim strSQL$ Sheets("ADO").Range("K2:M" & Rows.Count).ClearContents With CreateObject("ADODB.Connection") .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...çalıştı. Tek alt sorgu ile sonuç geliyor. Sub getData3() Sheets("Report").Range("A2:F" & Rows.Count).ClearContents With CreateObject("ADODB.Connection") .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

ustam tüm sütünları attım buna göre uyarlanır mı acaba

...As String, strSQL As String, strArgs As String Sheets("Sheet1").Range("K2:M" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...strSQL As String, strArgs As String Sheets("veri").Range("A3:L" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...strSQL As String, strArgs As String Sheets("veri").Range("A3:L" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...As String, strSQL As String, strArgs As String Sheets("Report").Range("A2:F" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...baslıklar Baslik1,Baslik2.... gibi olduğunu varsayarsak alttaki kod çalışıyor. Dim metin As String Set con = CreateObject("Adodb.connection") Set rs = CreateObject("Adodb.recordset") con.Open "provider=microsoft.ace.oledb.12.0;data source= " & ThisWorkbook.FullName...

...Dim adoCN As Object, SourceFile As String, strSQL As String Range("E2:E" & Rows.Count) = "" Set adoCN = CreateObject("ADODB.Connection") SourceFile = ThisWorkbook.Path & "\SiparislerDBO.accdb" adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"...

...RS As Object Dim SH As Worksheet Set SH = Sheets("DB") SH.Cells.ClearContents FileName = ThisWorkbook.FullName Set Con = CreateObject("ADODB.CONNECTION") With Con .Open "Provider=Microsoft.Ace.Oledb.12.0;" & _ "Extended Properties='Excel 12.0;" & _...

...Veri çektiğim yer: Veri Yapıştırılan yer: KOD: Private Sub CommandButton1_Click() Range("I2:AN999999").ClearContents Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset yol = "F:\.......................................\9.Sipariş Genel Durum.xlsb" baglanti.Open...

1 nolu mesajınızdaki kod çalışıyorsa sorgu = "select * from [Sipariş$]" yukarıdaki bölümü silin aşağıdaki bölümü ekleyiniz. sorgu = "select * from [Sipariş$F:BD]"

Veysel Hocam çok teşekkür ederim, emeğinize sağlık;

...Sub test() Sheets("Hedef").Range("C2:D" & Sheets("Hedef").Cells(Rows.Count, 1).End(xlUp).Row).ClearContents With CreateObject("ADODB.CONNECTION") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _...

...Dim myPath As String Dim i As Long Dim LastRow As Long Dim deg As Variant Dim zaman As Double zaman = Timer Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Set SH = ActiveWorkbook.Sheets("Hedef") SH.Range("D:Z").ClearContents LastRow =...

tüm satırların başına " tırnak sonuna " & _ şelindemi yapmalıyım. yoka kalan kodları direk yapıştırmalıyım. tüm satırların başına ve sonuna ekledim fakat olmadı. desteğiniz için teşekkürler bilgi verirseniz sevinirim.

RUN-TİME 1004 method Range of object=worksheet failed Range(colRange & "2:" & colRange & "999999").ClearContents kod'da uyarı verdi