[已解决][求助]东跑西问还是这里的老师热情，请帮助解决将excel内容复制到word里等问题

zzh49 · 发表于 2011-6-17 12:43

各位老师好，请帮助用VBA解决将excel内容复制到word里等问题。谢谢！
附件里有详细说明。
附件：

求助附件.rar (7.87 KB, 下载次数: 35)

amulee · 发表于 2011-6-17 12:58

这个最佳答案由 amulee 给出，感谢 amulee 的回答。

单击隐藏图章

Sub Createword()
Dim appWD As Object
Dim Wd As Object
Dim Rng As Range
Set Rng = Sheet3.UsedRange
If Not IsEmpty(Rng) Then
Set appWD = CreateObject("Word.Application")
Set Wd = appWD.Documents.Add
Rng.Copy
Wd.ActiveWindow.Selection.PasteExcelTable False, True, False
Wd.SaveAs ThisWorkbook.Path & "\附件" & Sheet3.Range("A1").Value & ".doc"
Wd.Close
MsgBox "Word文件创建完毕"
Else
MsgBox "Sheet3为空"
End If
End Sub

复制代码

zzh49 · 发表于 2011-6-17 13:49

回复 amulee 的帖子

谢谢您，版主老师。
您写的代码我试了好多次，可Wd.SaveAs ThisWorkbook.Path & "\附件\" & Sheet3.Range("A1").Value & ".doc"这一句总是变黄色，通不过。
请看一下，另外我在附件里写错了，应该是复制SHEET2的内容，不过这没有关系。sheet3也行。关键是上面那一句代码。

wldlg · 发表于 2011-6-17 13:56

路过看看，看不大懂

zzh49 · 发表于 2011-6-17 14:06

找到原因了，应该改为Wd.SaveAs ThisWorkbook.Path & "\附件\" & Sheet1.Range("A1").Value & ".doc"
谢谢老师！

zzh49 · 发表于 2011-6-17 14:21

回复 amulee 的帖子

老师还有问题请教，复制到word的格式、字号、字体都发生了改变，怎么处理？还有网格线怎么去掉？
请老师费心处理一下。
谢谢！

amulee · 发表于 2011-6-17 14:42

下面这句改一下：Wd.ActiveWindow.Selection.PasteExcelTable False, True, False
这个True表示保留原来的格式，你可以改成False使用Word默认的
Wd.ActiveWindow.Selection.PasteExcelTable False, False, False

amulee · 发表于 2011-6-17 14:46

另外，最好把Word程序关掉。可以加一句

appWD.Quit

zzh49 · 发表于 2011-6-17 14:58

回复 amulee 的帖子

l老师：格式、字体都好了，可还有网格线。appWD.Quit不知道加在何处。
谢谢老师不厌其烦的帮助。

amulee · 发表于 2011-6-17 15:36

你是指把表格转换为正常文字？

		自动登录	找回密码
密码			注册

[已解决][求助]东跑西问还是这里的老师热情，请帮助解决将excel内容复制到word里等问题

评分