作者ptguitar (佩蒂吉他)
看板Office
标题[算表] excel 贴到word巨集问题
时间Wed Jun 6 15:33:27 2018
软体:excel
版本:2007
我有个excel档案里面的表格想贴入word内
每贴一个表格就插入换页符号 把下一个表格贴到下一页去
vba这样写:
Set WdObj = CreateObject("Word.Application") '设定开启word程式
With WdObj
.Visible = False '执行时候不要看见word
.Documents.Add '增加一个新的word档案
a = WorksheetFunction.Max(Range("H1:H100")) + 1
Range("A1:G" & a).Copy
.Selection.PasteExcelTable False, False, False
.Selection.TypeParagraph
.Selection.InsertBreak Type:=wdPageBreak
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
都会错在这一行
不知道正确的插入换页符号在这边要怎麽写?
b = WorksheetFunction.Max(Range("N1:N100")) + 1
Range("I1:M" & b).Copy
.Selection.PasteExcelTable False, False, False
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.78
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1528270410.A.FD4.html
1F：→ ptguitar: 我找到解决方式 06/06 15:38
2F：→ ptguitar: 改成 .Selection.InsertBreak Type:=7 06/06 15:38