İlk olarak projenize bir modül ekleyin ve modüle bu kodları yapıştırın.
Kod:
Option Explicit
Dim CON As ADODB.Connection
Dim Rec As ADODB.Recordset
Dim Query As QueryTable
Dim strSQL As String
Dim RS As Object
Dim adoCN As Object
Sub SQL_Sorgusu()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim Nsql As String
Dim i As Integer
Worksheets("Sayfa1").Select
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open Application.ActiveWorkbook.Path & "\tablolar.mdb"
End With
Nsql = "SELECT * FROM data;"
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open Nsql, conn, adOpenDynamic, adLockBatchOptimistic
End With
Range("A2:H30000").ClearContents
For i = 0 To rst.Fields.Count - 1
Range("A2").Offset(0, i).Value = rst.Fields(i).Name
Next i
Range("A2").CopyFromRecordset rst
conn.Close
End SubKod:
SQL_SorgusuNot: tablolar Access ile Excel aynı dizinde olmalı bu önemli.
Kolay gelsin.
