PTT數位生活區 / Office

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

看板Office作者 (windknife18)時間1年前 (2023/10/04 20:41), 編輯推噓1(1推 0噓 2→)
留言3則, 1人參與, 1年前最新討論串2/3 (看更多)
沒有真的測試，你可以試看看下面的修改 ※ 引述《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://www.ptt.cc/bbs/Office/M.1696423269.A.B5D.html
推
10/06 12:07, 1年前 , 1F
我執行後 還是有一樣的狀況。執行第二次的話，在工作
10/06 12:07, 1F
→
10/06 12:07, 1年前 , 2F
管理員的背景處理程序會卡Word程式，應該是這樣導致46
10/06 12:07, 2F
→
10/06 12:07, 1年前 , 3F
2出現。請問這樣還有解嗎
10/06 12:07, 3F
‣ 更多 windknife18 的文章
文章代碼(AID): #1b7LrbjT (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 windknife18 的文章
文章代碼(AID): #1b7LrbjT (Office)