如何使“共享的局域网驱动器”弹出窗口的“取消”按钮起作用

Question

我有一个宏，它可以从共享的LAN中检索数据，但是，如果我想“取消”功能，而不是加快命令的执行速度，我会在VBA窗口中看到一个错误，并且只有“结束”，“调试”或“帮助”选项。

要使“取消”按钮起作用，我需要什么代码

当我按“取消”时，出现“运行时错误'1004'：错误

这是我的代码：

;

Answer 1

如果用户取消选择文件，则可以退出代码：

If .Show = True Then
       txtFileName = .SelectedItems(1) 'replace txtFileName with your textbox
Else
       Exit Sub
End If