Excel 应用程序定义或对象定义错误（命名范围）

我在这里用我的代码解决了这个问题，我在创建工作表后应该复制和粘贴所选范围的行中遇到了这个一般性错误，但它给了我这个令人沮丧的错误-我不知道我在这里做错了什么，请帮助伙计们，感谢大家的帮助：）

---

请查看您的

案例

声明：

• 在

  案例

  开场白中，使用一个（局部）变量

  Multi

• 在contition语句中，使用不同的对象

  MultiPage1.Value

• 它们都没有申报

对我来说，似乎没有执行任何

Case

分支，因此

TgtRngR

，

TgtRngB

，

TgtNme

未定义

---

在

Private Sub ExpBttn（）

处设置断点，并使用F8跨过

Sub

将有助于帮助。

请查看

Case

语句：

• 在

  案例

  开场白中，使用一个（局部）变量

  Multi

• 在contition语句中，使用不同的对象

  MultiPage1.Value

• 它们都没有申报

对我来说，似乎没有执行任何

Case

分支，因此

TgtRngR

，

TgtRngB

，

TgtNme

未定义

---

在

Private Sub ExpBttn（）

处设置断点并用F8单步执行

Sub

会有所帮助。

您已经在Case语句中设置了范围变量，因此在复制/粘贴中使用它

TgtRngR.Copy Destination:=Sheets("Exported_" & TgtNme).Range("A1:F18")

及

此外，您的案例陈述逻辑不正确。应该是这样的

TgtNme = ""
Select Case MultiPage1.Value
Case 0
    ...
Case 1
    ...
'etc
End Select

If TgtNme <>"" then
    ' do the cop pastes
End If

TgtNme=“”
选择Case MultiPage1.Value
案例0
...
案例1
...
等等
结束选择
如果TgtNme“”那么
“警察会粘贴吗
如果结束

您已经在Case语句中设置了范围变量，因此在复制/粘贴中使用它

TgtRngR.Copy Destination:=Sheets("Exported_" & TgtNme).Range("A1:F18")

及

此外，您的案例陈述逻辑不正确。应该是这样的

TgtNme = ""
Select Case MultiPage1.Value
Case 0
    ...
Case 1
    ...
'etc
End Select

If TgtNme <>"" then
    ' do the cop pastes
End If

TgtNme=“”
选择Case MultiPage1.Value
案例0
...
案例1
...
等等
结束选择
如果TgtNme“”那么
“警察会粘贴吗
如果结束

Wow！非常感谢，这很有魅力。是的，正如你清楚地看到的，我是一个noob：D非常感谢，我真的不知道该怎么做，但是这里的响应时间和知识渊博的人让我感觉很棒！先生，你是我的英雄。再次感谢你，哇！非常感谢，这很有魅力。是的，正如你清楚地看到的，我是一个noob：D非常感谢，我真的不知道该怎么做，但是这里的响应时间和知识渊博的人让我感觉很棒！先生，你是我的英雄。再次感谢你。非常感谢你给我的超快回复：）你太棒了。非常感谢你给我的超快回复：）你太棒了