Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba Excel-关闭要求您更改工作簿链接的窗口_Vba_Excel_Find Replace - Fatal编程技术网
Fatal编程技术网
  • vba/
  • Vba Excel-关闭要求您更改工作簿链接的窗口

Vba Excel-关闭要求您更改工作簿链接的窗口

vba excel

Vba Excel-关闭要求您更改工作簿链接的窗口,vba,excel,find-replace,Vba,Excel,Find Replace,我生成了大约100本工作簿的链接，但并不是所有的都存在。这很好，因为如果它们不存在，通常意味着我不需要它。链接是基于字符串连接生成的，最后一步是按值粘贴到单元格。链接示例可能如下所示：“='P:\TEMP\[wb1.xlsx]sheet1'！$D$1 我现在需要的是删除第一个引号，使链接“活跃” 我编写了一个宏，在行中执行查找和替换 Sub BringAlive() Rows("18").Select Selection.Replace What:="""", Replacement:=""

我生成了大约100本工作簿的链接，但并不是所有的都存在。这很好，因为如果它们不存在，通常意味着我不需要它。链接是基于字符串连接生成的，最后一步是按值粘贴到单元格。链接示例可能如下所示：“='P:\TEMP\[wb1.xlsx]sheet1'！$D$1

我现在需要的是删除第一个引号，使链接“活跃”

我编写了一个宏，在行中执行查找和替换

Sub BringAlive()

Rows("18").Select

Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub
唯一的问题是，当工作簿不存在时，会弹出一个窗口，要求我查找工作簿。我需要多次按ESC键，直到代码执行完成。我不能只按住ESC键，因为它会停止代码

有没有更好的解决方案来打击ESC

谢谢。

您可以尝试关闭代码（或部分代码）上的警报

此外，应避免使用
。选择
方法。（）


你就是那个人！但是我有一个问题。
Application.EnableAlerts=True
给我一个错误，上面写着“对象不支持此属性或方法”。你知道我是否可以简单地使用
Application.DisplayAlerts=True
？谢谢。

Sub BringAlive ()

Application.DisplayAlerts = False

'Your code here

Application.DisplayAlerts = True

End Sub



Rows("18").Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False