Sorgu için arama sonuçları: IMEX

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

Çok Teşekkür ederim Halit Hocam iyi ki varsınız!

...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 " & _ "FORMAT(t1.[Tarih Saat], 'dd.mm.yyyy') AS myDate, " & _...

...= CreateObject("ADODB.recordset") baglan = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Dosya & ";Extended Properties=""Excel 12.0;HDR=yes;IMEX=1;""" Kayit.Open "Select * from [" & Sayfa_adı & "$] ;", baglan, 1, 1 ThisWorkbook.Sheets(Syf1).Range("A1").CopyFromRecordset Kayit Kayit.Close...