-
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
-
Çözüldü VBA İle Tablo Birleştirme
...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & fullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" sqlFields = Array("[No]", "[Ad Soyad]", "Puanı", "Kod", "Sayısı", "Renk") Set rs =...- veyselemre
- Posta #7
- Forum: Makro-VBA Soruları
-
Soru Makro ile Tablo Özetleme
...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strSql = " TRANSFORM SUM([KOLİ ADET]) " & _ " SELECT FORMAT([TARİH],'DD.MM.YYYY DDDD') AS GÜNLER," & _ "...- veyselemre
- Posta #6
- Forum: Makro-VBA Soruları
-
Benzersiz Verileri Tablo Olarak Yeni Bir Excelde Kaydetme
Sayın hocam şuan dışarıdayim.eve geçince deneyeceğim, şimdiden elinize sağlık Allah razı olsun. Binlerce satırlık veriyi bir kaç saniye içinde istediğim şekilde yapıyor. Tekrardan çok teşekkür ederim. Hayırlı kandiliniz olsun, bu mubarek günde dualarınız kabul olsun inşallah- Astalavista58
- Posta #5
- Forum: Makro-VBA Soruları
-
Benzersiz Verileri Tablo Olarak Yeni Bir Excelde Kaydetme
...strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.FullName & _ "';Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" strSql = " TRANSFORM COUNT([RÜTBESİ]) " & _ " SELECT [BİRİMİ] FROM [Sayfa1$A:G] " & _ " GROUP BY [BİRİMİ]...- veyselemre
- Posta #4
- Forum: Makro-VBA Soruları
-
Left Join Operatöründe hata
Dosya linki ektedir Hocam https://s6.dosya- tamer42
- Posta #6
- Forum: Makro-VBA Soruları
-
Left Join Operatöründe hata
İyi pazarlar. Altın üye olmaığım için dosyanızı inceleyemedim.Ama unutmazsam harici siteye örnek yükleyebilirim first ile.Ayrıca imex=1 ekleyebilirsinizde düzensizse üstadın dediği gibi ise.- FERAZ
- Posta #5
- Forum: Makro-VBA Soruları
-
SQL sorgusunda "Is Not Null" problemi hk.
...da sütunün içereceği veri tipi gelir. Siz düzeni olmayan bir tabloda ADO kullanmaya çalışıyorsunuz. Bu tarz sorunlarla karşılaşmanız gayet doğaldır. Bağlantı (Connection) satırında IMEX kullanmayı deneyebilirsiniz. Forumda ya da nette önerdiğim ifadeyi araştırırsanız örneklere ulaşabilirsiniz.- Korhan Ayhan
- Posta #4
- Forum: Makro-VBA Soruları
-
-
M
SQL sorgusunda "Is Not Null" problemi hk.
Merhaba, bağlantı parametresine imex=1; ekleyip dener misiniz?- Mehmet Şahin
- Posta #2
- Forum: Makro-VBA Soruları
-
Seçmeli Aktar
...con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes;imex=1""" s3.Range("A2:H" & Rows.Count).ClearContents If s1.[AA2] <> "" And s1.[AA4] = "" Then sorgu = "select * from [KAYIT$] where not isnumeric([KALAN...- YUSUF44
- Posta #16
- Forum: Makro-VBA Soruları
-
Kapalı Dosyada ilk sayfayı alma
çok teşekkürler Haluk hocam, iyiki varsınız!- tamer42
- Posta #3
- Forum: Makro-VBA Soruları
-
H
Kapalı Dosyada ilk sayfayı alma
...Set daoDBEngine = CreateObject("DAO.DBEngine.120") Set DB = daoDBEngine.OpenDatabase(sWorkbook, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") MySheet =...- Haluk
- Posta #2
- Forum: Makro-VBA Soruları
-
Sayfa adını hücreden aldırmak
...Dosya = Empty Then Exit Sub con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _ Dosya & ";extended properties=""excel 12.0;hdr=no;imex=no""" syfadi=cells(4,2) sorgu = "Select f1,f2,F3,F4,F5,F6,F7 from [" & syfadi & "$A2:J65536] WHERE f5 > 0" rs.Open sorgu, con, 1, 1...- kulomer46
- Posta #2
- Forum: Makro-VBA Soruları
-
T
Sayfa adını hücreden aldırmak
...If Dosya = Empty Then Exit Sub con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _ Dosya & ";extended properties=""excel 12.0;hdr=no;imex=no""" sorgu = "Select f1,f2,F3,F4,F5,F6,F7 from [Elbise$A2:J65536] WHERE f5 > 0" rs.Open sorgu, con, 1, 1 Range("a6").CopyFromRecordset rs...- tahsinanarat
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
H
Soru Aynı sütunda farklı olan verilerin sayısını bulma
...Set DB = CreateObject("DAO.DBEngine.120").OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") strSQL = "Select [İLLER], Sum([TOPLA]) From [Sayfa1$] Where [İLLER] Is Not Null Group By [İLLER]" Set RS = DB.OpenRecordset(strSQL)...- Haluk
- Posta #6
- Forum: Makro-VBA Soruları
-
H
Soru Kelime Farklılıklarını Buldurma
...daoDBEngine = CreateObject("DAO.DBEngine.120") Set Db = daoDBEngine.OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=No; IMEX=1;") strSQL = "Select Table2.F2 " & _ "From [Detay$] as Table2 " & _ "Left Join " & _ "[Detay$] As...- Haluk
- Posta #7
- Forum: Makro-VBA Soruları
-
Soru Excel Dosyalarından Excele Veri Alma
...Source=" & ThisWorkbook.Path & "\_reports_4BKKRaporlar_BankaListesi.xlsx" & _ ";Extended Properties=""Excel 12.0;Hdr=yes;IMEX=1""" Sorgu = "Select [TC KIMLIK NO],[ADI SOYADI],[IBAN NO],[MAAŞ TUTARI] From [BankaListesi$F25:AE50]" Rs.Open Sorgu, Con, 1, 3 SonSatir =...- okan32
- Posta #2
- Forum: Makro-VBA Soruları
-
H
ListBoxta Sayfa İsimlerini Kapalı dosyadan almada nokta(.) sorunu
...myFile = "C:\Users\Haluk\Desktop\İZİN PROGRAMI.xlsx" Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") For i = 0 To DB.TableDefs.Count - 1 MySheet = VBA.Replace(DB.TableDefs(i).Name, "'", "") MySheet =...- Haluk
- Posta #2
- Forum: Makro-VBA Soruları
-
Kapalı Çalışma kitabını şartlı açmak
...DOSYA_YOLU = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & "C:\TALIMATLAR\ARACLAR\Hesaplar.xlsm" & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";" ADODB_DATA.Open DOSYA_YOLU Dim sorgu As String sorgu = "Select * From [" & ActiveSheet.Name & "$A2:D65536]"...- bulentkars
- Posta #15
- Forum: Makro-VBA Soruları
