[系统运维]Excel（WPS）使用VBA，不打开文件情况下提取其他工作簿数据

提取函数，返回提取到的值

path：文件路径
file:文件名
sheet：工作表名
ref：需要读取的目标单元格

Private Function GetValue(path, file, sheet, ref)
    '   从未打开的Excel文件中检索数据
    Dim arg As String
    '   确保该文件存在
    If Right(path, 1) <> "" Then path = path & ""
    If Dir(path & file) = "" Then
        GetValue = "File Not Found"
        Exit Function
    End If
    '   创建变量
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
    '   执行XLM 宏
    GetValue = ExecuteExcel4Macro(arg)
End Function

使用示例

比如需要读取的文件为D:\Test\data.xlsx，
工作表名为Sheet1，
读取D9单元格的内容：

读取后存放到本表的C7单元格中

'注意不要漏掉最后的  \
path = "D:\Test\
file = "data.xlsx"
sheet = "Sheet1"
address = "D9"

Cells(7, "C") = GetValue(path, file, sheet, address)