如何在不打开a.xlsm文件的情况下用VBA读取Sheet1中Text1文本框内容？

• 拥有仅包含Sheet1工作表的Excel文件a.xlsm
• 该工作表内存在名为Text1的文本框，其中包含文本（示例："this is my text"）

如何通过VBA实现不打开a.xlsm文件的前提下，读取Text1文本框的内容？

• 禁止使用Workbooks.Open
• 禁止使用Excel.Application在后台（可见或不可见）打开文件

解决方案 #

由于.xlsm文件本质是ZIP压缩包，我们可以通过提取其中的工作表XML文件，解析出文本框内容，无需打开Excel文件。以下是实现代码：

Sub ReadTextBoxFromClosedXLSM()
    Dim zipPath As String, tempFolder As String
    Dim shellApp As Object, zipFile As Object, fileInZip As Object
    Dim xmlDoc As Object, node As Object
    Dim textBoxText As String
    
    ' 替换为你的a.xlsm实际路径
    zipPath = "C:\YourFolder\a.xlsm"
    ' 生成唯一临时文件夹路径
    tempFolder = Environ("TEMP") & "\XLSM_Temp_" & Format(Now, "YYYYMMDDHHMMSS")
    
    ' 创建临时文件夹
    CreateObject("Scripting.FileSystemObject").CreateFolder tempFolder
    
    ' 用Shell对象操作ZIP文件
    Set shellApp = CreateObject("Shell.Application")
    Set zipFile = shellApp.Namespace(zipPath)
    
    ' 提取Sheet1对应的XML文件
    For Each fileInZip In zipFile.Items
        If fileInZip.Name = "sheet1.xml" Then
            shellApp.Namespace(tempFolder).CopyHere fileInZip
            Exit For
        End If
    Next
    
    ' 加载并解析XML，设置命名空间避免节点查找失败
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
    xmlDoc.async = False
    xmlDoc.SetProperty "SelectionNamespaces", "xmlns:x='http://schemas.openxmlformats.org/spreadsheetml/2006/main' xmlns:v='urn:schemas-microsoft-com:vml'"
    xmlDoc.Load tempFolder & "\sheet1.xml"
    
    ' 定位Text1文本框的内容节点
    For Each node In xmlDoc.SelectNodes("//v:shape[@name='Text1']//x:Text")
        textBoxText = node.Text
        Exit For
    Next
    
    ' 输出结果
    If Len(textBoxText) > 0 Then
        Debug.Print "Text1内容：" & textBoxText
        MsgBox "Text1的内容是：" & textBoxText, vbInformation
    Else
        MsgBox "未找到名为Text1的文本框", vbExclamation
    End If
    
    ' 清理临时文件
    CreateObject("Scripting.FileSystemObject").DeleteFolder tempFolder, True
    
    ' 释放对象
    Set shellApp = Nothing
    Set xmlDoc = Nothing
End Sub

关键说明 #

1. 请务必将代码中的zipPath替换为你的a.xlsm文件实际路径
2. 代码依赖MSXML2.DOMDocument组件（Windows系统默认预装，无需额外安装）
3. 通过XML命名空间定位文本框节点，确保匹配工作表中Text1的名称
4. 执行完毕后会自动删除临时文件夹，避免残留文件

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