Re: [算表] Excel到Word VBA執行發生階段錯誤 462

看板Office作者windknife18 (windknife18)時間1年前 (2023/10/06 15:08)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串3/3 (看更多)

仔細再看了一遍，應該是這一行的問題 ActiveDocument.Content.Delete 你前面加個.應該就可以了 .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 .DisplayAlerts = False .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 .Quit End With Application.CutCopyMode = False Set wdApp = Nothing Set myRange = Nothing Set docRange = Nothing Set docApp = Nothing End Sub ※ 引述《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 : 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), 來自: 140.131.84.79 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1696576106.A.ACD.html