作者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/m.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