上万行EXCEL数据复制到WORD里好卡

teshia

有什么好方法吗
含 公式

试了，几种方法
1、导出 网页格式，照样卡，而且  版式虽然不变，但 宽度不对，还要 调整
2、复制纯数值，再复制格式，得出 不含 公式的排版，还卡

电脑问题？
8G i5

teshia

朱荣兴 发表于 2017-6-12 18:43
泛泛而谈，没法帮你，请上传你的excel附件，说明具体的要求，其实可以考虑在excel中开完成的。

上万条数据.rar (570.88 KB, 下载次数: 20)

2017-6-16 07:19 上传

点击文件名下载附件

就是普通的  上万行数据的表格
上传个附件

拷贝一下，要好几分钟才能反应过来，有时要十多分钟
然后再微调格式，又要反应好久

LMY123

e to w留步观察

teshia

LMY123 发表于 2017-6-16 09:38
e to w留步观察

这是什么意思

jiminyanyan

excel  to  word.....

teshia

jiminyanyan 发表于 2017-6-17 06:54
excel  to  word.....

正好在，顺便问句

如何改字体大小，和字体
还在设置　WORD中表格　属性中　边框为全部

试了　大小，没效果

1. Sub 简易生成()
   
2. Dim Myword As Object
   
3. Dim Wordapp As Object
   
4. Dim Mypath As String
   
5. tt = Timer
   
6. Application.DisplayAlerts = False
   
7. Application.ScreenUpdating = False
   
8. Mypath = ThisWorkbook.Path
   
9. Set Wordapp = CreateObject("word.Application")
   
10. Set Myword = Wordapp.Documents.Add
    
11. With Sheets("Sheet1")
    
12.   .UsedRange.Copy
    
13. End With
    
14. With Wordapp
    
15.   .Visible = True '设置word为可见
    
16.   .Activate
    
17.   .Selection.PasteExcelTable False, False, False
    
18.   .Selection.Font.Size = 15
    
19.    With Myword
    
20.     .SaveAs Filename:=Mypath & "" & "测试文档"
    
21.     .Close
    
22.    End With
    
23.   .Quit
    
24. End With
    
25. Set Myword = Nothing
    
26. Set Wordapp = Nothing
    
27. Application.CutCopyMode = False
    
28. Application.DisplayAlerts = True
    
29. Application.ScreenUpdating = True
    
30. MsgBox ("文档已成功输出至当前文档下！用时" & Timer - tt & "秒"), 64
    
31. End Sub
    

复制代码

teshia

附件在三楼，目前用代码可以到WORD，但不能调整格式

2506977288

有解决了吗