一一对应的从excel上面导入数据

aslxt

可以这样:
Private Sub Command0_Click()
   DoCmd.SetWarnings False
   DoCmd.RunSQL "select *  into 临时表 from [Excel 8.0;Database=" & Application.CurrentProject.Path & "\5月份餐费明细.xls].[5月份餐费明细$]"
   DoCmd.RunSQL "UPDATE 临时表 INNER JOIN 员工信息 ON 临时表.人员编号 = 员工信息.人员编号 SET 员工信息.餐费 = [临时表].[充值金额(元)]"
   DoCmd.SetWarnings True
End Sub