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

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

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

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

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

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

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

我知道怎么回事儿了，我用的是wps的事儿！

弱弱的问一句：软件支持用代码操作wps表格么？

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

 

 

代码一样？是不是需要将Dim App As New MSExcel.Application 改成Dim App As New et.Application？这样能行吗？