作者rock04rock (CarlosChiang)
看板Office
标题[算表] Excel到Word VBA执行发生阶段错误 462
时间Wed Oct 4 14:38:00 2023
软体:Microsoft 365 企业应用版
我编写了一个驻留在 Excel 工作簿中的 VBA 巨集。执行时，它将开启一个现有的Word文
件（与Excel工作簿储存在同一目录中），将Excel工作簿中的储存格中的一些内容复制到
Word文件中，以新名称储存Word文件（在相同的目录中）目录）并删除原始 Word 文件。
此过程在第一次运行时按预期工作。但在第二次运行时，我收到运行时误 462。
(都卡在ActiveDocument.Content.Delete)。因为我还是新手，想请教怎麽修改会比较好。
Sub CopyDataToWord()
Dim wdApp As Word.Application
Dim myRange As Range
Dim i As Long
Set wdApp = New Word.Application
With wdApp
.Documents.Open Filename:=ThisWorkbook.Path & "\123.docx"
ActiveDocument.Content.Delete
For i = 1 To 1
Set myRange = Worksheets("合并").UsedRange
myRange.Copy
With .Selection
.TypeParagraph
.Paste
End With
Next i
.ActiveDocument.Save
wdApp.Visible = True
End With
Application.CutCopyMode = False
Set wdApp = Nothing
Set myRange = Nothing
Set docRange = Nothing
Set docApp = Nothing
End Sub
第一个提供解决方法成功，会提供500P做感谢。
谢谢大家
--
聪明的人懂得装傻...
但笨的人却装不了聪明....
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.51.249.201 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1696401489.A.427.html
※ 编辑: rock04rock (123.51.249.201 台湾), 10/04/2023 15:15:19