-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sorgu için arama sonuçları: IMEX
-
ÇOKLU TOPLAMA
...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";" strSql = "SELECT F1,F2, SUM(F3) " & _ "FROM [Sayfa1$C5:E" & Cells(Rows.Count, 3).End(3).Row & "] " & _...- veyselemre
- Posta #2
- Forum: Diğer Excel Soruları
-
Veri Transferi
...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" strSql = "SELECT Liman, Count(SayKont), Sum(ToplaKap), Sum(ToplaAg) " & _ "FROM " & _ "( " & _...- veyselemre
- Posta #9
- Forum: Excel'e Yeni Başlayanlar
-
Seçili Alanı TXT. Olarak Kaydetmek
...& "];", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & "';Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" CreateObject("Scripting.FileSystemObject").CreateTextFile(ThisWorkbook.Path & "\TextDosya.txt").Write .GetString(, , "|", vbCrLf) End With...- mancubus
- Posta #14
- Forum: Makro-VBA Soruları
-
T
kapalı dosyadan iki tarih arası veri almak
...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ "C:\PERSONEL\PERSONEL_DATA.xlsm" & ";extended properties=""excel 12.0;hdr=no;imex=1""" Sheets("Eksayfa").Cells.ClearContents sorgu = "Select f1,f2,f4,f10,f11,f14,f13,f18,f19,f20,f31,f32,f34,f35,f36,f37,F38 from [PERSONEL$] " & _...- tahsinanarat
- Posta #13
- Forum: Makro-VBA Soruları
-
T
kapalı dosyadan iki tarih arası veri almak
...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ "C:\PERSONEL\PERSONEL_DATA.xlsm" & ";extended properties=""excel 12.0;hdr=no;imex=1""" ilktarih = CLng(CDate(Range("G3").Value)) sontarih = CLng(CDate(Range("H3").Value)) sorgu = "Select...- tahsinanarat
- Posta #5
- Forum: Makro-VBA Soruları
-
T
kapalı dosyadan iki tarih arası veri almak
..."provider=microsoft.ace.oledb.12.0;data source=" & _ "C:\PERSONEL\PERSONEL_DATA.xlsm" & ";extended properties=""excel 12.0;hdr=no;imex=1""" sorgu = "Select f1,f2,f10,f11,f14,f13,f18,f19,f20,f31,f32,f34,f35,f36,f37,f38 from [PERSONEL$A2:Am65000]" rs.Open sorgu, con...- tahsinanarat
- Konu
- Cevaplar: 12
- Forum: Makro-VBA Soruları
-
Çözüldü olasılıklı çoklu arama ve listeleme hak.
...adoCN.Properties("Data Source") = ThisWorkbook.FullName adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=yes ; IMEX=1 " adoCN.Open Set rs = CreateObject("ADODB.Recordset") Call adoListele End Sub Sub adoListele() sart = " " If TextBox1.Text <> "" Then sart...- veyselemre
- Posta #5
- Forum: Makro-VBA Soruları
-
Çözüldü Ado ile Textboxdaki yazılana göre sadece Rakamları bulma.
...con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;Imex=1""" With Me s = "select f1,f2,f3,f4,Format(f5,'dd.mm.yyyy'),f6 from [Sayfa1$A2:F65000] where not isnull(f1)" If .TextBox1.Text <> "" Then s = s & "...- FERAZ
- Konu
- Cevaplar: 13
- Forum: Makro-VBA Soruları
-
H
ikinci kitabı kapatma hk.
...Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ dosya_yolu & ";extended properties=""excel 12.0;hdr=NO;IMEX=1""" Sorgu = "Select F10,F2,F8,F7,F12,F13,F14 from [Detay$] WHERE F1 = '" & _ babs & "' AND F3 = '" & vergino & "' ORDER BY F10"...- Haluk
- Posta #28
- Forum: Makro-VBA Soruları
-
H
ikinci kitabı kapatma hk.
...= CreateObject("DAO.DBEngine.120") On Error GoTo 0 Set DB = daoDBEngine.OpenDatabase(dosya_yolu, False, False, "Excel 8.0; HDR=No; IMEX=1;") Sorgu = "Select F10,F2,F8,F7,F12,F13,F14 from [Detay$] WHERE F1 = '" & _ babs & "' AND F3 = '" & vergino & "' ORDER BY...- Haluk
- Posta #19
- Forum: Makro-VBA Soruları
-
H
ikinci kitabı kapatma hk.
...Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ dosya_yolu & ";extended properties=""excel 12.0;hdr=NO;IMEX=1""" Sorgu = "Select F10,F2,F8,F7,F12,F13,F14 from [Detay$] WHERE F1 = '" & _ babs & "' AND F3 = '" & vergino & "' ORDER BY F10"...- Haluk
- Posta #16
- Forum: Makro-VBA Soruları
-
ikinci kitabı kapatma hk.
...Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ dosya_yolu & ";extended properties=""excel 12.0;hdr=NO;IMEX=1""" Sorgu = "Select F10,F2,F8,F7,F12,F13,F14 from [Detay$] WHERE F1 = '" & babs & "' AND F3 = '" & vergino & "' ORDER BY F10" Rs.Open Sorgu, Con...- acar6783
- Posta #13
- Forum: Makro-VBA Soruları
-
H
ikinci kitabı kapatma hk.
...EasyFix nedir bilemiyorum, o konuda yorum yapamayacağım. Ancak bana öyle geliyor ki; ADO bağlantısında "Extended Properties" kısmında IMEX=1 ifadesi olmadığı için, ADO tarafından dosya salt okunur olarak açılıyor. Kısaca.... aşağıdaki şekliyle deneyin; Con.Open...- Haluk
- Posta #10
- Forum: Makro-VBA Soruları
-
E
Soru Combobox vba recordset
Tşe Teşekkürler az önce internetten bulmuştum dediğinizi şuan çalışıyor. Bir noktada daha yardımınızı rica ederim. Veritabanı excel dosyamda 3|5|5|3|6|6 gibi | karakteri ile birleştirip sıraladığım bir hücrem mevcut. Bunu split ile ayırıp ayrı ayrı hücrelere değer olarak yapıştırabilir miyim ?- emreeyy
- Posta #5
- Forum: Makro-VBA Soruları
-
H
Soru Combobox vba recordset
Aşağıdaki satırda kırmızı ile belirtilen ilaveyi yapın ... adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes;Imex=1" .- Haluk
- Posta #4
- Forum: Makro-VBA Soruları
-
H
Klasördeki tüm excel dosyalarının belirli hücre aralıklarını bir dosyada kopyalama
...ilk sayfasından veri almak için "TableDefs" özelliğini kullanabilirdik... Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") myTable = DB.TableDefs(0).Name Set RS = DB.OpenRecordset("Select * from [" & myTable & "A1:H20]")- Haluk
- Posta #8
- Forum: Makro-VBA Soruları