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