不能导出至Excel表

jia　发表于：2011-08-28 10:30:41 　

复制

各位老师好：

在窗口中有一个“导出”按钮再表无有拆分时可以导出，但拆分数据库后无有导出数。求教？

谢谢

Top

丘山发表于：2011-08-28 10:45:19

你把按钮事件代码贴出来

另外能说一下是表拆分还是数据库拆分？

Top

jia 发表于：2011-08-28 11:01:14

是表拆分。

导出代码：

Private Sub Label8_Click()
On Error GoTo Err_Label8_Click
Me![出入局光缆子窗体].SetFocus    '把焦点移动子窗体上
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
    Dim obj As Object
    Set obj = CreateObject("Excel.Application")
    obj.Workbooks.Add
    obj.Visible = True
    SendKeys "^v"
Exit_Label8_Click:
    Exit Sub
Err_Label8_Click:
    MsgBox Err.Description
    Resume Exit_Label8_Click
End Sub

Top

丘山发表于：2011-08-28 17:07:34

从代码看，只要你的子窗体有数据就应该没问题啊，还有，你可以在excel打开后手工Ctrl+v一下看看，内容是否复制，如果内容已复制说明应该是打开excel之后的粘贴代码不能正确执行

Top

赵文斌发表于：2011-08-28 18:28:01

If DCount("*", "TABCZC") <= 0 Then Exit Sub '判断数据源表是不是为空
Me.Child.SetFocus
Dim Obj As Object
        DoCmd.RunCommand acCmdSelectAllRecords
        DoCmd.RunCommand acCmdCopy
        Set Obj = CreateObject("excel.application")
        Obj.Application.Workbooks.add
        Obj.Application.Visible = True
        SendKeys "^v"

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

不能导出至Excel表