VBA - 无需打开即可从其他工作簿获取单元格值

使用VBA编程语言可以轻松地从其他工作簿中获取单元格的值，而无需打开这些工作簿。这种方法非常便捷，特别适用于需要频繁访问其他工作簿数据的情况。在本文中，我们将介绍如何使用VBA实现这一功能，并提供一个案例代码以帮助读者更好地理解。

vba
Sub GetCellValue()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim cellValue As Variant
    
    ' 打开目标工作簿
    Set wb = Workbooks.Open("路径\目标工作簿.xlsx")
    
    ' 设置要访问的工作表
    Set ws = wb.Worksheets("Sheet1")
    
    ' 获取指定单元格的值
    cellValue = ws.Range("A1").Value
    
    ' 在Immediate窗口中显示结果
    Debug.Print cellValue
    
    ' 关闭目标工作簿，不存储更改
    wb.Close SaveChanges:=False
End Sub

vba
Sub ConsolidateSalesData()
    Dim reportWB As Workbook
    Dim reportWS As Worksheet
    Dim salesWB As Workbook
    Dim salesWS As Worksheet
    Dim salesFilePath As String
    Dim salesFileName As String
    Dim salesTotal As Double
    
    ' 打开报告工作簿
    Set reportWB = ThisWorkbook
    Set reportWS = reportWB.Worksheets("Report")
    
    ' 设置销售数据文件夹路径
    salesFilePath = "路径\销售数据"
    
    ' 获取销售数据文件夹中的所有文件
    salesFileName = Dir(salesFilePath & "\*.xlsx")
    
    ' 循环处理每个文件
    Do While salesFileName <> ""
        ' 打开销售数据工作簿
        Set salesWB = Workbooks.Open(salesFilePath & "\" & salesFileName)
        Set salesWS = salesWB.Worksheets("Sales")
        
        ' 获取销售总额
        salesTotal = salesWS.Range("B2").Value
        
        ' 将销售总额汇总到报告工作簿中
        reportWS.Range("B2").Value = reportWS.Range("B2").Value + salesTotal
        
        ' 关闭销售数据工作簿，不存储更改
        salesWB.Close SaveChanges:=False
        
        ' 获取下一个文件
        salesFileName = Dir
    Loop
    
    ' 在Immediate窗口中显示结果
    Debug.Print "销售总额：" & reportWS.Range("B2").Value
End Sub