我对VBA相对来说比较新,并且很遗憾为什么我无法从Word中粘贴到Excel中。以下宏最终将值粘贴到Word中,即使我认为我正在激活Excel文档。
该宏旨在从Word运行;然后需要将来自各种FormField的值粘贴到现有Excel文件中的单元格中。 我搜索了一个类似的问题,虽然返回的结果似乎是我所经历的变化,我无法修改这些答案。 任何帮助,将不胜感激。VBA - 从Word运行宏以将值粘贴到Excel中
Sub Transfer()
Dim WD As Object
Dim ED As Excel.Application
Dim EDS As Excel.Workbook
Set WD = ActiveDocument
Set ED = CreateObject("excel.application")
ED.Visible = True
Workbooks.Open FileName:= _
"C:\Users\Documents\AppealData.xlsx"
ActiveWorkbook.Activate
Set EDS = ActiveWorkbook
WD.FormFields("AppNum").Copy
EDS.Activate
EDS.Sheets("Sheet1").Range("A1").Select
Selection.Paste
End Sub
为什么不从EXCEL运行宏并读取文件,然后将其粘贴到EXCEL中? – JahKnows
Word文档将被填写;目的是让填写Word表格的用户在填写表格后运行宏,将各种表单域的值发送到Excel以便每月跟踪Word表单。在本月底,希望有一个Excel文件包含所有的Word数据。 –
好的,你可以张贴一个你的word文件样本 – JahKnows