VB连接已经打开的EXCEL文件

求帮助，现有EXCEL已经打开，如何实现连接已经打开的EXCEL然后对任意的SHEET进行操作？
Dim xlapp1 As Excel.Application 
Dim xlbook1 As Excel.Workbook 
Dim xlsheet1 As Excel.Worksheet 

Set xlapp = CreateObject("Excel.Application")
Set xlbook = ？？？？？————————————这里是不是填上什么代码就解决了？
Set xlsheet = xlbook.Worksheets("页码")

求大神帮助 --------------------编程问答-------------------- Set xlbook = ？？？？？————————————这里是不是填上什么代码就解决了？

这里填写的应该xlapp打开文件或创建文件后的工作本实例...对于已经打开的进程好像不能直接操作吧 --------------------编程问答--------------------

Set xlapp1 = GetObject(, "Excel.Application") '取得现有实例

Set xlbook1 = xlapp1.Workbooks("Book1.xls") '按文件名取得打开的文件

--------------------编程问答-------------------- 能否考虑excel的宏命令啊，我只是猜想一下。

补充：VB ,  基础类