Sorgu için arama sonuçları: IMEX

Halil bey çok teşekkür ederim ya böyle bir şeyin mümkün oldugunu bile düşünmemiştim. Nasıl oldu bende anlamadım valla. Para versek böyle olmaz. Hocam gerçekten çok sağolun.

...source=" & f.Path & _ ";extended properties=""Excel 12.0 Xml;HDR=NO;IMEX=1""" xCon.Open xRs.Open SQL, xCon, 0, 1 If Not xRs.BOF And Not xRs.EOF Then sonStr = sonStr + 1...

...& _ "Data Source=" & kapaliDosya & ";" & _ "Extended Properties=""Excel 12.0;HDR=No;IMEX=1"";" conn.Open strConn sorgu = "Select F6, F4, F3 From [Sayfa1$] Where F6 <> 'Kapalı'" Set rs = conn.Execute(sorgu) toplam1 = 0 toplam2 = 0 Do...

..."Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & WB1 & _ ";Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1""" My_Query = "SELECT T2.F2 " & _ "FROM [" & WS.Name & "$A:A] AS T1 " & _ "LEFT JOIN " & _ "[Excel 12.0...

Hocam çok teşekkürler dönüşünüz için. ilk makroda şu kod cn.Execute strSQL hata verdi. Sonra dosya yolunda kullanıcı profilini sinan yaptım. bu sefer .Open kodu hata verdi. bende, başka dosyamda bir ADO SQL ile çalışan sorunsuz makrolarım var. Acaba bu dosyada VBA ayarlarında yapmam gereken...

....ConnectionString = "Data Source=" & DosyaYolu & ";" & _ "Extended Properties=""Excel 12.0 Xml;HDR=Yes;IMEX=0"";" .Open End With For i = 1 To rng.Rows.Count sValues = "" sValues = "'" & rng.Cells(i, 1).Value & "','" & rng.Cells(i...

...Set daoDBEngine = CreateObject("DAO.DBEngine.120") Set DB = daoDBEngine.OpenDatabase(ListBox1.Tag, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") depoilksayfa = Left(MySheet...

Bu konu eski biraz ama bu kod ile veri çektiğimde ikinci sayfayı 4 kez ard arda kopyalamış oluyor neden yaptığını anlıyamadım yardımcı olabilirmisiniz. şimdiden tşk.ler

Hocam eline sağlık kod çalıştı.

...adoCN.Properties("Data Source") = ThisWorkbook.FullName adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=Yes; IMEX=0" adoCN.Open myFolder = "C:\Users\" & Environ("UserName") & "\Desktop\BURAK" If VBA.Len(Dir(myFolder, vbDirectory)) = 0 Then MkDir...

Merhaba, With CreateObject("ADODB.CONNECTION") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _ ThisWorkbook.FullName .Execute " UPDATE [Sheet1$] " & _ " SET [Baslik1] = LEFT([Baslik1]...

...FROM [Sayfa1$]" .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=1';" & _ "Data Source=" & dosya(1) Set rs = .Execute(strSQL) End With sat = 1 With Sheets("ADO") .Cells.ClearContents...

Merhaba hocam. Öncelikle yukarıdaki dosya indirme bağlantısını bizimle paylaştığınız için teşekkür ederiz. xlsm uzantılı excel dosyasını indirdiğimde kod gayet güzel çalışmakta; ancak benim ihtiyacım olan kod vba kodu değil de google e-tablolarda aynı işlevde kullanmak üzere apps script kodu...

...con.Open "provider=microsoft.ace.oledb.12.0;data source= " & ThisWorkbook.FullName & " ;extended properties= ""Excel 12.0;hdr=yes;imex=1""" For i = 3 To 5 'Baslik icin C den E ye kadar metin = metin & "First(" & Cells(1, i).Value & ")," Next metin = Mid(metin, 1...

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

...With CreateObject("ADODB.CONNECTION") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _ ThisWorkbook.FullName .Execute " UPDATE [HEDEF$A1:D" & Sheets("HEDEF").Cells(Rows.Count, 1).End(xlUp).Row & _...

...& _ "User ID=Admin;" & _ "Data Source='" & WB1 & "';" & _ "Extended Properties=""Excel 12.0;IMEX=1;Hdr=Yes""" Con.Open strConnection For i = 2 To LastRow deg = SH.Cells(i, 1) sorgu = "Select * From [Data$] WHERE [KODU]='" & deg &...

Her şey için çok teşekkürler Veysel Hocam

İlk başta IMEX ile uğraştım fakat olmuyor.

Veysel Hocam "Connection String" satırında 'IMEX' ile bir çözüm olmaz mı acaba? teşekkürler,