Office中国论坛/Access中国论坛

标题: 把C:\My Document\报表1.xls直接导入Access表的表1，（如果表1已经存在，则将其覆 [打印本页]

作者: bfwz 时间: 2005-7-31 19:18
标题: 把C:\My Document\报表1.xls直接导入Access表的表1，（如果表1已经存在，则将其覆
把C:\My Document\报表1.xls直接导入Access表的表1，（如果表1已经存在，则将其覆盖），请教高手如何写VBA

就是不希望对话框出现，一单击命令按钮，就直接导入表

作者: bfwz 时间: 2005-7-31 19:27
上面的报表1.xls的第一行不作为字段名，字段名用a,b,c,.....或字段1、字段2、字段3....,

作者: sjds333 时间: 2005-7-31 22:14
DoCmd.TransferSpreadsheet acImport, 8, "报表1", "C:\My Document\报表1.xls", True, ""

作者: Benjamin_luk 时间: 2005-7-31 22:28
在导入之前先用以下代码将表1删除就可以了For Each TableDef In CurrentDb.TableDefs

If TableDef.Name= "表1" Then

DoCmd.DeleteObject acTable, TableDef.Name

End If

Next TableDef

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)