复制Excel范围时出错9“超出范围”
复制Excel范围时出错9“超出范围”
提问于 2019-10-28 10:49:32
我试图在单击按钮后将数据从一个工作簿复制到另一个工作簿，但是函数范围不工作，并且总是返回
错误9“超出范围”。
Sub Button1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open "C:\Users\Username\Desktop\Allineamento\Data\MasterData.xlsx"
Workbooks("MasterData").Sheets(2).range(Cells(13, 2), Cells(800, 16)).Copy
Workbooks("ImportSheets").Sheets("Master Data").Cells(2, 1).PasteSpecial Paste.Value
Workbooks("MasterData").Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub回答 1
Stack Overflow用户
发布于 2019-10-28 11:00:25
使用基本的Excel函数，宏记录器是非常有用的.这是通过复制和粘贴一些excel范围生成的代码：
Sub Macro1()
Range("A1:E8").Select
Selection.Copy
Selection.PasteSpecial xlPasteValues
ActiveSheet.Paste
Application.CutCopyMode = False
Range("L5").Select
Application.WindowState = xlNormal
Range("B7").Select
End Sub尽管代码效率不高，但是看到复制粘贴- Range.PasteSpecial xlPasteValues所需的代码是非常有用的。
因此，在问题代码中，将PasteSpecial Paste.Value替换为PasteSpecial xlPasteValues。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/58589560
复制相关文章
相似问题
腾讯云开发者
