以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  word请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68994)
--  作者：hbhb
--  发布时间：2015/5/28 18:11:00
--  word请教
请问大师：excel表复制粘贴到word文档的某个位置的vba代码？
--  作者：大红袍
--  发布时间：2015/5/28 19:27:00
--  

参考代码，几个sheet的拷贝粘贴，word一样。去论坛搜索MSword的代码

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") \'指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select \'横向拷贝

\'ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select \'纵向拷贝
ws3.paste

\'Wb.Save
app.Visible = True
\'App.Quit