اعتذر استاذى الجليل ومعلمى القدير لاثقالى على كاهلكم ولكن لا حيلة لى فى قلى تفكيرى وتركيزى
ده اقتباس مشاركة حضرتك ما يحيرنى اننى لم اجد اسم الجدول
' Import the data from each worksheet into the table
For lngCount = colWorksheets.Count To 1 Step -1
If DCount("[Name]", "MSysObjects", "[Name] = '" & colWorksheets(lngCount) & "'") = 1 Then CurrentDb.TableDefs.Delete colWorksheets(lngCount)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$"
Next lngCount
وحضرتك حالا ذكرت بعد هذا الامر تمرر اسم الجدول فهي تحذف جدول واحد
انا بصراحة مش قادر افهم واستوعب الموضوع جيدا