Not: xDosyaAd = "d:\Desktop\puantaj\EXPORT.XLSX" bu kısma kendi dosyanızın adı yazılmalı
xSayfaAd = "Sheet1" buraya da veri alınacak sayfa adı yazılmalı
xDosyaAd = "d:\Desktop\puantaj\EXPORT.XLSX"
xSayfaAd = "Sheet1"
xSQL = "INSERT INTO puantaj " & _
"SELECT Xl.* " & _
"FROM [Excel 12.0 Xml;HDR=Yes;Database=" & xDosyaAd & "].[" & xSayfaAd & "$] as XL LEFT JOIN puantaj ON " & _
"(Xl.[Çıkış tarihi] = puantaj.[Çıkış tarihi]) AND " & _
"(puantaj.[Tren No] =clng(Xl.[Tren No])) AND " & _
"(clng(Xl.[Personel numarası]) = puantaj.[Personel numarası]) " & _
"WHERE (((puantaj.[Personel numarası]) Is Null) AND ((puantaj.[Tren No]) Is Null) AND ((puantaj.[Çıkış tarihi]) Is Null));"
CurrentDb.Execute xSQL