主题：关于表格粘贴的问题

 excel、word等Office文件有一个自己的复制粘贴板，之间的复制粘贴能保持格式

 

 在word中粘贴实际上是执行了如下代码 Selection.PasteExcelTable(False, False, False)

 不行。

 

要不你就复制的时候，打开一个excel，复制进去，再复制excel的内容.......

 没有办法，只有4楼的方法。

在foxtable拷贝内容以后，运行下面代码，再往word里面粘贴

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.Saved = True
ws.paste
ws.UsedRange.copy
app.DisplayAlerts = False
'app.visible = True
app.quit

excel里面word里面一样是嵌套

 代码和MS Office是一样的。

 直接写代码，不用改。支持就支持，不支持的话，wps升级到最新版