当打开多个工作簿进行循环时,保持完整的单元格范围地址。

嗨,我做了一个宏,创建不同的工作簿,我试图在一个循环中使用它,但范围改变到打开的工作簿,当我试图使用完整的路径到我的工作簿的变量,我存储的范围标记 “无”。

row = ActiveCell.row
Dim cell As Range
Dim quote As Integer

quotesToDo = Selection.Rows.Count


For quote = 1 To quotesToDo
    cell = Workbooks("PLANTILLA FORECAST 2019.xlsm").Worksheets("CONTROL DE LEADS").Range("D" & row)
    If cell.EntireRow.Hidden = False Then
        row = cell.row
        name = Range("D" & row).Value
        location = Range("G" & row).Value
        mail = Range("H" & row).Value
        phone = Range("I" & row).Value
        wantedProduct = Range("J" & row).Value
        Call Query2(exchange, name, location, mail, phone, generalAddress, row)
    End If
    row = row + 1
Next quote

解决方案:

请使用 set 对于 Range 对象。

给TA打赏
共{{data.count}}人
人已打赏
未分类

如何在Jenkins作业中加入并行条件?

2022-9-8 14:40:40

未分类

我可以在Firestore中查询并查看一个值是否存在于两个不同的字段中吗?

2022-9-8 14:40:42

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索