excel中vba将excel中数字和图表输出到word中

参考：https://wenku.baidu.com/view/6c60420ecc175527072208af.html

---

 

比如将选区变为图片保存到桌面：

Sub 将选区转为图片存到桌面()
  Dim ans As Byte, Pic As String, Paths As String
  On Error Resume Next
  Paths = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" '记录“桌面”文件夹的路径
star:
  '选择导出图片的格式
  ans = Application.InputBox("输入1：保存为BMP图片；" + Chr(10) + "输入2：保存为PNG图片；" + Chr(10) + "输入3：保存为JPG图片。", "图片格式", 1, , , , , 1)
  If err <> 0 Then MsgBox "只能输入1到3", 64, "提示": err.Clear: GoTo star '如果有误（输入的值在0-255之外）则返回重新输入
  If ans < 1 Or ans > 3 Then MsgBox "输入错误": GoTo star '如果不等于1、2、3则重新输入
  Pic = Choose(ans, ".BMP", ".PNG", ".JPG") '在三种格式间选择
  If TypeName(Selection) = "Range" Then '如果选择的对象是单元格
    Dim rng As Range
    Set rng = Selection '将选区赋与变量rng
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture '将rng区域复制为图片
    ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count + 1).Cells(1).Select '选择一个空单元格
    With ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height).Chart '生成图表
      .Paste  '将图片粘贴到图表中
      .Export Paths & Replace(rng.Address(0, 0), ":", "-") & Pic '将图表导出为图片文件
      .Parent.Delete '删除图表对象
    End With
    rng.Select '选择rng对象
  End If
  Shell "EXPLORER.EXE " & Left(Paths, Len(Paths) - 1), vbMaximizedFocus '打开桌面
End Sub

---

下面参考这个：

 http://excel-macro.tutorialhorizon.com/vba-excel-create-and-save-the-word-document/

VBA-Excel: Create and Save the Word document

BY SJ · JUNE 12, 2013

 

For cre­at­ing and sav­ing the Microsoft Word Doc­u­ment using Microsoft Excel, you need to fol­low the steps below:

• Cre­ate the object of Microsoft Word
• Cre­ate a doc­u­ment object and add doc­u­ments to it
• Make the MS Word visible
• Cre­ate a Selec­tion object with the help of WordObject.
• Use this Selec­tion object to type the text into the WordDocument.
• Save the document

 

Cre­ate the object of Microsoft Word

Set obj­Word = CreateObject(“Word.Application”)

Cre­ate a doc­u­ment object and add doc­u­ments to it

Set obj­Doc = objWord.Documents.Add

Make the MS Word Visible

objWord.Visible = True

Cre­ate a Selec­tion object with the help of WordObject.

Set objS­e­lec­tion = objWord.Selection

Use this Selec­tion object to type the text into the WordDocument.

objSelection.TypeText (“This is my text in Word Doc­u­ment using Excel”)

Save the Document

objDoc.SaveAs (“D:\MyFirstSave”)

 

Com­plete Code:

Function FnWriteToWordDoc()

   Dim objWord

   Dim objDoc

   Dim objSelection

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Add    

   objWord.Visible = True

   Set objSelection = objWord.Selection

   objSelection.TypeText ("Saving this file after this text")

   objDoc.SaveAs ("D:\MyFirstSave")

End Function