ADO SQL VERI ALMA - EXCEL DOSYASINI AÇMADAN VERİ ALMA - KOD AÇIKLAMADA

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