问题在于何谓“已有的数据”?假设次表已存在的合同编号作为判断已有的数据,则可写为:
dim ssql as string
ssql="INSERT INTO 次 SELECT * FROM [Sheet1$] IN 'E:\桌面\表1.xls'[EXCEL 8.0;] "
ssql=ssql & "where 合同编号 not in (select 合同编号 from 次表)"
DoCmd.RunSQL ssql
如果假设合同编号与付款日期存在作为已有的数据,则可写为:
dim ssql as string
ssql="INSERT INTO 次 SELECT * FROM [Sheet1$] IN 'E:\桌面\表1.xls'[EXCEL 8.0;] "
ssql=ssql & "where 合同编号 & 付款日期 not in (select 合同编号 & 付款日期 from 次表)"
DoCmd.RunSQL ssql