Sorgu için arama sonuçları: Catalog

  1. C

    Soru Hücrede yazan kelimeyle o excelden veri çekme

    ...Set Rky = CreateObject("adodb.connection") Set FSO = CreateObject("scripting.filesystemobject") Set cat = CreateObject("adox.catalog") For Each evn In FSO.getfolder(ThisWorkbook.Path).Files If Not evn.Name Like "*" & ThisWorkbook.Name Then Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data...
  2. C

    Soru Hücrede yazan kelimeyle o excelden veri çekme

    ...Set Rky = CreateObject("adodb.connection") Set FSO = CreateObject("scripting.filesystemobject") Set cat = CreateObject("adox.catalog") For Each evn In FSO.getfolder(ThisWorkbook.Path).Files If Not evn.Name Like "*" & ThisWorkbook.Name Then Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data...
  3. C

    Soru Hücrede yazan kelimeyle o excelden veri çekme

    ...Set Rky = CreateObject("adodb.connection") Set FSO = CreateObject("scripting.filesystemobject") Set cat = CreateObject("adox.catalog") For Each evn In FSO.getfolder(ThisWorkbook.Path).Files If Not evn.Name Like "*" & ThisWorkbook.Name Then Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data...
  4. Korhan Ayhan

    Kapalı dosyada aranılan sayfa var mı?

    Linkteki konuların faydası olacaktır. https://www.excel.web.tr/search/329247/?q=Catalog&o=date
  5. O

    Next Without For hatası

    ...Set rs = CreateObject("ADODB.Recordset") con.Open "Provider=SQLOLEDB.1;Password=1234**;Persist Security Info=True;User ID=sa;Initial Catalog=GO3;Data Source=HP;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=HP;Use Encryption for Data=False;Tag with column...
  6. tamer42

    Excel den Sql e veri gönderim metotları

    Merhaba, Ekli dosyada, SQL INSERT INTO Kullanımı ile sayfadaki verileri aktarmak istiyorduk, for ......next döngüsü içinde Conn.Execute (strSQL) komutu sorunsuz çalışmakta; Yalnız for ......next döngüsü içinde strSQL sorgusunu birleşitrip, en sonunda bir seferde Conn.Execute (strSQL) komutu...
  7. Korhan Ayhan

    select * from ["+sayfaadı+"$]

    Forumda catalog ifadesi ile arama yapabilirsiniz. Bir ornek; https://www.excel.web.tr/threads/kapali-dosyadaki-sayfa-adlarini-listboxta-listeleme.199995/#post-1119407
  8. H

    Silinecek Listesindekileri Kaynak Listeden bul sil

    ...If Dir(TempDB) <> "" Then Kill TempDB Set adoCN = CreateObject("ADODB.Connection") Set adoCAT = CreateObject("ADOX.Catalog") Set RS = CreateObject("ADODB.Recordset") strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TempDB adoCAT.Create...
  9. Emir Hüseyin Çoban

    Sql like kullanımı hakkında

    ...strConn = "PROVIDER=SQLOLEDB;" strConn = strConn & "Provider=SQLOLEDB.1;Password=K123445;Persist Security Info=True;User ID=sa;Initial Catalog=VEGADB;Data Source=10.0.1.7;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=USER-BILGISAYAR;Use Encryption for...
  10. M

    Sql like kullanımı hakkında

    ...strConn = "PROVIDER=SQLOLEDB;" strConn = strConn & "Provider=SQLOLEDB.1;Password=K123445;Persist Security Info=True;User ID=sa;Initial Catalog=VEGADB;Data Source=10.0.1.7;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=USER-BILGISAYAR;Use Encryption for...
  11. M

    Sql like kullanımı hakkında

    ...strConn = "PROVIDER=SQLOLEDB;" strConn = strConn & "Provider=SQLOLEDB.1;Password=K1234;Persist Security Info=True;User ID=sa;Initial Catalog=VEGADB;Data Source=10.0.0.1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=USER-BILGISAYAR;Use Encryption for...
  12. td877

    Makromu geliştirme hakkında yardım

    ...Set Rky = CreateObject("adodb.connection") Set FSO = CreateObject("scripting.filesystemobject") Set cat = CreateObject("adox.catalog") For Each evn In FSO.getfolder(ThisWorkbook.Path).Files If Not evn.Name Like "*" & ThisWorkbook.Name Then Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data...
  13. Korhan Ayhan

    45 bin excel dosyasının herbirine kendi içerisindeki sabir bir hücreden dosya ismi atamak

    Catalog olayında dosyadaki bütün tabloları işleme aldığı için sorguyla kontrol koymakta fayda var. Paylaştığım linklerde benzer kontrol sorguları bulunuyor.
  14. Korhan Ayhan

    45 bin excel dosyasının herbirine kendi içerisindeki sabir bir hücreden dosya ismi atamak

    Merhaba Necdet Bey, Soruyu soran arkadaşımız bütün dosyalarda sayfa adının sabit olduğunu ifade etmişti.. Bununla ilgili olarak linkteki konuları inceleyebilirsiniz. https://www.excel.web.tr/search/288553/?q=Catalog&o=date
  15. tamer42

    Kapalı Dosyada ilk sayfayı alma

    ...Source=" & sWorkbook & ";Extended Properties=""Excel 8.0;HDR=Yes;""" adoConnection.Open Dim adoWbkAsDatabase As New ADOX.Catalog adoWbkAsDatabase.ActiveConnection = adoConnection MsgBox adoWbkAsDatabase.Tables(0).Name adoConnection.Close Set...
  16. Feylosof

    ListBoxta Sayfa İsimlerini Kapalı dosyadan almada nokta(.) sorunu

    ...Dim Tum_Tablolar As Object, Sayfa As Object Set Baglanti = CreateObject("AdoDb.Connection") Set Tum_Tablolar = CreateObject("AdoX.Catalog") Set Sayfa = CreateObject("AdoX.Table") Dosya = "C:\Users\Desktop\İZİN PROGRAMI.xlsm" Baglanti.Open...
  17. Korhan Ayhan

    Kapalı Dosyadan veri alırken üzerine ekleme

    ...vbCritical Exit Sub End If Set Baglanti = CreateObject("Adodb.Connection") Set Sayfalar = CreateObject("Adox.Catalog") For X = LBound(Dosya_Yolu) To UBound(Dosya_Yolu) Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...
  18. H

    Kapalı dosyadan veri alınırken eskilerin silinip silinmemesi . . .

    İyi akşamlar; arkadaşlar siteden araştırarak ekli dosyamdaki kod ile kapalı dosyadan istediğim verileri alıyorum, ancak bunu bir dosyadan alabiliyorum. Benim istediğim, aynı formatta olan ve diğer dosyalardan da isteğime göre verileri almak istiyorum, yani kodu her çalıştırdığımda eski verilerin...
  19. Feylosof

    Kapalı Dosyadaki Sayfa Adlarını Listboxta listeleme

    Korhan Hocam çok teşekkür ederim. Emeğinize sağlık.
  20. Korhan Ayhan

    Kapalı Dosyadaki Sayfa Adlarını Listboxta listeleme

    ...Dim Tum_Tablolar As Object, Sayfa As Object Set Baglanti = CreateObject("AdoDb.Connection") Set Tum_Tablolar = CreateObject("AdoX.Catalog") Set Sayfa = CreateObject("AdoX.Table") Dosya = "C:\Users\Desktop\İZİN PROGRAMI.xlsm" Baglanti.Open...
Üst