VB 移动已打开工作薄的工作表
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不会写。