作者：绿色风
分类：
时间：2022-08-17
浏览：142
楼主
chrisfang |
Q：如何将Excel中的数据写入Word并保存？
A：将Excel文档内容写入Word并保存的方法有很多，以下以VBscript对象的用法为例，使用VBA的方法将当前工作表中的数据内容按行写入Word文档并保存。
- Sub saveasdoc()
- fileToSave = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path & "\另存文档.doc", _
- fileFilter:="Word Files (*.doc), *.doc")
- If fileToSave <> False Then
- Set objword = CreateObject("Word.Application")
- Set objDoc = objword.Documents.Add()
- For i = 1 To Range("A65536").End(xlUp).Row '03版本的范围，07版本可作相应更改
- For j = 1 To Range("IV" & i).End(xlToLeft).Column '03版本的范围，07版本可作相应更改
- txttemp = txttemp & Cells(i, j) & " "
- Next j
- objDoc.Content.Text = objDoc.Content.Text & txttemp
- txttemp = ""
- Next i
- objword.ActiveDocument.SaveAs fileToSave
- objword.Quit
- Set objword = Nothing
- Set objDoc = Nothing
- End If
- End Sub
 另存word.rar
|
2楼
denial0000 |
thank you ！ 希望能实现自己想要的效果。 |
3楼
paul001 |
VBA 能实现的功能真多
不过为什么我打开转换的word时会提示转换错误呢 但是最终还是能打开 是因为保存的是2003版本的原因么 |
4楼
paul001 |
VBA 能实现的功能真多
不过为什么我打开转换的word时会提示转换错误呢 但是最终还是能打开 是因为保存的是2003版本的原因么 |
5楼
paul001 |
VBA 能实现的功能真多
不过为什么我打开转换的word时会提示转换错误呢 但是最终还是能打开 是因为保存的是2003版本的原因么 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一