把C:\My Document\报表1.xls直接导入Access表的表1，（如果表1已经存在，则将其覆

bfwz · 发表于 2005-7-31 19:18:00

把C:\My Document\报表1.xls直接导入Access表的表1，（如果表1已经存在，则将其覆盖），请教高手如何写VBA

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

bfwz · 发表于 2005-7-31 19:27:00

上面的报表1.xls的第一行不作为字段名，字段名用a,b,c,.....或字段1、字段2、字段3....,

sjds333 · 发表于 2005-7-31 22:14:00

DoCmd.TransferSpreadsheet acImport, 8, "报表1", "C:\My Document\报表1.xls", True, ""

Benjamin_luk · 发表于 2005-7-31 22:28:00

在导入之前先用以下代码将表1删除就可以了For Each TableDef In CurrentDb.TableDefs

If TableDef.Name= "表1" Then

DoCmd.DeleteObject acTable, TableDef.Name

End If

Next TableDef

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

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

浏览过的版块

群介绍
主题无相 (随机显示版	同地区群块其他地区)