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

将表中的某个区域数据复制往word中粘贴时，没有了表格线，表格线成了tab和回车换行符；但选择excel的某个区域数据往word中粘贴就能直接粘贴成表格，这个原理是什么？有什么办法可以将table的某个区域数据粘贴到word时保留表格线？

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

 

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

那有什么办法通过整理剪贴板，将其整理成excel的格式？

 不行。

 

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

就是因为这个办法太蹩脚，所以才考虑是否可以直接粘贴，工作中涉及大量的这样的粘贴动作，想一劳永逸解决问题。

老师们再想想办法，一定可以有办法解决的！

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

你的意思是不是直接通过代码复制到excle后，再用代码复制excel的表格区域，这样就可以粘贴到word了，而不是手工往excel里粘！

在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

试过了，运行上述代码后，往word空白处粘贴是保留表格状态的，但是往word的已有表格中粘贴就会粘贴成嵌套状态，而用手工选择excel粘就不是嵌套l状态，看还需要加入什么代码避免粘成嵌套？