Sorgu için arama sonuçları: IMEX

...strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""HTML Import;HDR=No;IMEX=1""" myTable = "Table" '>>>>>>> Web sayfasýndaki 1nci tablo ' myTable = "Table1" '>>>>>>> Web sayfasýndaki 2nci tablo Set objHTTP =...

...adoCN.Properties("Data Source") = myFile adoCN.Properties("Extended Properties") = "Excel 12.0 Macro; HDR=Yes; IMEX=1" adoCN.Open strSQL = "Select [KOD], Sum([Adet]), Sum([Toplam Fiyat])/Sum([Adet]) From [Sheet1$] Group By [KOD]" RS.Open strSQL, adoCN...

...= ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=1""" ReDim Arr(1 To LR - 1, 1 To 1) For i = 2 To LR ie1 = SH.Range("E" & i) ie2 = SH.Range("F" & i) klt = SH.Cells(i, "G") uSQL =...

...& "\bodro-2023.xls" baglan.Open "provideR=microsoft.ace.oledb.12.0;data source=" & dosyaYolu & ";extended properties=""excel 12.0;hdr=no;IMEX=1"";" rs.Open "select f1,f10 from [" & sayfAdi & "$B11:K500]", baglan, 1, 1 rs.MoveFirst For i = 0 To rs.RecordCount - 1 Sayfa4.Cells(i + 7, "B") =...

IMEX=0 olarak denediniz mi?

...Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ MyFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=1""" uSQL = "SELECT * FROM [1$]" RS.Open uSQL, Con, 3, 1 Sheets("2").Range("A2").CopyFromRecordset RS RS.Close: Con.Close Set Con = Nothing: Set RS = Nothing End Sub

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

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,