主题：拷贝到当前打开的Excel表格

必须是从foxtable里面打开的excel文件，foxtable才能控制。

你可以先打开一个，如

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
vars("myapp") = app
vars("mywb") = wb
vars("myws") = ws
app.visible = True

以后使用的时候，直接用变量

vars("myapp")
vars("mywb")

vars("myws")