先上代碼：

? ? ? ?Application.ScreenUpdating = False '關閉屏幕刷新'
? ? ? ? Dim oprate_times As Integer
? ? ? ? Worksheets("報告生成").Range("B2:T11").Copy
? ? ? ? Word.Application.Documents("herui.docm").Bookmarks("輸入區域").Range.Select
? ? ? ? Word.Selection.Paste
?
? ? ? ? Worksheets("報告生成").Range("T12:T15").Copy
? ? ? ? Word.Application.Documents("herui.docm").Bookmarks("輸入區域2").Range.Select
? ? ? ? Word.Selection.Paste
? ? ? ? Application.ScreenUpdating = True 'dakai屏幕刷新'

一開始沒有加前后兩個屏幕刷新控制，于是常出現：

這個東西搞了我一上午，好在解決了，至于什么原因，等以后對vba再熟悉了再補上。

如果有大神看見，幫我評論一下原因。

總結

以上是生活随笔為你收集整理的vba中excel和word复制粘贴的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。