1 - siz sub/yordam'ı sub/yordam altına yazmışsınız
yordam bağımsız olarak modüle eklenip
diğer yordamdan çağrılır
Komut33_Click olayını aşağıdaki gibi düzenleyip dener misiniz?
doğrudan çalışmanızdaki örneğe göre düzenledim
isterseni dosya yolu_Adı ve sayfa adı metin kutularından alınabilir
kitap ve sayfa adı istenirse formdan da alınabilir

Private Sub Komut33_Click()



Dim tdf As DAO.TableDef



Dim strBaglanti As String

Dim AccAd As String

Dim ExlAd As String

Dim strKey As String

Dim DatabaseName As String:



' Bağlantıyı kur

strXlYol = CurrentProject.Path & "\abcde$.xlsx"

strBaglanti = "Excel 12.0 Xml;HDR=No;IMEX=0;ACCDB=No;DATABASE=" & strXlYol





ExlAd = "abcde$" ' bağlanacak tablonun exceldeki adı, sayfa adının sonuna $ eklenerek yazılır

AccAd = "abcde"  ' bağlanacak tablonun accessteki adı



'aşağıdaki blok tablo varsa siler

On Error Resume Next

    DoCmd.RunSQL "drop table " & AccAd

    RefreshDatabaseWindow

On Error GoTo 0



Set tdf = CurrentDb.CreateTableDef(AccAd)

    tdf.Connect = strBaglanti

    tdf.SourceTableName = ExlAd



CurrentDb.TableDefs.Append tdf ' tablo accesse eklenir



On Error GoTo 0

End Sub