Office中国论坛/Access中国论坛

标题: [求助][已解决] 如何用vba代码实现把execel文件连接成表? [打印本页]

作者: yuanrongfa 时间: 2006-6-7 19:47
标题: [求助][已解决] 如何用vba代码实现把execel文件连接成表?
因为工作需要，想在窗口里实现通过点击按钮后就会弹出连接数据表的对话框，请问高手门这可不可以实现的啊？

要实现的功能就像是　表那里　右键　然后选择链接表　所弹出的对话框(如下图)

[attach]18358[/attach]
[attach]18359[/attach]

[此贴子已经被LucasLynn于2006-6-9 11:35:33编辑过]

作者: yuanrongfa 时间: 2006-6-8 00:53
有没有人知道啊？想了一天都没想出来啊

作者: nxjswt 时间: 2006-6-8 02:52
建立以个宏1，然后在建立个菜单，在菜单的属性的当前操作引用宏1！

Option Compare Database
Option Explicit

'------------------------------------------------------------
' 宏1
'
'------------------------------------------------------------
Function 宏1()
On Error GoTo 宏1_Err

DoCmd.TransferSpreadsheet acImport, 8, "sheet1", "d:\ttt.xls", False, ""

宏1_Exit:
Exit Function

宏1_Err:
MsgBox Error$
Resume 宏1_Exit

End Function

[此贴子已经被作者于2006-6-7 18:56:03编辑过]

作者: fan0217 时间: 2006-6-8 08:29
参考：http://doc.readmen.com/2/148222.shtml

作者: yuanrongfa 时间: 2006-6-8 16:34
非常感谢!

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