如何导出数据表型子窗体内容到Excel-Access

2025-03-04 19:13:59
推荐回答(2个)
回答1:

Private Sub Command1_Click()
Dim obj As Object
Me![子窗体名称].SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
DoEvents
SendKeys "{TAB}", True
Set obj = CreateObject("Excel.Application")
obj.Workbooks.Add
obj.Visible = True
SendKeys "^v", True
End Sub

回答2:

这个需要VBA实现了,定义EXCEL对象