Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
　If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
　　Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
　　xlApp.Visible = True '设置EXCEL可见
　　Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
　　Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表

'问题来了，怎么把已打开的bb工作薄，Sheet1表，移动到新工作薄中。

VBA是这样操作的。 Sheets("Sheet1").Select
                  Sheets("Sheet1").Move

VB 操作：xlBook.Worksheets("Sheet1").Select
        下面Move不会写。