加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

vb.net – 通过VBA选择Range类失败的方法

发布时间:2020-12-17 00:18:59 所属栏目:大数据 来源:网络整理
导读:这是我正在使用的代码,我遇到了这个问题.我是Excel的新手,我无法弄清楚出了什么问题. Private Sub cmdRecord_Click()Sheets("BxWsn Simulation").Range("Result").Select //This is the line with the problem,as excel told me. Selection.Copy Sheets("Res
这是我正在使用的代码,我遇到了这个问题.我是Excel的新手,我无法弄清楚出了什么问题.
Private Sub cmdRecord_Click()
Sheets("BxWsn Simulation").Range("Result").Select //This is the line with the problem,as excel told me.
    Selection.Copy
    Sheets("Reslt Record").Select
    Sheets("Reslt Record").Range("A5000").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,Operation:= _
        xlNone,SkipBlanks:=False,Transpose:=False
    Sheets("CuCon Simulator").Select
    Application.CutCopyMode = False
    Range("Improvement").Select
End Sub

错误是通过VBA选择Range类失败的方法,错误1004.
有任何想法吗?

谢谢.

编辑:

所以我只是将代码更改为

Sheets("BxWsn Simulation").Select
Range("Result").Select

我相信这是你的意思,让它活跃起来?
但是我仍然得到对象’_Worksheet’的方法’范围’失败,错误1004

我相信你在这里有 the same problem.
工作表必须处于活动状态才能在其上选择范围.

另外,不要省略工作表名称限定符:

Sheets("BxWsn Simulation").Select
Sheets("BxWsn Simulation").Range("Result").Select

要么,

With Sheets("BxWsn Simulation")
  .Select
  .Range("Result").Select
End WIth

这是一样的.

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读