VBA Excel中Cell.Value无返回值问题及SaveAs文件循环开发需求

你的问题根源很明确：代码里的Sheet1默认指向的是运行这段代码的当前工作簿，而非你打开的Costs.xlsx里的工作表。所以虽然cell.Address能输出地址，但实际读取的是当前工作簿AA1:AA5的单元格（这些单元格是空的），自然cell.Value返回空值。

修正方案 #

直接用打开的工作簿对象ObjWorkbook来限定工作表，明确指定数据源所在的工作表，避免歧义：

Sub Creator()
    Dim ObjWorkbook As Workbook
    Set ObjWorkbook = Workbooks.Open("C:\my\Costs.xlsx")

    Dim cRng As Range, cell As Range
    Dim strName As String

    strName = "-Jan24-Timesheet"

    ' 明确指定打开的Costs.xlsx中的目标工作表（替换成实际表名，比如"Sheet1"或自定义名称）
    Set cRng = ObjWorkbook.Sheets("Sheet1").Range("AA1:AA5")

    ' 简化循环逻辑，直接遍历目标区域的单元格
    For Each cell In cRng
        Debug.Print cell.Value & strName
    Next cell
End Sub

额外注意事项 #

• 永远通过工作簿对象.工作表对象.Range()的方式引用单元格，彻底避免VBA默认引用当前活动工作簿/工作表的隐患
• 若你不确定Costs.xlsx里的工作表名称，可以打开文件查看底部标签栏的名称，替换代码中的"Sheet1"
• 原代码的嵌套循环（遍历Rows再遍历Cells）完全可以简化为直接遍历cRng，逻辑更清晰

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