-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
-
Merhaba,
Forumumuz yeni bir sunucuya taşındı.
Bazı kullanıcı bilgilerinin taşınmasında hatalar olmuş.
Foruma giriş yapamıyorsanız lütfen bir süre bekleyin. Eksik verileri tamamlamak için çalışıyoruz.
Hata düzelince tekrar bilgi paylaşacağız.
Eksik kullanıcı verileri geri yüklendi.
Sorun yaşamaya devam eden varsa lütfen admin@excel.web.tr ye bilgi verin.
Sorgu için arama sonuçları: adodb
-
Listbox a network ten veri çekmek..
...My_File As Variant, My_Recordset As Object File_Path = "\\Network_Path\Desktop\Book1.xlsx" Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data...- Korhan Ayhan
- Posta #3
- Forum: Makro-VBA Soruları
-
H
Karmaşık verileri düzenle hale getirme
...sağlayan revize kod aşağıdadır; Option Explicit ' Sub Test() ' Haluk - 29/09/2023 ' sa4truss@gmail.com ' Dim objADO As ADODB.Connection Dim strFile As String, strSQL As String Dim objRS As ADODB.Recordset Dim arrBelgeNo As Variant Dim i As Integer, j As Integer...- Haluk
- Posta #12
- Forum: Makro-VBA Soruları
-
H
Türkçe karakter sorunu
...= Application.GetOpenFilename("Text Files, *.txt", , "Dosya seçin...") If MyFile = False Then Exit Sub Set adoStream = CreateObject("ADODB.Stream") adoStream.Charset = "UTF-8" adoStream.Type = adTypeText adoStream.Open adoStream.LoadFromFile (MyFile) strFile =...- Haluk
- Posta #7
- Forum: Makro-VBA Soruları
-
Makro İle Google E-Tablolardan Veri Almak
...teşekkürler, iyi akşamlar. Sub sorguu() Dim myPath As String myPath = "G:\Drive\Egitim\Dosyalar" Set con = VBA.CreateObject("adodb.Connection") yol = myPath & "\Satış.xlsx" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=yes"""...- tamer42
- Posta #39
- Forum: Makro-VBA Soruları
-
D
excel vba- Döngü çok uzun sürüyor.
...Dim adoCN As Object Dim strSQL, myFile As String Application.ScreenUpdating = False Set adoCN = CreateObject("ADODB.Connection") myFile = ThisWorkbook.FullName adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myFile & _ ";Extended...- dost
- Posta #10
- Forum: Makro-VBA Soruları
-
H
Soru Adresini Gösterdiğim Excelden belirli sütunlarındaki verileri Makrodaki sayfaya çektirme
..." & _ "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=Yes;']" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open strConnection Set RS = objConnection.Execute(strQuery) For j = 0 To RS.Fields.Count - 1...- Haluk
- Posta #18
- Forum: Makro-VBA Soruları
-
Soru Adresini Gösterdiğim Excelden belirli sütunlarındaki verileri Makrodaki sayfaya çektirme
...= False Application.Calculation = xlCalculationManual Process_Time = Timer Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & My_File...- Korhan Ayhan
- Posta #8
- Forum: Makro-VBA Soruları
-
Çözüldü Farklı sayfada bulunan tarih kriterine göre veri çekme
...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Sheets("Sorgu").Range("A3:G" & Rows.Count).ClearContents...- Korhan Ayhan
- Posta #4
- Forum: Makro-VBA Soruları
-
run tıme error "-2147467259 (80004005) geçersiz boş kullanımı hatası
...>= " & Replace(saat1, ",", ".") & _ " And Cdbl(CDate([Saat])) <= " & Replace(saat2, ",", ".") Set RS = CreateObject("ADODB.Recordset") RS.CursorType = 1 RS.Open sorgu, Con Veri = RS.getRows ub = UBound(Veri, 2) RS.Close Set RS = Nothing...- tamer42
- Posta #8
- Forum: Makro-VBA Soruları
-
Sql Sorguda Tarih tür uyuşmazlığı hk.
...As Object sorgu = "Select * From [Data$] Where Cdbl(CDate([Tarih])) = " & tarih & "And Cdbl(CDate([saat])) > " & saat Set RS = CreateObject("ADODB.Recordset") RS.CursorType = 1 RS.Open sorgu, Con a = RS.RecordCount sorguTarih = a End Function...- tamer42
- Posta #3
- Forum: Makro-VBA Soruları
-
H
Sql Sorguda Tarih tür uyuşmazlığı hk.
...a = sorguTarih(tarih) MsgBox a End Sub ' Sub Baglan() Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...- Haluk
- Posta #2
- Forum: Makro-VBA Soruları
-
H
Veritabanına txt dosya kaydetmek
Mantık olarak; JPEG, BAT, DOCX.... herhangi bir dosyayı ADODB ile "binary" çevirip, MDB dosyasındaki bir tablodaki alana yazılabilir. Deneyip, görmek lazım... .- Haluk
- Posta #6
- Forum: Access Soruları
-
Sql Sorguda Tarih tür uyuşmazlığı hk.
...tarih = CDate(Sayfa1.Range("A2")) a = sorguTarih(tarih) MsgBox a End Sub Sub Baglan() Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...- tamer42
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
Soru kapalı xls dosyasından veri çekerken uyumluluk hatası
...menüsünde Uyumluluk Kısmını dönüştür deyince oluyor. bunu dosyayı açmadan yapmak istiyorum. Şimdiden Teşekkürler Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi &...- işsiz123
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları
-
kapalı farklı bir dosyadan veri çekmek
...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Range("A2:B" & Rows.Count).ClearContents Range("F2:F" &...- Korhan Ayhan
- Posta #7
- Forum: Excel'e Yeni Başlayanlar
-
Çözüldü Şartlı Benzersiz Liste oluşturma.
...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("AdoDB.Recordset") Set S1 = Sheets("Sayfa1") My_Connection.Open...- Korhan Ayhan
- Posta #3
- Forum: Makro-VBA Soruları
-
kapalı farklı bir dosyadan veri çekmek
...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Range("A2:B" & Rows.Count).ClearContents Range("F2:F" &...- Korhan Ayhan
- Posta #4
- Forum: Excel'e Yeni Başlayanlar
-
Çözüldü sayfa adı bulma
...= .InitialFileName Başka Abonelikten Çık Eğer Sonlandırıyorsanız ile bitmek Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Sağlayıcı=Microsoft.ACE.OLEDB.12.0;Veri Kaynağı=" & ExcelDosyaYolu & ExcelDosyaAdi &...- işsiz123
- Posta #3
- Forum: Makro-VBA Soruları
-
Çözüldü sayfa adı bulma
...excelin birinci sayfasındaki veriyi alması. Şuanda aktif kullandığım sayfa ismi hesaphareketleri$A6:F Teşekkürler Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi &...- işsiz123
- Konu
- Cevaplar: 8
- Forum: Makro-VBA Soruları
-
Soru Kapalı dosyadan veri alma hatası
...ExcelDosyaYolu = .InitialFileName Else Exit Sub End If End With Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi & ";Extended...- işsiz123
- Konu
- Cevaplar: 1
- Forum: Makro-VBA Soruları