使用GetObject打开工作簿时Excel DisplayAlerts失败
是因为GetObject函数在打开工作簿时无法控制Excel应用程序的显示警告框设置。GetObject函数是用于从文件中检索一个已经存在的对象的函数，它无法直接控制Excel应用程序的行为。
要解决这个问题，可以使用其他方法来打开工作簿并设置DisplayAlerts属性。以下是一种可能的解决方案：
- 使用CreateObject函数创建一个Excel应用程序对象：
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")- 打开工作簿并设置DisplayAlerts属性为False：
Dim xlWorkbook As Object
Set xlWorkbook = xlApp.Workbooks.Open("工作簿路径")
xlApp.DisplayAlerts = False- 进行其他操作，例如读取或修改工作簿中的数据。
- 最后，记得关闭工作簿和Excel应用程序对象，并释放相关资源：
xlWorkbook.Close SaveChanges:=False
xlApp.Quit
Set xlWorkbook = Nothing
Set xlApp = Nothing这样，就可以通过创建Excel应用程序对象并手动设置DisplayAlerts属性来避免使用GetObject函数时的DisplayAlerts失败问题。
推荐的腾讯云相关产品：腾讯云云服务器（CVM）和腾讯云对象存储（COS）。
相关·内容
2回答
Powerpoint从excel复制表
vba、powerpoint
我一直试图编写一个宏，通过powerpoint使用excel中的表更新演示文稿。
，这是我正在做的，
代码首先删除演示文稿中的所有图片，
然后打开excel工作簿，复制一个命名的范围并粘贴到正确的幻灯片中。
这段代码两天前运行良好，现在说对象超出了复制range "PL"的范围。任何帮助或提示都会很棒，因为这是我第一次使用powerpoint。
valnPath = "G:\valnpath\"
PriorPath = "G:\Priorpath\"
Dim xlApp As Object
Dim xlWorkBook As O
浏览 4提问于2012-10-25得票数 2
回答已采纳
1回答
VBScript将仅保存我的文件的副本
vba、excel、vbscript
我已经编写了一个小脚本，用于打开excel工作簿，执行宏，然后保存工作簿。唯一的问题是，在执行宏之后，保存提示会询问我是否要保存文件的副本，而不是文件本身。如果我单击原始文件并覆盖副本保存，则只会再次弹出提示，要求我保存副本，而不更改原始文件。有人知道怎么解决这个问题吗？？
Option Explicit
Dim xlApp, xlBook
set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
set xlBook = xlApp.Workbooks.Open("C:\Us
浏览 0提问于2015-07-24得票数 1
1回答
从Excel到PowerPoint图表的转置粘贴复制范围
vba、excel、powerpoint
我正在尝试使用excel中的数据更新我的几张幻灯片，并使用以下代码将其粘贴到PowerPoint图表后端。
Sub updateSlides()
Application.DisplayAlerts = False
Dim xlApp, xlWorkBook, xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
' Not transposing
xlApp.DisplayAlerts = Flase
xlApp.Visible = True
Set xlWorkB
浏览 3提问于2017-05-05得票数 0
3回答
如果Excel工作簿处于打开状态，则......VBA
vba、excel
我怎么能写代码来说。
Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
如果工作簿已打开，则....
Set xlApp = GetObject(, "Excel.Application")
elseif xlApp is nothing then
Set xlApp = New Excel.Application
xlApp.Visible = True
Set x
浏览 1提问于2011-10-15得票数 5
1回答
从Powerpoint幻灯片写入已打开的Excel工作簿
vba、excel、powerpoint
我正在尝试从我的PowerPoint演示文稿中使用VBA在已经手动打开的工作簿中写入内容。
使用CreateObject，然后使用Workbook.Open，它将打开该文件的新实例。
我正在尝试使用在网络上的几个示例中找到的GetObject。
下面是我的代码：
Dim xlApp As Object
Dim xlWorkbook As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = Trueme
Set xlWorkbook = xlApp.Workbooks.Open(Active
浏览 0提问于2015-11-20得票数 1
1回答
在另一个工作簿上运行宏后出错
excel、vba
我正在尝试运行一个远程宏，但是在关闭工作簿时，我得到了一个错误“工作簿类的关闭方法失败的”。我需要改变什么？
Sub RunRemoteMacro()
Dim xlApp, xlWbk
On Error GoTo errHandler
Set xlApp = CreateObject("Excel.Application")
Set xlWbk = xlApp.Workbooks.Open("anotherworkbook.xlsm", , True)
xlApp.Application.Visible = True
浏览 0提问于2018-08-09得票数 0
回答已采纳
1回答
用于选择动态文件名的VBS
excel、vbscript
我知道有很多帖子说他们是VBS的新手，但老实说，我以前从来没有写过VBS代码。
我正在尝试自动化的是一个报告，我已经设法拼凑了以下内容：
Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open ("C:\Users\pierre\Desktop\Test folder\16 10 19 Spreadsheet.xlsm", 0, True)
xlApp
浏览 0提问于2016-10-26得票数 0
3回答
VB.NET从excel中获取特定单元格值
excel、vb.net
我正在尝试评估excel表中的特定单元格值是否为"“，以便在我的VB.NET应用程序的if语句中使用。我修改了用于写入excel的代码，但它无法获得单元格值。我拥有的代码如下： Sub Excel_LoadProjectsSchedule()
xlApp = New Excel.Application
xlWorkBook = xlApp.Workbooks.Open("G:\100 Databases\Projects Schedule.xlsx")
xlApp.Visible = False
浏览 123提问于2021-10-28得票数 1
回答已采纳
1回答
在将文件保存为xlsx后，工作簿模块中的代码仍将运行。
vb.net、vba、excel、events、office-interop
使用VB.NET表单中的按钮，打开.xlsm文件并将其保存为.xlsx。保存文件后，.xlsx文件(Workbook_BeforeClose事件)中的代码不会被删除，因此，当我想关闭该文件时，代码将运行！重新打开文件后，就没有剩下的代码了。
这是我的VB.NET课程：
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkbooks As Exc
浏览 0提问于2015-07-11得票数 3
回答已采纳
3回答
Powerpoint从Excel切换回powerpoint
vba、excel、powerpoint
我希望有人能帮忙..。
我有一个powerpoint演示文稿，它链接了excel文件中的表格和图表。幻灯片的更新设置为手册。
我在Powerpoint中创建了一个VBA代码，它打开了excel文件。我试图通过VBA更新powerpoint中的链接，而不是手动选择每个链接元素和更新值。虽然我的VBA代码的第一部分用于打开excel文件，但是链接没有被更新，我认为这是因为没有回到powerpoint来更新链接，所以我尝试在我的VBA代码行中包括这些代码行，这些代码行将返回到powerpoint演示文稿，之后我假设更新链接的行将正常工作(很高兴得到更正)。下面是我构建的代码，所以far....my注
浏览 3提问于2017-09-14得票数 1
1回答
VBS将Excel VBA宏应用于当前目录中的所有文件
excel、vba、vbscript
我尝试将保存在personl.xls中的VBA宏应用于给定目录中的所有文件，但在第29行遇到错误。恐怕我把事情搞混了：
Option Explicit
On Error Resume Next
Dim xlApp
Dim xlBook
Dim No_Of_Files
Dim i
Dim File_Path
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = True
File_Path = "C:\Dokumente und Einstellungen\kcichini\Eige
浏览 0提问于2012-12-10得票数 0
回答已采纳
1回答
在Excel VB脚本中暂停执行
vba、excel、vbscript
我有以下脚本在Excel电子表格中运行自动更新宏，但我需要它暂停，以便宏有时间在关闭之前更新数据。我已经尝试了我在这里找到的多种解决方案，但我找不到一个可以在数据更新完成时释放电子表格以关闭和退出的解决方案。这是目前的脚本，任何想法都会受到欢迎：
Option Explicit
Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
'~~> Change Path here
Set xlBook = xlApp.Workbooks.Open("C:\Users\Daily Upd
浏览 0提问于2017-06-11得票数 0
2回答
删除Excel行
c#
我可以在c# windows应用程序的工作簿中删除我的工作表。但是如何用C#窗口删除我的excel表格选中的行呢？
xlApp.DisplayAlerts = false;
string filePath = @"d:\test.xlsx";
Excel.Workbook xlWorkBook = xlApp.Workbooks.Open(filePath, 0, false, 5, "", "", false, Microsoft.Office.Interop.Excel.XlPlatform.
浏览 8提问于2017-06-23得票数 0
1回答
最近，我在另一个Excel实例中发布了一个关于与另一个WB交互的问题。
但是我已经为测试硬编码了复制/粘贴范围，现在我很难将整个工作表处理到“主wb”。例：xlApp.Worksheets(1).Copy After:=Application.ActiveWorkbook.Sheets(1)
我得到的错误Copy Method of Worksheet Failed和想法如何调整这个工作？
Public Sub Copy_External_WB()
Dim xlApp As Excel.Application, xlBook As Worksheet, i As Long
For i
浏览 4提问于2020-07-29得票数 0
回答已采纳
1回答
在Outlook中使用VBA的ItemAdd事件--导致侦听器随机“UnSet”的事件
excel、events、vba、outlook
当某个文件夹收到电子邮件时，我使用VBA与特定子文件夹上的事件侦听器一起运行宏。它运行得很好，只有一个例外。我正在将对象设置为听，但它们似乎是随机地倒退到“无”，这就阻止了听者‘听’。下面是我用来设置监听器和触发宏的代码：
Public WithEvents myOLItems As Outlook.Folder
Public WithEvents myTDLoanEmails As Outlook.Items
Private Sub Application_Startup()
Set myOLItems = Outlook.Session.GetDefaultFolder(olFo
浏览 4提问于2013-02-20得票数 0
1回答
在调度代理中打开excel工作簿时出错
lotus-domino、lotusscript
在打开csv workbook.It时，我遇到了lotus中调度代理的问题，我只是从Excel打开工作簿并读取数据。
当我手动运行的时候，它运行的非常好。当调度在workbooks.open行时它会抛出。
代理设置:允许具有完全管理权限的重新标记操作。
代码：
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlApp.DisplayAlerts = False
Print "New filepath=" & filepath
xlApp.Workbooks.Open
浏览 0提问于2014-09-16得票数 0
2回答
Powerpoint不关闭Excel
vba、excel、powerpoint
我在Powerpoint中的VBA代码不会“杀死”我的excel应用程序。如果我看一下任务管理器，它仍然在运行。
我想以正确的方式关闭它，而不是杀死它。
有人能帮我吗？我已经搜索过了，并试图让它工作，但没有运气。
Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
If Wn.View.CurrentShowPosition = 2 Then
Dim xlApp As Object
Dim xlWorkBook As Object
Set xlApp = CreateObject("Ex
浏览 4提问于2017-03-29得票数 1
回答已采纳
1回答
从Outlook打开Excel并运行宏会使Excel停留在任务管理器中
vba、excel、outlook
我在Outlook中有一个宏，它调用Excel文件并运行该Excel文件中的宏，然后关闭该文件。问题是在关闭Excel之后，它仍然停留在任务管理器中。我已经测试了一百万次了，我甚至删除了我的Excel宏中的所有代码，看看这是不是问题所在，但Excel仍然卡在任务管理器中。我的Outlook代码是：
Dim xlApp As Object
Dim xlWB As Workbook
Dim strFile As String
Set xlApp = CreateObject("excel.application")
xlApp.Visible = True
xlApp.Displa
浏览 7提问于2016-07-29得票数 0
回答已采纳
1回答
如何从内部访问修复关闭Excel
excel、vba、ms-access
我想使用VBA代码从内部访问关闭Excel工作簿。下面的代码打开工作簿并正确运行工作簿中的VBA模块。关闭工作簿提示使用我希望避免的标准保存对话框。
我尝试将语句.Workbooks.Close修改为.Workbooks.Close SaveChanges:=True，但这实际上会导致代码崩溃。
Public Function Open_Share_Price_Excel()
' Change Cursor to Hourglass
Screen.MousePointer = 11
Dim Expath, ModName As String
Dim XLApp As Object
浏览 0提问于2019-09-04得票数 1
回答已采纳
1回答
从VBScript子程序运行Excel超出范围
excel、vba、vbscript
我正在尝试从vbs脚本中打印一个文件，而且我得到的下标超出了范围。当从excel运行时，宏工作得很好。
VBS脚本是：
dim xlApp
Set xlApp = CreateObject("Excel.Application")
xlApp.Application.Run "'C:\Users\jporter8\Documents\dashboard\testing.xlsm'!Module1.print_Test"
xlApp.DisplayAlerts = True
x
浏览 0提问于2018-08-22得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
