Office中国论坛/Access中国论坛

标题: 宏组/代码/excel [打印本页]

作者: hzj2000 时间: 2004-4-17 03:57
标题: 宏组/代码/excel
把excel表---澄清汁.xls导入已做好的同名access表中, 为了防止出现相同纪录,我
做了一个宏组,但不知何故实现不了.  可按照此宏组的思路做成的代码却又能实现.
  (相关附件如下)
代码如下:
Private Sub Command1_Click()
On Error GoTo Command1_Click_Err

DoCmd.TransferSpreadsheet acImport, 8, "澄清汁", "C:\数据源\澄清汁.xls", True, "a8:l150"
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "生成tmp表查询", acViewNormal, acEdit

DoCmd.DeleteObject acTable, "澄清汁"
DoCmd.OpenQuery "生成澄清汁表查询", acViewNormal, acEdit
DoCmd.DeleteObject acTable, "tmp"

Command1_Click_Exit:
Exit Sub

Command1_Click_Err:
MsgBox Error$
Resume Command1_Click_Exit

End Sub

作者: sea.er 时间: 2004-4-17 05:40
你应该把库传上来

作者: hzj2000 时间: 2004-4-17 06:41
[attach]4280[/attach]

已上传
请阅

作者: hzj2000 时间: 2004-4-20 04:40
天使&海豚版主
请帮俺看一下,给个回复好吗,感激不尽.

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