了解操作EXCEL的请进来一下

懂得操作EXCEL的请进来一下
好奇怪的一个内容，请看一下我的代码：

[代码一：]
            Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
            xlApp.Workbooks.Open tRunStr '打开已经存在的EXCEL工件簿文件
            SetParent xlApp.hWnd, pc_Document.hWnd
            xlApp.Visible = True

[代码二：]
            Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
            xlApp.Workbooks.Open tRunStr '打开已经存在的EXCEL工件簿文件
            xlApp.Visible = True
            SetParent xlApp.hWnd, pc_Document.hWnd

其中问题就是，如果运行代码一，是可以在我的文档里面显示EXCEL的内容，菜单等等都可以点，但EXCEL的工作簿却是无法获取焦点，也无法修改，类似于设置了Enabled属性一样，运行代码二的话，一切正常，但前提是系统会先闪烁一下，然后在运行SetParent，感觉不爽，所以想通过运行代码一来操作，能解决吗？谢谢！！！