Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.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
将不同excel工作簿中的数据收集到单个工作簿中_Excel_Vba_Error Handling_Dialog - Fatal编程技术网

将不同excel工作簿中的数据收集到单个工作簿中

将不同excel工作簿中的数据收集到单个工作簿中,excel,vba,error-handling,dialog,Excel,Vba,Error Handling,Dialog,我有一个主工作簿,里面有一些代码。这段代码可以打开数百(最终可能是数千)个excel工作簿。它从每个外部工作簿中提取数据,并将这些信息保存到主工作簿中的各种电子表格中 该计划奏效了,而且已经奏效了。然而,我不确定这是由于代码更改还是由于更多的数据,程序在处理了100多个文件后,会为每个连续文件生成一个模式对话框,上面写着“此工作簿包含指向其他数据源的链接”,并坚持要我单击“更新”、“不更新”或“帮助”。我现在必须单击“不更新”通过这条有用的消息进行了100次 我已尝试应用程序。DisplayAl

我有一个主工作簿,里面有一些代码。这段代码可以打开数百(最终可能是数千)个excel工作簿。它从每个外部工作簿中提取数据,并将这些信息保存到主工作簿中的各种电子表格中

该计划奏效了,而且已经奏效了。然而,我不确定这是由于代码更改还是由于更多的数据,程序在处理了100多个文件后,会为每个连续文件生成一个模式对话框,上面写着“此工作簿包含指向其他数据源的链接”,并坚持要我单击“更新”、“不更新”或“帮助”。我现在必须单击“不更新”通过这条有用的消息进行了100次

我已尝试应用程序。DisplayAlerts=false 这没用。在处理了几百个文件后,仍然可以在“模型”对话框中获得有用的消息

找不到应用程序。OverrideeVeryStupidDefaultMservHoughtOf属性


有没有办法解决或避免这个问题?

我知道,即使
DisplayAlerts
设置为
False
,也会出现很多消息。在阅读了您的问题并对此感到好奇之后,我做了一个快速的研究,发现了避免不同类型消息的各种属性。是的,你也有自己的财产():


我知道,即使
DisplayAlerts
设置为
False
,也会出现很多消息。在阅读了您的问题并对此感到好奇之后,我做了一个快速的研究,发现了避免不同类型消息的各种属性。是的,你也有自己的财产():


您的简单问题看起来很复杂,因为您没有显示您使用的任何代码。如果有任何代码,我想几乎一半的支持者会在你的问题出现5分钟后帮助你

然而,我只能猜测,在代码的某个地方,您有一条很小的指令:

Workbooks.Open ...
如果是这样,这个
.Open方法
有一个特殊的参数,可以解决您的问题。有一些解释。您应该使用的是第二个参数
UpdateLinks
,您应该通过以下方式将其设置为
True
False

Workbooks.Open filePath+fileName, True ' to update links
Workbooks.Open filePath+fileName, False ' to not update links

您的简单问题看起来很复杂,因为您没有显示您使用的任何代码。如果有任何代码,我想几乎一半的支持者会在你的问题出现5分钟后帮助你

然而,我只能猜测,在代码的某个地方,您有一条很小的指令:

Workbooks.Open ...
如果是这样,这个
.Open方法
有一个特殊的参数,可以解决您的问题。有一些解释。您应该使用的是第二个参数
UpdateLinks
,您应该通过以下方式将其设置为
True
False

Workbooks.Open filePath+fileName, True ' to update links
Workbooks.Open filePath+fileName, False ' to not update links