DoCmd.TransferSpreadsheet acImport导入表，如何覆盖导入，而不是数据累积

乱纪元

你好：
    使用DoCmd.TransferSpreadsheet导入表，发现第二次导入时，第二次导入表格数据累积到第一次导入的表格之下。请问，如何在每次导入过程当中，覆盖导入，即删除原先数据只保留最新数据。谢谢

原代码如下
DoCmd.TransferSpreadsheet acImport, , "表1", "D:\课件\123.xls", True, "A8:V"

qjiangxi

运行这一句前加一个先清光表1中的数据操作。

乱纪元

qjiangxi 发表于 2014-2-12 23:37
运行这一句前加一个先清光表1中的数据操作。

代码怎么写呢？烦请教一下，谢谢

乱纪元

部分解决：下面两种方法都不完美。需要实现删除表格内容，但保留表格（保留第一行标题）。
方法1：先删除整张表格（从数据库中删除表），再重新导入。该方法可以通过，但不是我想要的
Private Sub Command1_Click()
DoCmd.DeleteObject acTable, "表1"
DoCmd.TransferSpreadsheet acImport, , "表1", "D:\123.xls", True, "A8:V"
End Sub


方法2：会报错，只清除表格内容，但保留表格（保留第一行标题），再导入表格（包括第一行）
Private Sub Command1_Click()
Dim SQL As String
SQL = "DELETE FROM 表1"
DoCmd.RunSQL SQL
DoCmd.TransferSpreadsheet acImport, , "表1", "D:\123.xls", True, "A8:V"    '将导入数据的第一行作为标题，提示报错
End Sub


方法3：会报错，只清除表格内容，但保留表格（保留第一行标题），再导入表格（不包括第一行）
Private Sub Command1_Click()
Dim SQL As String
SQL = "DELETE FROM 表1"
DoCmd.RunSQL SQL
DoCmd.TransferSpreadsheet acImport, , "表1", "D:\123.xls", False, "A9:V"    '导入数据不导入标题所在行，但提示不存在字段“F1”
End Sub



请问：有那种方法可以实现，①清楚表格内容（保留第一行标题）；②导入表格（从第8行导入，第8行是标题，第9行是数据）

乱纪元

乱纪元 发表于 2014-2-13 10:12
部分解决：下面两种方法都不完美。需要实现删除表格内容，但保留表格（保留第一行标题）。
方法1：先删除整 ...

用这种方法会导致，字段数据类型变化，导致后续的查询过程出错。还是没解决