[求助][已解决] 如何用vba代码实现把execel文件连接成表?

yuanrongfa

因为工作需要，想在窗口里实现通过点击按钮后就会弹出连接数据表的对话框，请问高手门这可不可以实现的啊？

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

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

yuanrongfa

有没有人知道啊？想了一天都没想出来啊

nxjswt

建立以个宏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

参考：http://doc.readmen.com/2/148222.shtml

yuanrongfa

非常感谢!