Sorgu için arama sonuçları: IMEX

Teşekkürler Hocam;

şimdi oldu Korhan Hocam, olayın püf noktası neydi? Başlıkların olmaması mı? teşekkürler,

...Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=0""" uSQL = "SELECT * " & _ "FROM [Data$] " & _ "WHERE [Ürün Kaynagi] = 'standart' " RS.Open uSQL, Con, 3, 1 uSQL = "" If (Not RS.BOF) Then...

...Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=No;IMEX=1""" For i = 2 To LastRow RafNo = SH.Range("C" & i).Value poz = InStr(1, RafNo, "-", vbBinaryCompare) If poz > 0 Then...

...Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=0""" uSQL = "Select DISTINCT [Ürün Kodu] From [sayfa$] " & _ "Where [Kategori] <> 'standart'" RS.Open uSQL, Con, 3, 1 Veri = RS.getrows uSQL = "" RS.Close '...

...Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=1""" uSQL = "Update [data$] Set [Barcode]=(Select [Barcode] From [data$] " & _ "Where [Kategori] = 'Standart')" Con.Execute uSQL Con.Close Set Con =...

IMEX=1 olarakta denedim Korhan Hocam, değişen bir şey olmadı Bu şekilde de denemler yaptım, o zaman işler daha da karıştı, ''If Not IsNumeric(Raf) Then Raf = "'" & Raf & "'" '' If Not IsNumeric(Beden) Then Beden = "'" & Beden & "'" teşekkürler,

IMEX=1 olarak denediniz mi?

...myPath & "\KaynakDosya.xlsx" Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=0""" For i = 2 To LastRow RafNo = SH.Range("C" & i).Value poz = InStr(1, RafNo, "-", vbBinaryCompare) If poz > 0 Then...

hocam affınıza sığınarak bir şey daha sormak istiyorum. Yukarda yazdığım kodu çalıştırdım. O koddan sonra gelen verilerde b sütununa çift tıklatmak istiyorum. F2+enter formülü gerekiyor ama diğer formülle nasıl birleştireceğim bilemedim. Bide çalışan F2+enter bulamadım. Yardımcı olursanız çok...

...Örnek bir alanda Tarih kullanıyorsanız altındaki hücrelerin hepsi tarih olmak zorundadır. Karışık veri girişleri için bağlantı satırında IMEX kullanılmaktadır. Tabi yöntemde tüm veriler METİN biçiminde yorumlanır. Linkleri inceleyebilirsiniz...

...= CreateObject("ADODB.CONNECTION") With Conn .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _ ThisWorkbook.FullName End With strSql = "Select * From [Siparisler$]" Set...

Veysel Hocam bir konu farkettim "YETENEK" alanı nümerik değer olmadığı zaman boş getiriyor, bunun bir çözümü olabilir mi? teşekkürler,

Çok teşekkür ederim Veysel Hocam Bunun SELECT yöntemiyle çözümü yok sanırım

...With CreateObject("ADODB.CONNECTION") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _ ThisWorkbook.FullName .Execute " UPDATE [Rapor$A1:C" & Sheets("Rapor").Cells(Rows.Count, 1).End(xlUp).Row & _...

...& Dir("C:\Users\tomson\Desktop\01_OCAK_2023_Stok\1000 Malzeme_Stok_Takip*") & ";extended properties=""excel 12.0;hdr=no;imex=1""" Sorgu = "Select F1,F2,F3,F13,F7,F8,F9,F10,F11 from [Girdi$A2:AA1000000]" rs.Open Sorgu, con, 1, 1 Range("a2").CopyFromRecordset rs rs.Close: con.Close Set con...

...source=" & _ Dir("C:\Users\tahsin.anarat\Desktop\01_OCAK_2023_Stok\1000 Malzeme_Stok_Takip*") & ";extended properties=""excel 12.0;hdr=no;imex=1""" Sorgu = "Select F1,F2,F3,F13,F7,F8,F9,F10,F11 from [Girdi$A2:AA1000000]" rs.Open Sorgu, con, 1, 1 Range("a2").CopyFromRecordset rs rs.Close...

...source=" & ThisWorkbook.Path & "\" & Range("S2").Value & "\" & ActiveCell.Value & "E.xls" & ";extended properties=""excel 12.0;hdr=yes;imex=1""" rs.Open "Select * from [Sayfa1$D2:D35]", conn, 1, 1 Range("O7").CopyFromRecordset rs rs.Close: conn.Close Else MsgBox...

=1156409&hash=1229b282c9266023c68a643b6f4d59dc']Dosya ekle Çok teşekkürler Haluk Hocam, Bilginize ve emeğinize sağlık!

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