作者windknife18 (windknife18)
标题Re: [算表] Excel到Word VBA执行发生阶段错误 462
时间Wed Oct 4 20:41:07 2023
没有真的测试，你可以试看看下面的修改
※ 引述《rock04rock (CarlosChiang)》之铭言：
: 软体: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
.ActiveDocument.Close
: wdApp.Visible = True
: End With
: Application.CutCopyMode = False
wdApp.Quit
: Set wdApp = Nothing
: Set myRange = Nothing
: Set docRange = Nothing
: Set docApp = Nothing
: End Sub
: 第一个提供解决方法成功，会提供500P做感谢。
: 谢谢大家
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.34.58.193 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1696423269.A.B5D.html
1F：推 rock04rock: 我执行後 还是有一样的状况。执行第二次的话，在工作 10/06 12:07
2F：→ rock04rock: 管理员的背景处理程序会卡Word程式，应该是这样导致46 10/06 12:07
3F：→ rock04rock: 2出现。请问这样还有解吗 10/06 12:07