vba图表怎么复制到word

1.用VBA把Excel中的表粘贴到Word?

忘记说了，要加入word的Object library才行的。

方法：

在excel的vb编辑器菜单中，选“工具”---“引用”---在那列表中往下找“Microsoft Word 9.0 Object Library”，把它前面的框勾上，确定。

这样执行就没错了。

Sub Macro1()

Dim appWD As Word.Application, doc As Object

Range("A1:C3").Select

Selection.Copy

Set appWD = CreateObject("Word.Application")

appWD.Visible = True

Set appWD = GetObject(, "Word.Application")

Set doc = GetObject("D:\doc1.doc")

appWD.Visible = True

With appWD.Selection.Find

.Text = "指定位置"

.Wrap = wdFindContinue

End With

appWD.Selection.Find.Execute

appWD.Selection.MoveRight Unit:=wdCharacter, Count:=1

appWD.Selection.TypeParagraph

appWD.Selection.MoveLeft Unit:=wdCharacter, Count:=1

appWD.Selection.PasteExcelTable False, False, False

appWD.Quit (wdSaveChanges)

End Sub

2.请教:如何用VBA把数据从一个表复制到另一个表中?

其实你提出的这个问题，用函数就可以解决。

涉及跨表存取数据，打开表执行查找后再关闭，程序的运行效率不高。 下面的代码实际就是用函数执行查找，然后处理成数值，感觉可能要快一点。

引用各科成绩的数据原理和引用考场号是一样的，只要修改代码中公式的内容就好了， Sub 从登分表中导入考场座号数据（） Application。 ScreenUpdating = False Dim wstTemp As Worksheet, intRow% For Each wstTemp In ActiveWorkbook。

Worksheets With wstTemp intRow = 。 [A65536]。

End(xlUp)。Row If wstTemp。

Name Like "*文*" Then 。Range("G3:G" & intRow)。

FormulaR1C1 = "=VLOOKUP(RC[-6]，[文登分表。 xls]文科登分表！C1:C5,4,0)" 。

Range("H3:H" & intRow)。FormulaR1C1 = "=VLOOKUP(RC[-7]，[文登分表。

xls]文科登分表！C1:C5,5,0)" 。Range("G3:H" & intRow)。

Copy 。Range("G3:H" & intRow)。

PasteSpecial xlPasteValues, xlNone, False, False ElseIf wstTemp。Name Like "*理*" Then 。

Range("G3:G" & intRow)。FormulaR1C1 = "=VLOOKUP(RC[-6]，[理登分表。

xls]理科登分表！C1:C5,4,0)" 。Range("H3:H" & intRow)。

FormulaR1C1 = "=VLOOKUP(RC[-7]，[理登分表。 xls]理科登分表！C1:C5,5,0)" 。

Range("G3:H" & intRow)。Copy 。

Range("G3:H" & intRow)。PasteSpecial xlPasteValues, xlNone, False, False End If End With Next Application。

ScreenUpdating = True End Sub Sub 清除考场座号数据（） Application。ScreenUpdating = False Dim wstTemp As Worksheet, intRow% For Each wstTemp In ActiveWorkbook。

Worksheets With wstTemp If wstTemp。Name Like "*文*" Or wstTemp。

Name Like "*理*" Then intRow = 。[A65536]。

End(xlUp)。 Row 。

Range("G3:H" & intRow)。ClearContents End If End With Next Application。

ScreenUpdating = True End Sub。

3.高分：Excel图表写入Word的VBA代码

Private Sub CommandButton1_Click()

'VBA工程中点工具下的引用，添加引用：Micrsoft Word 9.0 Object Library

On Error Resume Next

Dim waSolution As Word.Application

Dim wdDocument As Word.Document

Dim strPathA As String

strPathA = "C:\1.doc" '事先建好的指定word文档，用于保存

' Macro1 Macro

' 宏由 小路工作室 录制，时间： 2009-9-23

'

'

ActiveSheet.ChartObjects（"图表 2"）.Activate

ActiveChart.ChartArea.Select

ActiveChart.Axes(xlValue).MajorGridlines.Select

ActiveChart.PlotArea.Select

ActiveChart.ChartArea.Select

ActiveChart.ChartArea.Copy

Set waSolution = CreateObject("Word.Application")

waSolution.Visible = True

waSolution.Activate

waSolution.WindowState = wdWindowStateMaximize

Set wdDocument = waSolution.Documents.Add()

'wdDocument.Application.Selection.PasteExcelTable False, True, True

wdDocument.Application.Selection.PasteAndFormat (wdChartPicture)

wdDocument.SaveAs strPathA

End Sub

4.excel表格怎么复制到word

步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下 Ctrl+C 复制；

步骤二、打开Word，然后选择菜单栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“Microsoft Office Excel 工作表 对象”然后确定；

此时，就已经把编辑好的Excel表格导入到Word中了，有的人这时肯定会说，这还不是和Word中表格没什么却别啊！确实，就这样用肉眼看，根本就看不错这个表格和Word中做的表格有什么不一样之处；

区别肯定是有的，不信你双击表格看看，会是什么效果，没错把，导入的表格和Excel中的表格一模一样，当然，这个表格也可以自由拖动它的长和宽，还可以运用Excel中的公式呢！