如何在VBA中引用Microsoft Teams上处于关闭状态的Excel工作簿？

你当前的代码Set datawkb = Excel.Workbooks("PM Planner 2023.xlsx")仅能识别已打开的工作簿，关闭时自然无法定位。以下是两种可行的VBA方案，适配Teams同文件夹的场景：

方案1：后台打开目标工作簿（推荐） #

通过获取当前工作簿的路径拼接目标文件地址，后台只读打开，操作完成后自动关闭：

Dim datawkb As Workbook
Dim targetFilePath As String

' 获取当前工作簿所在的Teams本地映射路径
targetFilePath = ThisWorkbook.Path & "\PM Planner 2023.xlsx"

' 先检查文件是否存在
If Dir(targetFilePath) <> "" Then
    ' 后台只读打开，不显示窗口
    Set datawkb = Workbooks.Open( _
        Filename:=targetFilePath, _
        ReadOnly:=True, _
        Visible:=False _
    )
    
    ' --------------------------
    ' 这里写入你需要的操作逻辑
    ' 示例：读取Sheet1的A1单元格内容
    ' Debug.Print datawkb.Sheets("Sheet1").Range("A1").Value
    ' --------------------------
    
    ' 操作完成后关闭，无需保存（只读打开）
    datawkb.Close SaveChanges:=False
Else
    MsgBox "找不到目标文件：PM Planner 2023.xlsx，请检查路径或文件名"
End If

• 关键说明：Teams的云端文件夹会映射到本地磁盘，ThisWorkbook.Path能直接获取这个本地路径，无需手动输入在线地址
• ReadOnly:=True避免文件锁定，适合多人协作的场景
• Visible:=False让工作簿在后台运行，不干扰用户操作

方案2：用GetObject直接调用关闭的工作簿 #

如果仅需读取数据，可使用GetObject直接绑定文件，无需显式打开窗口：

Dim datawkb As Workbook
Dim targetFilePath As String

targetFilePath = ThisWorkbook.Path & "\PM Planner 2023.xlsx"

If Dir(targetFilePath) <> "" Then
    Set datawkb = GetObject(targetFilePath)
    
    ' 写入你的数据读取逻辑
    ' Debug.Print datawkb.Sheets("Data").Range("A2:B10").Value
    
    datawkb.Close SaveChanges:=False
Else
    MsgBox "目标文件不存在"
End If

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