VBA调用Range方法报1004错误，为何需要先激活对应工作表？

你遇到的报错根本不是必须调用Activate才能让Range生效，而是你的代码存在隐式引用工作表的问题：

VBA中，Cells、Rows、Columns这类单元格/范围对象如果没有显式指定所属工作表，默认会指向当前处于激活状态的工作表，而非你代码中声明的sht对象。

你出错的代码行：

Set newRng = sht.Range(Cells(newLine, 1), Cells(newLine, 19))

其中的两个Cells(newLine, x)没有绑定sht，当sht不是当前激活表时，这两个Cells实际属于其他工作表，你尝试用sht去读取跨两个工作表的单元格构成的范围，自然会抛出1004错误。
调用sht.Activate之后，sht变成了当前激活表，Cells默认指向sht，范围的父对象统一，所以不会报错，但这是非常不规范的修复方式，会降低代码执行效率，还可能因为用户手动切换工作表触发异常。

不需要调用Activate，只要给所有Cells对象显式绑定所属工作表即可，有两种常用写法：

写法1：直接加工作表前缀 #

Sub exportCSV(rng As Range)
    Dim shtName As String
    Dim sht As Worksheet
    Dim lastLine As Long, newLine As Long
    Dim newRng As Range
    
    shtName = getSheetName(rng.Cells(1, 2).Value)
    Set sht = ThisWorkbook.Worksheets(shtName)
    If Not sht Is Nothing Then
        lastLine = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
        newLine = lastLine + 1
        ' 给所有Cells加上sht前缀，明确所属工作表
        Set newRng = sht.Range(sht.Cells(newLine, 1), sht.Cells(newLine, 19))
        Stop
    End If
End Sub

写法2：用With块简化重复引用 #

Sub exportCSV(rng As Range)
    Dim shtName As String
    Dim sht As Worksheet
    Dim lastLine As Long, newLine As Long
    Dim newRng As Range
    
    shtName = getSheetName(rng.Cells(1, 2).Value)
    Set sht = ThisWorkbook.Worksheets(shtName)
    If Not sht Is Nothing Then
        ' 用With块绑定sht，内部以.开头的对象都属于sht
        With sht
            lastLine = .Cells(.Rows.Count, "A").End(xlUp).Row
            newLine = lastLine + 1
            Set newRng = .Range(.Cells(newLine, 1), .Cells(newLine, 19))
        End With
        Stop
    End If
End Sub

• 编写VBA操作Excel对象时，尽量给所有Range、Cells、Rows、Columns对象显式指定父工作表，给所有Worksheet对象显式指定父工作簿，避免依赖ActiveSheet、ActiveWorkbook这类动态变化的上下文对象
• 除非有必须和用户交互的场景，否则不要使用Activate、Select这类操作界面的方法，不仅会拖慢执行速度，还容易因为用户操作打断程序运行

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