[算表] excel 貼到word巨集問題
軟體: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://www.ptt.cc/bbs/Office/M.1528270410.A.FD4.html
→
06/06 15:38,
7年前
, 1F
06/06 15:38, 1F
→
06/06 15:38,
7年前
, 2F
06/06 15:38, 2F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
