Sorgu için arama sonuçları: IMEX

...BY yID " With CreateObject("ADODB.Connection") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & ThisWorkbook.FullName Set rs = .Execute(strSQL) Range("K1").Resize(1, 4) = Array("Tanım", "Tutar", "Tanım"...

...3) = myList Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & ThisWorkbook.FullName strSQL = "SELECT t1.*, t2.* FROM [Sheet4$A1:C] t1 " & _ "LEFT JOIN [Sheet4$F1:H] t2 ON...

...satırların altına ekliyor Sub Ekle_ADO() Dim Conn As Object Dim sorgu As String yol = ThisWorkbook.FullName DosyaYolu = "[Excel 12.0 Xml;HDR=No;IMEX=0;DATABASE=" & ThisWorkbook.Path & "\Data.xlsm].[Rapor$]" Set Conn = VBA.CreateObject("adodb.Connection") With Conn .Open "...

@Haluk merhaba, Yukarıdaki kodu kullanıyorum. Yaratılacak dosya sayısı fazla olduğunda, belli bir dosyayı oluşturduktan sonra aşağıdaki hatayı alıyorum. Bu hatayı nasıl geçebilirim?

...adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & WB1 & _ ";Extended Properties='Excel 12.0 Macro;HDR=YES;IMEX=1'" '**** Update etmeden önce verileri bu çalışma kitabındaki tmp sayfasına al **** wsCtrl = False For Each ws In...

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

...Cn = CreateObject("ADODB.CONNECTION") With Cn .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _ WB1 .Execute " UPDATE [" & WB1 & "].[Data$] AS T1" & _ " INNER JOIN [" & WB1...

Bağlantıda IMEX=1 kısmını silin, çalışır.... .

...& _ "Data Source=\\SERVER\K.......Excel$\FIYAT_SABLONU_XXXX.xlsm;" & "Extended Properties=""Excel 12.0 Macro;HDR=YES;IMEX=1"";" Örneğindeki gibi HDR=NO olarak kullanılırsa ADO alan(sütün) isimlerini F1,F2,F3... olarak isimlendiriyor, "Select [F1],[F2] from [Sayfa1$] Where [F2]=5"...

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

...My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=Yes;Imex=1""" My_Query = "Select * From [VT$] Where Tarih = " & CLng(Sheets("Sorgu").Range("E1").Value) My_Recordset.Open My_Query...

..."Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.Path & "\liste.xlsx" & ";Extended Properties=""Excel 12.0;Hdr=Yes;Imex=1""" My_Query = "Select [Kod],[Adı] From [Sayfa1$] Where [Kod] Is Not Null" My_Recordset.Open My_Query, My_Connection, 1, 1...

...myFile = "C:\TestFolder\Test.xlsm" Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") Set RS = DB.OpenRecordset("Select...

:) Haklısınız haluk bey. Telefon ile yazdığımdan klavye otomatik değiştirmiş bende aceleden kontrol edemedim. Yazdıklarımı ben bile anlamadım. :) Yazığınız kodlar ile kapalı dosyanın Sayfa ismini alıyorum. Ancak MySheet değişkenini içeren sayfa ismini benim kodlara uyarladığım da hata...

...myFile = "C:\TestFolder\Test.xlsm" Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") MsgBox MySheet End Sub .

..."Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.Path & "\liste.xlsx" & ";Extended Properties=""Excel 12.0;Hdr=No;Imex=1""" My_Query = "Select F2,F1 From [Sayfa1$A2:F] Where F1 Is Not Null" My_Recordset.Open My_Query, My_Connection, 1, 1...

...strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""HTML Import;HDR=No;IMEX=1""" myTable = "Table" '>>>>>>> Web sayfasýndaki 1nci tablo ' myTable = "Table1" '>>>>>>> Web sayfasýndaki 2nci tablo Set objHTTP =...

...adoCN.Properties("Data Source") = myFile adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=Yes; IMEX=1" adoCN.Open strSQL = "Select [KOD], Sum([Adet]), Sum([Toplam Fiyat])/Sum([Adet]) From [Sheet1$] Group By [KOD]" RS.Open strSQL, adoCN...

...= ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=1""" ReDim Arr(1 To LR - 1, 1 To 1) For i = 2 To LR ie1 = SH.Range("E" & i) ie2 = SH.Range("F" & i) klt = SH.Cells(i, "G") uSQL =...

...& "\bodro-2023.xls" baglan.Open "provideR=microsoft.ace.oledb.12.0;data source=" & dosyaYolu & ";extended properties=""excel 12.0;hdr=no;IMEX=1"";" rs.Open "select f1,f10 from [" & sayfAdi & "$B11:K500]", baglan, 1, 1 rs.MoveFirst For i = 0 To rs.RecordCount - 1 Sayfa4.Cells(i + 7, "B") =...