无法定义range，求大神

武易文

1. Private Sub lianxi()
   
2.     Workbooks.Open ("D:\原始数据")
   
3.     With Workbooks("原始数据").Worksheets("Sheet1")
   
4.         Dim e As Range

复制代码

为什么这段代码不能将c和e定义为让range，每次都报错--------对象变量或with块变量未设置，求解答

武易文

Private Sub lianxi()
    Workbooks.Open ("D:\原始数据")
    With Workbooks("原始数据").Worksheets("Sheet1")
        Dim e As Range
        Dim c As Range
        Dim r As Integer
        Dim b As Integer
        Dim d As Integer
        r = .UsedRange.Rows.Count - 1
        b = .UsedRange.Columns.Count
        c = .Columns("A")
        d = WorksheetFunction.Match("Precip", c, 0)
        e = .Range(.Cells(d, 2), .Cells(r, b))
    End With
end sub
这是完整代码，可能长度有限制，没贴全

不知道为什么

报错的地方在哪里？可以把附件传上来

武易文

不知道为什么 发表于 2018-6-25 16:26
报错的地方在哪里？可以把附件传上来

开始代码贴不全，报错的地方就是前两个dim

不知道为什么

武易文 发表于 2018-6-25 16:28
开始代码贴不全，报错的地方就是前两个dim

看你前面两句代码就应该有报错把

zhjlgaojuan

range是对象,需要用set 语句...

武易文

zhjlgaojuan 发表于 2018-6-25 16:38
range是对象,需要用set 语句...

为什么加了set又出现1004了，新手表示很痛苦

武易文

不知道为什么 发表于 2018-6-25 16:34
看你前面两句代码就应该有报错把

是打开工作簿和with吗

不知道为什么

武易文 发表于 2018-6-25 16:53
为什么加了set又出现1004了，新手表示很痛苦

请不要痛苦，进步就在这样痛苦中起来的
譬如你的代码
  r = .UsedRange.Rows.Count - 1
就假如你 写成 set r
也是错的，为什么？r 你起始 dim 了range，现在 又 set 后面是什么？是数值！所以就矛盾冲突了。
不知你能不能理解。
可以：
set r=.usedrange
mr=r.rows.count-1

zhjlgaojuan

1004是什么错误啊....错误截图顺便放上来撒