用VBA把Excel中的表粘贴到Word?
我想把Excel中的表格(比如A1:C3)粘贴到word中的指定位置(比如粘贴到“指定位置”这几个字之后),应该怎么做,请大家帮忙!非常感谢,已经搞定了!不过在直接用你的...
我想把Excel中的表格(比如A1:C3)粘贴到word中的指定位置(比如粘贴到“指定位置”这几个字之后),应该怎么做,请大家帮忙!
非常感谢,已经搞定了!
不过在直接用你的程序运行时提示
“appWD.Selection.PasteExcelTable False, False, False”
有错,我直接把“ExcelTable False, False, False”删了就没有报错了,但是不知道是什么原因。
不好意思,VB懂得太少!
再次感谢! 展开
非常感谢,已经搞定了!
不过在直接用你的程序运行时提示
“appWD.Selection.PasteExcelTable False, False, False”
有错,我直接把“ExcelTable False, False, False”删了就没有报错了,但是不知道是什么原因。
不好意思,VB懂得太少!
再次感谢! 展开
展开全部
忘记说了,要加入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
方法:
在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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询