作者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/m.aspx?n=bbs/Office/M.1696401489.A.427.html
※ 編輯: rock04rock (123.51.249.201 臺灣), 10/04/2023 15:15:19