如何使用word VBA将选定内容从Word复制到excel

您所在的位置：网站首页 › excel怎么开启vba › 如何使用word VBA将选定内容从Word复制到excel

如何使用word VBA将选定内容从Word复制到excel

2023-03-24 14:25| 来源: 网络整理| 查看: 265

我正在尝试将word从我的word文档复制到excel工作簿中的特定单元格。我已经使用Bookmark找到我需要的文本并复制它，然后我打开工作簿粘贴到一个特定的单元格-这是一个vlookup引用。

我的代码运行了，但是粘贴并没有实际发生。我知道代码的复制部分是有效的，因为当我运行到这一点，然后手动粘贴所选内容时，它工作得很好。我已经尝试了多种粘贴选项，但到目前为止都不起作用。

Selection. Paste Selection.PasteSpecial (xlPasteAll) Selection.PasteSpecial (xlPasteValues)

下面是我的代码：

Sub copypastewordtoexcel() Dim oXL As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Worksheet Dim ExcelWasNotRunning As Boolean Dim WorkbookToWorkOn As String ActiveDocument.Bookmarks("Name").Select Selection.Copy WorkbookToWorkOn = "C:\Users\arboari\Desktop\Book1.xlsx" Set oXL = GetObject(, "Excel.Application") Set oWB = oXL.Workbooks.Open(FileName:=WorkbookToWorkOn) ActiveDocument.Bookmarks("Name").Select Selection.Copy For Each oSheet In oXL.ActiveWorkbook.Worksheets oSheet.Range("A1").Select Selection.PasteSpecial (xlPasteValue) Next oSheet Set oRng = Nothing Set oSheet = Nothing Set oWB = Nothing Set oXL = Nothing End Sub

我不确定我做错了什么，但我希望在这方面能得到一些指导！

谢谢!

【本文地址】

如何使用word VBA将选定内容从Word复制到excel

如何使用word VBA将选定内容从Word复制到excel

今日新闻

推荐新闻