如何在VBA中调用Excel内置的‘Move or Copy’对话框？

你可以直接调用Excel内置的对话框常量触发原生的“移动或复制工作表”窗口，无需自行开发界面，代码简洁且完全复用原生功能：

核心实现代码 #

Sub TriggerMoveOrCopyDialog()
    ' 触发与右键工作表一致的原生对话框
    Application.Dialogs(xlDialogMoveOrCopy).Show
End Sub

进阶使用说明 #

• 对话框会自动识别当前选中的工作表，支持单个或多个工作表的批量操作。
• 如果需要在调用前指定操作的目标工作表，可先在代码中选中对应工作表，示例：

  Sub TriggerMoveOrCopyWithTargetSheets()
      ' 预先选中要操作的多个工作表
      Sheets(Array("Sheet1", "Sheet3")).Select
      ' 弹出原生对话框
      Application.Dialogs(xlDialogMoveOrCopy).Show
  End Sub
  

• 该对话框保留所有原生功能：选择目标工作簿、指定插入位置、勾选“建立副本”等，逻辑与手动操作完全一致。

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