vba将excel内容导入到word中格式得问题

rucmathlsj

LsNDL1V4.rar (11.93 KB, 下载次数: 45)

2006-3-18 12:00 上传

点击文件名下载附件
vba将excel内容导入到word中格式得问题

运行宏后，数据区域和图表内容会导入到word中，不过现在得导出结果中两个图表是重叠得，可不可以依次向下排呢，谢谢

守柔

我简单地做了一下修改，不是很满意，请楼主测试

Option Explicit

Sub XLSDataSaveAsDoc()
Dim rng As Range
Dim rDATA As Range
Dim wd As Word.Application, wdRange As Word.Range, wdShape As Word.Shape
Dim tubiao As Object, wdDoc As Word.Document

Set rDATA = Range(Cells(1, 1), Cells(15, 5))
Set tubiao = ChartObjects("图表 4")


Set wd = CreateObject("word.application") ' 创建 WORD 实例

wd.Visible = True ' 使 WORD 可见
AppActivate wd.Name ' 激活 WORD 窗口
Set wdDoc = wd.Documents.Add ' 添加一新文档
With wdDoc
rDATA.Copy
.Range(0, 0).Paste
tubiao.Copy
Set wdRange = .Range(.Content.End - 1, .Content.End - 1)
wdRange.Paste
Set wdShape = .Shapes(1)
wdShape.ConvertToInlineShape
.InlineShapes(1).Range.Cut
wdRange.Paste
.SaveAs ThisWorkbook.Path & "\数据源.doc"
End With
AppActivate Application.Name ' 激活 EXCEL 窗口
MsgBox "作业已完成. 文件已保存为: " & vbCrLf & ThisWorkbook.Path & "\数据源.doc"

Set wd = Nothing

End Sub