У нас вы можете посмотреть бесплатно ADO SQL VERI ALMA - EXCEL DOSYASINI AÇMADAN VERİ ALMA - KOD AÇIKLAMADA или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
VBA VE EXCEL İLE İLGİLİ KURUMSAL EĞİTİMLER İÇİN BANA 0532 456 53 99 NUMARASI ÜZERİNDEN ULAŞABİLİRSİNİZ. Option Explicit Public Sub VeriAlmaADO() Dim dosyaAdi As Variant Dim cn As ADODB.Connection Dim rs As ADODB.Recordset dosyaAdi = Application.GetOpenFilename(, , , , False) If dosyaAdi = False Then Exit Sub If dosyaAdi = ThisWorkbook.FullName Then Exit Sub Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data " & _ "Source=" & dosyaAdi & ";Extended Properties='Excel 12.0 Xml;HDR=YES';" cn.Open Set rs = New ADODB.Recordset With rs .ActiveConnection = cn .Source = "SELECT * FROM [SalesOrders$] WHERE [Region]='East'" .Open End With With Sheet1 .UsedRange.Offset(1, 0).ClearContents .Range("A2").CopyFromRecordset rs .UsedRange.EntireColumn.AutoFit End With rs.Close: cn.Close End Sub