导出子窗体数据至Execl时，出现msiexec.exe安装

根据殷小宝的帖子，将子窗体数据导出到Excel的代码如下：

Private Sub 导出_Click()

    Dim obj As Object

    Me![child1].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

运行时，在部分机子上能正常导出数据，而在另一部分机子上出现了msiexec.exe安装界面，根据提示安装也不能正常导出数据至Execl，查看任务管理器，有Execl运行，但没有显示Execl程序。

重新安装offices2003后还是不能解决，这些机子上的Execl能正常打开，没有问题。

何解？