Sorgu için arama sonuçları: IMEX

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

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