作者rafaiero (路人甲)
看板Office
標題Re: [問題] excel有可能執行一鍵複製指定欄位內容嗎
時間Fri Nov 22 14:28:32 2019
在諸多大神幫忙下，再加上自己發現可以從word巨集那邊看，總算完成一鍵複製不帶格式
功能
Excel 從VBA的選單 " 工具 " -> "設定引用項目" Step 2 , 按瀏覽 , 接著去路徑 C:\P
rogram Files\Microsoft Office\Office12\
裡面會有一個 MSWORD.OLB的檔案引用。
以下是vba內的寫法
Sub 測試()
'
' 測試 巨集
'
Dim appWD As Word.Application
Set appWD = Nothing
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Documents.Add '以上都是創出word檔
Sheets("工作表4").Select
Range("A1:A4").Copy
appWD.Selection.PasteAndFormat (wdFormatPlainText) '(wdFormatPlainText)代表不
引用表格，這個其實我是在word內執行巨集時回去看vba怎麼寫的再套入到excel內就成功
了
appWD.Selection.WholeStory '因為要用在其他的文件(非word)裡，如果沒有再複製一次
，剪貼的內容一樣含表格，所以再全選一次word內的文字
appWD.Selection.Copy '再複製一次
appWD.Documents.Close SaveChanges:=False '關閉word檔且不儲存
appWD.Quit '關閉word程式
Set appWD = Nothing
Sheets("工作表2").Select '回到原工作表
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.136.248.106 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1574404114.A.B84.html
※ 編輯: rafaiero (223.136.248.106 臺灣), 11/22/2019 14:29:42
※ 編輯: rafaiero (223.136.248.106 臺灣), 11/22/2019 15:01:57