excel - Excel 文件不使用 .Close 方法关闭
问题描述
我创建了一个使用源 excel 文件的 UDF,将数据提取为 UDF 结果。
但是,即使我在“with”中使用 .close 方法,源文件也不会关闭 - 下面的代码。
使用后关闭源文件的任何帮助都会非常感谢,非常感谢!
sfilename = "R:\values only.xlsb"
Application.DisplayAlerts = False
With GetObject(sfilename)
range1 = .Sheets("RawData").Range("A:B")
If IsError(Application.VLookup(lookupval, range1, 2, False)) Then
If IsError(Application.VLookup(lookupval2, range1, 2, False)) Then
MsgBox "Pair or date does not exist!"
Else
getex = 1 / Application.VLookup(lookupval2, range1, 2, False)
End If
Else
getex = Application.VLookup(lookupval, range1, 2, False)
End If
.Close
End With
Application.DisplayAlerts = True
解决方案
正如上面评论中提到的,您可以在另一个实例中打开您的文件(在同一实例中,您的 UDF 公式调用将不起作用)
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = False
.DisplayAlerts = False
With .Workbooks.Open(sfilename)
range1 = .Sheets(2).Range("A:B")
If IsError(Application.VLookup(lookupval, range1, 2, False)) Then
If IsError(Application.VLookup(lookupval2, range1, 2, False)) Then
MsgBox "Pair or date does not exist!" 'do not use msgbox but give getex a string => getex = "error"
Else
getex = 1 / Application.VLookup(lookupval2, range1, 2, False)
End If
Else
getex = Application.VLookup(lookupval, range1, 2, False)
End If
.Close
End With
.Quit
End With
另一种可能性是通过 Sub 将 UDF 的结果放在工作表中(我会这样做)
推荐阅读
- ios - 使用 Xcode 12 在应用程序中获取白屏
- elasticsearch - Windows 中的 Elasticsearch 备份和恢复
- node.js - 未从远程浏览器接收到 Socket.io 数据
- python - ValueError:无法将输入数组从形状(52,1)广播到形状(52)
- python - 我有大量的图像数据,我想在 python 中以特定大小循环自动调整它的大小
- css - 按钮蒙版过渡
- mysql - 如何在 MySQL 中使用初始值设置自定义 auto_increment 值
- python - Google Cloud Run 未记录 DEL 请求的 502 响应
- c# - WPF 禁用控件之间的箭头导航
- dataframe - pyspark 用空索引添加 0