dilerim işinize yarar

Private Sub VeriAlXL_Click()

On Error Resume Next

XLAdr = CurrentProject.Path & "\ABONELER_KOMPLE.xlsx"

SyfAd = Me.AK_Yil

xAyAd = Me.AK_Ay

xAyNo = Me.AK_Ay.ListIndex + 1



SQL = "insert into FATURALAR ([ABONE_NO],[YIL],[AY],[MİKTAR]) " & _

      "SELECT [ABONE_NO],[YIL]," & xAyNo & ",[" & xAyAd & "] " & _

      "FROM [" & SyfAd & "$] IN '" & XLAdr & "' 'EXCEL 12.0;' where ([ABONE_NO] Is Not Null)"

CurrentDb.Execute SQL

If Err.Number = 0 Then xMsg = "bitti " Else xMsg = "hata No:" & Err.Number & vbNewLine & "Açıklama : " & Err.Description

MsgBox xMsg

End Sub

---

Not: Access ve Excel dosyaları aynı dizinde olmalı, eğer Excel farklı yerde ise
XLAdr = CurrentProject.Path & "\ABONELER_KOMPLE.xlsx" satırında adres düzeltilmeli