
birde veritabanı dosyası var dosyanın database.mdb adlı dosya ben bu dosyayı excele nasıl bağlayacağım (yanında gönderdi )
veya bağlamama gerek var mı ?
saygılar .
1
●40

Sub ConnectMDBtoExcel()
Dim dbConnection As Object
Set dbConnection = CreateObject("ADODB.Connection")
' Veritabanı dosyasının yolunu belirtin
dbConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\yol\database.mdb"
' SQL sorgunuzu buraya yazın
Dim sqlQuery As String
sqlQuery = "SELECT * FROM TabloAdı" ' TabloAdı'nı gerçek tablo adınızla değiştirin
' Sorguyu çalıştırın ve sonuçları alın
Dim recordSet As Object
Set recordSet = dbConnection.Execute(sqlQuery)
' Sonuçları Excel'e aktarın
Dim i As Integer
i = 1
Do While Not recordSet.EOF
Cells(i, 1).Value = recordSet.Fields("SütunAdı").Value ' SütunAdı'nı gerçek sütun adınızla değiştirin
i = i + 1
recordSet.MoveNext
Loop
' Bağlantıyı kapatın
recordSet.Close
dbConnection.Close
End SubBu kod parçası, belirtilen .mdb dosyasından verileri çeker ve Exceldeki hücrelere yerleştirir. TabloAdı ve SütunAdı kısımlarını kendi veritabanınızdaki ilgili isimlerle değiştirmeniz gerekecek.