Sorgu için arama sonuçları: IMEX

  1. pNouma

    tefas.gov.tr' den veri çekme hk.

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

    Arvento Araç takip sistemine göre aracın günlük çalışma hesabı

    ...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, " & _...
  3. halit3

    tefas.gov.tr' den veri çekme hk.

    ...= 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...
  4. veyselemre

    İki ayrı tabloyu tek tablo olarak birleştirme

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

    İki ayrı tabloyu tek tablo olarak birleştirme

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

    SQL sorguyu farklı bir dosyaya aktarmak

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

    Aynı olan değerlerden yeni çalışma kitabi oluşturma

    @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?
  8. D

    İşlem, Güncelleştirilebilir bir sorgu kullanmalıdır!

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

    Soru Exceldeki verileri notepad dosyasına aktarma

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

    İşlem, Güncelleştirilebilir bir sorgu kullanmalıdır!

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

    İşlem, Güncelleştirilebilir bir sorgu kullanmalıdır!

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

    ADO yönteminde Tanımlanmış Tablo ya da AD kullanmak

    ...& _ "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"...
  13. H

    Karmaşık verileri düzenle hale getirme

    ...< 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...
  14. Korhan Ayhan

    Çözüldü Farklı sayfada bulunan tarih kriterine göre veri çekme

    ...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...
  15. Korhan Ayhan

    kapalı farklı bir dosyadan veri çekmek

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

    Çözüldü sayfa adı bulma

    ...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...
  17. işsiz123

    Çözüldü sayfa adı bulma

    :) 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...
  18. H

    Çözüldü sayfa adı bulma

    ...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 .
  19. Korhan Ayhan

    kapalı farklı bir dosyadan veri çekmek

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

    Google Sheets

    ...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 =...
Üst