accesse aktarmak için aşağıdaki kodu kullanmayı deneyebilirsiniz
yalnız daha önceden belirttiğim gibi isimle Access alan adı kurallarına uymalı
aslında hafta sonu ilgilenmeyi düşünüyordum ama maalesef 1 hafta kadar uygun olamayacağım
o nedenle biraz aceleye geldi

Dim strPath As String

Dim objAccess As Object



strPath = ThisWorkbook.Path & "\YILDIZ_VeriTabanı.accdb"



Set objAccess = CreateObject("Access.Application")

Call objAccess.OpenCurrentDatabase(strPath)

objAccess.Visible = True

'On Error Resume Next

    For i = 0 To ListBox1.ListCount - 1

        If ListBox1.Selected(i) Then

            SyfAdi = ListBox1.List(i)

            TblSay = objAccess.DCount("Name", "MSysObjects", "Name='" & SyfAdi & "' and type in (1,4,6)")

            If TblSay > 0 Then objAccess.DoCmd.DeleteObject acTable, SyfAdi

            If SyfVarMi(SyfAdi) = True Then objAccess.DoCmd.TransferSpreadsheet 0, 10, SyfAdi, ThisWorkbook.FullName, True, SyfAdi & "$"

        End If

    Next i

'    objAccess.DoCmd.Save

    objAccess.CloseCurrentDatabase

    objAccess.Quit

    MsgBox "aktarım tamam"

Modüle eklenecek fonksiyon

Function SyfVarMi(ByVal SyfAdiMtn As String) As Boolean

'i = 0

Dim ws As Worksheet

SyfVarMi = False

For Each ws In Worksheets

     If ws.Name = SyfAdiMtn Then SyfVarMi = True

Next ws



End Function