Private Sub Command5_Click()
Me.Child0.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim obj As Object
Set obj = CreateObject(excel.application)
obj.workbooks.Add
o ...
'摘自 Allen Browne 的技巧 Declare Function abOpenClipboard Lib User32 Alias OpenClipboard (ByVal Hwnd As Long) As Long
Declare Function abCloseClipboard Lib User32 Alias CloseClipboard () As Long
De ...