如何用VBA InputBox获取已打开工作簿区域并粘贴到指定工作簿？

原代码存在几个关键问题导致无法正确完成粘贴操作：

• 复制、粘贴的对象调用逻辑错误，Range(rng)属于冗余且错误的写法
• 未明确指定目标工作簿/工作表，容易导致粘贴到当前活动工作表而非工作簿A
• 用户取消选择时的判断逻辑失效，缺少必要的错误处理
• 使用了非标准的VBA粘贴方法Range.Paste

修正后的代码 #

Option Explicit

Sub selectRange()
    Dim rng As Range
    Dim targetSheet As Worksheet
    
    ' 明确指定工作簿A中的目标工作表，将"主工作表"替换为实际表名
    Set targetSheet = ThisWorkbook.Sheets("主工作表")
    
    ' 捕获用户取消选择的操作
    On Error Resume Next
    Set rng = Application.InputBox("请选择要复制的文本区域", "选择区域", Type:=8)
    On Error GoTo 0
    
    ' 校验用户是否选择了有效区域
    If rng Is Nothing Then
        MsgBox "未选择任何区域，请重新操作。"
        Exit Sub
    End If
    
    ' 直接将选中区域复制到工作簿A的A9起始位置
    rng.Copy Destination:=targetSheet.Range("A9")
    
    ' 清除剪贴板残留内容（可选）
    Application.CutCopyMode = False
End Sub

关键修正说明 #

• 锁定目标位置：通过ThisWorkbook确保操作的是代码所在的工作簿A，避免因活动工作簿切换导致粘贴错位
• 错误处理：添加错误捕获逻辑，处理用户取消选择的场景，防止程序崩溃
• 高效粘贴逻辑：使用Copy Destination:=直接指定目标位置，比先复制再选择粘贴的流程更可靠、高效
• 用户交互优化：明确提示未选择区域的情况，引导用户正确操作

内容的提问来源于stack exchange，提问作者Dmrive