奇怪的VBA presentation.close运行时错误#91
VBA presentation.close运行时错误#91是指在使用VBA编程语言中关闭演示文稿（presentation）时出现的运行时错误，错误代码为91。该错误通常表示对象变量未设置，即尝试引用一个未赋值的对象。
解决此错误的方法是确保在关闭演示文稿之前，已正确设置了对象变量。可以通过以下步骤来解决该问题：
- 确保在关闭演示文稿之前，已经为演示文稿对象赋值。可以使用
Set关键字将演示文稿对象与一个有效的对象关联起来，例如：
Dim ppt As Object
Set ppt = CreateObject("PowerPoint.Application")- 在关闭演示文稿之前，先检查对象变量是否已经设置。可以使用
Is Nothing语句来判断对象变量是否为空，如果为空则不执行关闭操作，避免出现错误。例如：
If Not ppt Is Nothing Then
ppt.Close
Set ppt = Nothing
End If- 确保在关闭演示文稿之前，已经释放了所有相关的资源。可以使用
ReleaseComObject函数来释放对象所占用的资源，例如：
If Not ppt Is Nothing Then
ppt.Close
Set ppt = Nothing
ReleaseComObject ppt
End If需要注意的是，以上解决方法是基于VBA编程语言的，适用于使用Microsoft Office中的PowerPoint应用程序进行演示文稿操作。如果您使用的是其他软件或工具进行演示文稿操作，可能需要针对具体情况进行相应的调整。
腾讯云提供了一系列云计算相关的产品和服务，其中包括云服务器、云数据库、云存储等。您可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于这些产品的详细信息和使用指南。
相关·内容
我收到了一个错误：
“运行时错误91:对象变量或块变量未设置”。
调试用MsgBox()高亮显示一行
Sub CATMain()
Dim xlApp As Excel.Application
Set xlApp = VBA.GetObject("", "Excel.Application")
Dim exlBook As Excel.Workbook
Set exlBook = xlApp.ActiveWorkbook
MsgBox exlBook.Name
End Sub
有什么不对的
浏览 0提问于2018-07-23得票数 2
我在access vba上使用这个简单的sub Public Sub ReadXml()
' XML FILE:
' <A>
' <B>sometext</B>
' </A>
Dim n As New MSXML2.DOMDocument60
Dim n1 As MSXML2.IXMLDOMNode
Const NomeFile = "C:\file.xml"
n.async = False
n.validateOnP
浏览 17提问于2019-04-13得票数 0
系统: Excel 2013；Windows7Pro x64
在访问vba代码中工作表的公共成员时，我遇到了一个奇怪的问题。
下面是要复制的最小代码。
Sheet1 (通用) vba代码
Public memberVar As Integer
MyModule vba代码
Sub MySub()
MySub2 Sheet1
End Sub
Sub MySub2(sht As Worksheet)
Dim foo As Integer
foo = 1
sht.memberVar = foo
End Sub
当我从直接窗口运行MySub时，在MySub2的第三行中得到了以下错误：
浏览 2提问于2016-05-20得票数 1
回答已采纳
我想在一个word文档中得到评论的数量。当单词文档只有文本和注释时，我的代码就能工作了。
但是，当我在包含表的word文档上运行(excel vba)代码时，就会得到运行时错误91“对象变量或块变量未设置”。
我不知道是否需要这些信息:当word文档中有一个表时，表中也有对文本的注释.
如何更改为每个word文档运行的代码？
谢谢你提前帮忙！
现在我的代码：
Dim appWord As Word.Application
Dim document As Word.Document
ThisWorkbook.Worksheets("Tabelle4").Activate
S
浏览 7提问于2022-07-23得票数 0
回答已采纳
1回答
在VBA中运行此子程序时，我收到了一个奇怪的错误：
Sub NameColumns()
' name key columns for later reference in formulas
Dim startdatecol As Integer
' name start date column
startdatecol = ActiveSheet.Cells.Find(What:="Start Date", after:=[a1], LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, Se
浏览 3提问于2012-08-11得票数 3
回答已采纳
我被困在VBA中，在与错误91相关的其他问题中找不到一个好的答案。我想要创建一个对象，并在该对象中存储变量和数组。我尝试了一种方法，就像我在js中做的那样：
Dim block As Object
...
Set block = Nothing
block.Name = "Unbekannter Prüfblock"
block.Awf = "Unbekannter Anwendungsfall"
block.Conditions = Array()
block.Checks = Array()
我使用"Set块= Nothing“，因为我将在一个循环中
浏览 21提问于2022-11-22得票数 2
回答已采纳
基于VBA的应用程序的用户报告了一个奇怪的错误。
我想知道，这怎么可能是由VBA IDE引发的错误，考虑到上面的行是一个错误处理程序。
代码如下。它创建了类frmCfgPrjctTm.的形式。我曾经偶尔会有一些自动化错误，其中有来自VBA的奇怪消息。
运行时错误'-2147418105 (800100007)'：被调用的对象与其客户端断开连接的自动化错误。我在windows 7上使用Excel 2016 32位。
为了解决这个问题，我必须实现一个重试策略来创建表单。这解释了重试循环。
此错误在联机mForm.Show vbModeless中引发。错误处理程序是用指令在错误GoT
浏览 0提问于2018-03-01得票数 0
回答已采纳
‘我目前使用以下VBA来创建我的季度报告。
'Dim ppApp As PowerPoint.Application
Dim ppSlide As PowerPoint.Slide
Dim shp As Object
Dim myTextBox As Object
Dim PPTTitle As String
Dim PPTFooter As String
Dim i As Integer
Dim q As Integer
Dim ChrtstoCopy As Integer
Dim TblstoCopy As Integer
Dim Firstslide A
浏览 259提问于2018-07-30得票数 1
回答已采纳
此代码允许用户选择要打开的多个文件。最后一行在我的PC上运行正常，但我的远程用户告诉我，在他的Mac机上，它给出了一个错误Run-Time error 91: Object variable or block variable not set
Sub OpenSeveralFiles()
Dim fd As FileDialog
Dim FileChosen As Integer
Dim fileName As String
Dim i As Integer
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Initia
浏览 8提问于2018-07-19得票数 1
3回答
此代码试图删除包含与Array (列表)中的“文本”匹配的标题行的列。
代码根据第一个数组值“头文本1”成功地删除列。
这个问题发生在A.EntireColumn.Delete上的第二次循环过程中。当我打印vItem时，它会显示预期的“头文本2”值，这是数组中正确的项。
VBA错误-运行时错误‘91’
对象变量或块变量未设置
Sub ArrayLoop()
Dim ColumnsToRemove As Variant
Dim vItem As Variant
Dim A As Range
ColumnsToRemove = Array("Header Text 1",
浏览 9提问于2016-02-29得票数 1
好的，我正在尝试在VBA中创建一个复杂的地理编码脚本。我编写了以下代码，但由于某种原因，它返回了一个错误(“运行时错误91:对象变量或未设置块变量”)。我使用的链接的一个例子可以是："。
Sub readXML(link As String)
Dim odc As DOMDocument
Dim lat As IXMLDOMElement
Dim lng As IXMLDOMElement
Set odc = New MSXML2.DOMDocument
odc.async = False
odc.Load (link)
lat = odc.SelectSingleNode(
浏览 0提问于2012-11-08得票数 0
回答已采纳
1回答
我坚持在VBA中引用表单上的listbox控件的语法。我正在尝试编写一个子例程，以基于多选择列表框中的选择来构建SQL字符串。目前，我有以下代码：
Private Sub lstStudies_AfterUpdate()
Call buildMultiSQL("lstStudies","field1")
End Sub
Private Sub buildMultiSQL(lstName As String, fldName As String)
Dim lstBox As Object
lstBox = Me.Controls(ls
浏览 0提问于2018-11-29得票数 0
回答已采纳
我试图从VBA运行一个Access宏，但一直收到错误:运行时错误2485；Access找不到对象'MyTest‘我的代码如下--这很奇怪，因为行: A.DoCmd.OpenModule "temp"，"MyTest“有效(将模块打开到正确的位置)。宏是一个简单的测试宏；据我所知，所有路径都是正确的。谢谢!
Set A = Nothing
Set A = CreateObject("Access.Application")
A.Visible = False
A.OpenCurrentDatabase (DBFileName)
A.DoCmd.O
浏览 5提问于2017-02-07得票数 0
2回答
在运行我的代码时，有两个错误是可能的。第一个是一个常见的错误，在这个错误中，我的.Find方法找不到任何东西，如果发生这种情况，我希望下一步继续。这是一个完全正常的事件，我需要让我的经理来批准这个代码(遗留的VBA代码仍然被使用，他害怕改变它)。
我希望指定，如果看到此错误，则什么也不做，但如果标记它并由更健壮的错误处理来处理它是另一个特定的错误。
我想“忽略”的错误是运行时错误91 (比如在简历Next中，或者在GoTo代码的其余部分中，而不用担心代码中的错误，我并不担心代码的进一步发展)。特别是在守则中：
toFindCell1 = Cells.Find(nameVar).Row
其中，n
浏览 2提问于2018-10-15得票数 1
回答已采纳
早上,
当我试图对一个字段执行更新时，我遇到了这个奇怪的运行时错误：
当VBA代码试图从表中将字段(这是一个普通的textbox且没有日期格式集)设置为文本值时，就会发生这种情况。它应该将文本框设置为"somename“，以表示是谁进行了更改。第二句对我来说似乎错了，因为返回的值是一个字符串。
返回错误的VBA代码实际上是一个BeforeUpdate例程--这可能是原因吗？
Private Sub Stat_Code_BeforeUpdate(Cancel As Integer)
其中Stat_Code是同一子窗体上的组合框。
我环顾四周，却找不到任何解决办法来解释这一点。有
浏览 0提问于2014-02-25得票数 1
回答已采纳
我有一个程序，可以查看excel文件中的.dwg文件列表，一次打开一个图形，提取给定块参照的特性，然后将这些特性转储到原始excel文件中的新工作表中。
这段代码大约有一半的时间运行得很好，所有数据都得到了正确的处理和格式化，但在另一半的时间里，我得到了运行时错误9、91或462。
我将错误放在抛出的行中的括号中。
我的代码中是什么导致了这些错误，如果不是编程问题，那么为这些错误编写ErrorHandler的最好方法是什么？
Set ExcelApp = GetObject(, "Excel.Application")
If ExcelApp Is Nothing Then
浏览 3提问于2019-04-11得票数 2
2回答
我想将一个范围值传递给一个函数，然后将得到的范围值返回给我的子函数。
分：
Dim nettowertadresse As Range
和
nettowertadresse = searchAdress(Dateiname, CurrentSheet, "Nettowert", Range("A1:BA2"))
职能：
Function searchAdress(inputworkbook As String, inputsheet As String, inputsearchtext As String, inputrange As Range) As Ran
浏览 0提问于2014-11-10得票数 0
回答已采纳
我收到了以下代码的Run-time Error '91' Object Variable or With Block not Set。
我很困惑，因为我没有使用任何对象变量(我认为，我对VBA并不陌生)。调试突出显示第6行。
我的代码是：
Dim i As Integer
i = 1
Columns("A:A").Select
Selection.Find(What:="" & Cells(i, 19).Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, Sear
浏览 10提问于2015-06-09得票数 1
回答已采纳
我有一个不太典型的问题--还有什么原因可以显示随机错误(例如91,1004,1001，等等)在VBA中而不是错误地编写代码？
因为有这样一种情况，相同的代码可以在我的计算机和我的excel上运行(所以我假设它写得很好)，但在我朋友的上却不能。它的执行速度也要慢得多(~5倍)，最后总是显示一个错误，通常是91 (未设置对象变量)。当添加"On Error Resume Next“时，代码通过，但是在结果中有错误。关闭所有其他程序也无济于事。
在我的PC上，我没有任何问题，一切都进行得很快很顺利，结果中没有错误。
我们都有8 8gb的内存，我有英特尔的i5 (朋友有更老的i3)和不同版本的
浏览 0提问于2019-08-22得票数 0
1回答
我怀疑这是我正在尝试做的一件“奇怪的”事情，但是……我已经配置了Kestrel来监听几个端口。问题是，有时这些端口中的一个已经在使用中。
这当前导致我的应用程序崩溃。
我希望看到的行为是，它监听我指定的所有可用端口。但是我还没有找到关于这个主题的任何示例/文档。
例如，我可以将其配置为侦听90、91、92，如果端口91已在使用，则配置为93...but，我希望它只侦听端口90、92、93。我不介意它抛出一个异常或记录一个错误，只要我能让它继续。我希望避免‘先检查’，然后更改配置，因为这感觉像是等待发生的竞争条件)
谁能告诉我如何让Kestrel只在可用的端口上启动？
浏览 1提问于2019-06-15得票数 3
我有一个Outlook 2003 VBA应用程序，它在特定类中包含类似以下代码的内容：
Sub SaveAttributes(objMail as Outlook.MailItem)
Dim Field As String
Dim SaveForLater As String
Field = "Subject"
SaveForLater = objMail.ItemProperties(Field).Value
...
End Sub
我想扩展应用程序来处理MeetingItems等，我想像这样修改代码：
Sub SaveAttributes(ob
浏览 0提问于2011-01-22得票数 1
代码从"HistoryUrgents“表中读取列中的字符串列表，然后移动到另一个名为"Sheet1”的表中，在那里找到它们并绘制包含字符串的行。它一直工作到读取第二个字符串为止(它绘制正确包含第一个字符串的所有行)。代码只是停留在一个连续循环中。如果我们用ctrl + break强制关闭它，那么就会弹出一个“运行时错误'91'”。
正如您在附带的屏幕截图中看到的那样，"c“变量不是什么，尽管它是If Not c Is Nothing Then传递的。
浏览 3提问于2016-01-26得票数 0
回答已采纳
2回答
我编写了代码来比较两个巨大的Excel文件中包含的数据，在运行比较代码时，我遇到了一个“运行时错误'91‘对象变量或块变量未设置”。有人知道我的错误是什么吗？请看下面代码的图片：
运行时错误91：
浏览 7提问于2017-03-14得票数 1
回答已采纳
Dim recvar
Dim addrvar
Dim grpvar
Dim rst As Recordset
Dim db As dao.Database
Dim findExisting
recVar = Forms!locspecificinfofrm.ActiveDataSubfrm!Record_ID.Value
grpVar = Forms!locspecificinfofrm.Location!Grp_ID.Value
findExisting = "SELECT [Addr_ID] FROM [Prov_Address_Bridge] WHERE
[Record_I
浏览 1提问于2017-04-28得票数 0
回答已采纳
我有下面的VBA来更新我在excel中的数据连接中的命令文本。
Sub ClaimLine_Macro()
Dim strsql As String
strsql = "Select a.* from claim a "
strsql = strsql & Worksheets("SQL_ClaimLine").Range("claim1")
strsql = strsql & Worksheets("SQL_ClaimLine").Range("claim2")
浏览 11提问于2017-08-23得票数 2
回答已采纳
我正在尝试将一个单元格的内容复制到另一个工作簿中，但希望用户能够通过在当前工作簿(宏代码所在的工作簿)中的一个单元格中键入单元格的名称来指定从哪个单元格开始。
(顺便说一下，请原谅这个问题的基本性质以及我在词汇方面所犯的任何明显错误；我在这方面还是个新手！)
我编写了以下代码，但收到“运行时错误'91'：对象变量或未设置块变量”的消息。
(请注意，我还使用了用户输入来引用不同的工作簿。这部分起作用了。)
Sub OpenWorkBook()
Dim Src As Workbook
Set Src = Workbooks.Open(Range("B3&#
浏览 1提问于2016-08-30得票数 0
回答已采纳
1回答
场景：--我试图从excel中的vba代码中运行脚本。代码运行时没有错误，但没有产生任何结果。
VBA：代码：
Private Sub CommandButton1_Click()
Dim Ret_Val
Dim args As String
args = "\\X\s\D\D\Data_manager.py"
Ret_Val = Shell("C:\Users\D\AppData\Local\Continuum\anaconda2\python.exe" & " " & args, vbNor
浏览 5提问于2018-01-02得票数 2
一个业余程序员做了一个不错的小程序，通过VBA在made 2010数据库上工作。我们被要求为这个database+VBA项目制作一个安装程序。代码在任何安装了Office的计算机上都运行良好，但是在没有Office的计算机上，我们得到了上面的错误。在没有办公室的计算机上，我们安装MS-Access2010Runtime，这是免费的，以便能够打开.accde文件。但这并不能防止VBA错误。
我在这个问题上做了一些研究，但没有发现任何与这个具体情况有关的东西。如何解决这一问题？
浏览 2提问于2013-08-24得票数 1
回答已采纳
1回答
所以有一天，我得到了一些奇怪的和值，我被完全搞糊涂了。我放弃了在VBA中使用求和函数，只是以很长的方式(通过循环)添加了值，但是我在某个地方读到，在VBA中使用和函数对开发人员来说并不总是可靠的？(我找不到那篇文章了，但我还在找)。
这有什么事实吗？我知道很多人都有不同的方法从不同的细胞中得到这笔钱--而不是太固执己见，其中哪一个会得到最准确的结果？
Sub testsums()
Dim metric1 As Integer, metric2 As Integer, metric3 As Integer
metric1 = Application.Sum(Range(("A1
浏览 0提问于2017-09-08得票数 2
回答已采纳
我已经在ThisWorkbook (Excel2010)中的personal.xlsb中创建了以下vba脚本：
Sub Workbook_Open()
Application.ActiveWindow.AutoFilterDateGrouping = False
End Sub
它不起作用。我收到vba运行时错误: 91对象变量或未设置块变量。虽然它的工作，如果手动运行后打开的文件。
这样做的目的是为所有新打开的文件自动将AutoFilterDateGrouping设置为False。
浏览 2提问于2014-11-03得票数 0
我已经写了一个VBA代码来报废一些网络数据。它登录到一个网站。单击生成表的图像。
HTML：
<img onclick="submitfilter()" src="../../images/buttons/go.gif" style="CURSOR: hand" valign="center" align="top">
VBA可单击：
html.getElementsByName("XXXXX")(0).getElementsByTagName("table")(1).C
浏览 1提问于2016-10-24得票数 0
1回答
我希望在91列(例如，A列)中找到x连续数的最小和。例如，如果x为30，我希望在91数字列中找到30个连续数字的最小和。我需要对30到78之间的x的每一个值进行计算。
对于x =30的情况，非VBA的蛮力方法如下所示：
=MIN(SUM(A1:A30),SUM(A2:A31),SUM(A3:32),...,SUM(A62:A91))
对于x = 78的情况，这种非VBA方法如下所示：
=MIN(SUM(A1:A78),SUM(A2:A79),SUM(A3:A80),...,SUM(A14:A91))
我有20个列(每个列都有91个数字)，我需要应用这个函数，因此该列也需要是一个变量。我的猜测是
浏览 3提问于2015-07-14得票数 0
回答已采纳
3回答
所以我是新来的vba，我正试着得到价格(我尽了我的一切所知)。宏是：
Sub Deneme()
Dim objIE As InternetExplorer
Dim Prc1 As String
Set objIE = New InternetExplorer
Dim Search_Terms() As Variant
Dim CopiedData() As Variant
Dim y As Integer
objIE.Visible = False
Search_Terms = Application.Transpose(ActiveSheet.Range("A2:A169&
浏览 0提问于2018-04-23得票数 1
回答已采纳
我想刮谷歌搜索结果右边的数据使用VBA。我能够抓取结果，但不是我需要的确切结果。下面是屏幕截图，我用红色标记了我需要刮掉的东西。
我在VBA中尝试了下面的代码，但总是有运行时错误。如何解析到每个部分并获取span标记中的值。
VBA：
Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.ResponseText
Set objResultDiv = html.getElementById("rhs_block")
Set objH3 = objResultDiv.getEl
浏览 6提问于2015-12-17得票数 0
我在下面的单词VBA上得到一个运行时错误91：
Dim myStoryRange As Object
For Each myStoryRange In ActiveDocument.StoryRanges
With myStoryRange.find
.Text = "test to search"
.Replacement.Text = "text to replace"
.Wrap = wdFindContinue
.ClearFormatting
.Replac
浏览 6提问于2017-09-27得票数 0
我试图通过一个Sub在excel中创建多个具有参数的无模式UserForm的实例。
我可以让它使用我想要分配的三个参数中的两个，但是第三个参数一直在返回我。
“运行时错误'91'：对象变量或块变量未设置”
我也搞不懂为什么。这可能是一个明显的错误，我没有看到，但我真的不能指出问题。这是我的代码：
Sub AskToClose(targetWksht As Worksheet, targetRow As Integer, test As String)
Dim newInstanceOfMe As Object
Set newInstanceOfMe = Us
浏览 2提问于2019-11-06得票数 1
回答已采纳
我从docs.microsoft.com复制了一些VBA代码，以便更好地理解摘要任务对象在MS项目中的工作方式。然而，我在原始代码上收到了运行时91错误，请参见以下内容： Sub CheckAssignmentsOnSummaryTasks()
Dim tsk As Task
Dim message As String
Dim numAssignments As Integer
Dim numSummaryTasksWithAssignments As Integer
Dim msgStyle As VbMsgBoxStyle
message = ""
num
浏览 2提问于2020-04-27得票数 0
1回答
我在VBA中使用这段代码时遇到了一个问题，运行时出现错误91。
Private ChkTemp(90) As Checkbox
ChkTemp(0) = Temp1
.
.
.
ChkTemp(89) = Temp90
我尝试为新声明的checkbox(ChkTemp)分配一个设计时checkbox(Temp1)。
浏览 0提问于2012-02-06得票数 1
1回答
嘿，也许我在这里没有看到明显的东西，但是如何使用带有预定义变量的Find VBA函数。我使用的是从用户表单中分配的字符串的级联，在它前面只是“总计”，但是我不能返回该行。
下面是我的代码
Dim HBWS As Worksheet
Dim TickerString As String
TickerString = "Total " & TTB
Set HBWS = Sheets("Hoenheimm Worksheet")
BorrowColumn = HBWS.Cells.Find(What:="Borrow").Column &#
浏览 0提问于2018-03-23得票数 1
回答已采纳
在安装标准用户与管理员时，我遇到了一种奇怪的情况。
我的安装程序请求“最高”身份验证级别，然后继续使用注册表文件导入到HKCU注册COM dll(而不是直接使用regasm.exe )。COM用于Excel中的VBA。这允许我在每个用户的基础上安装。
安装之后，我在Finish页面上选中了"Run“复选框。这一过程是：
用户单击"Finish“并启动我编写的VB.net exe。
VB.net exe将一些附加注册表项写入HKCU (与COM没有任何关系)，然后启动Microsoft
Excel将打开并尝试在VBA中实例化COM对象。
这里有一个奇怪的区别：
浏览 4提问于2022-01-19得票数 0
回答已采纳
我试图从一个VBA程序(在msaccess中)调用一个使用实体框架6的C#程序。只有在首先使用实体框架( Entity )从VBA通过COM互操作调用C#函数时，我才会得到这个错误C#：
在应用程序配置文件中找不到名为“myEntities”的连接字符串。
我尝试将app.config复制到与masaccess.exe相同的目录中的msaccess.exe.config，但这并不能解决问题。有什么简单的解决办法吗？谢谢。
(有这个问题，但没有得到答复。关于这一主题的现有帖子没有任何帮助。 )
增编(从下面的注释中添加)：强制配置位置似乎并不能帮助EntityFramework 6退出。
浏览 2提问于2014-01-07得票数 0
我的PowerPoint功能区出现了奇怪的行为。
我创建了一个带有功能区的pptm文件，用于快速链接到2个vba代码。一种是将数据从xls文件复制到图表。另一种方法是将演示文稿的副本保存为pptx文件和pdf文件(savecopyas)，并用outlook发送电子邮件。
只要我只保存pdf文件，一切工作都很顺利。如果我还创建了pptx文件(或另一个命名为pptm的文件)，则vba脚本仅在第一次运行时运行-之后，用于两个操作的功能区都不再工作。它会提示一个错误，指出找不到vba代码。
我经历了什么？
1)只要电子邮件代码不启动，xls-code就可以运行一次。
2) pptx文件将不再包含任何v
浏览 1提问于2014-12-05得票数 0
3回答
如何在VBA中获取错误详细信息，如行号、错误消息等。它显示诸如“编译错误”之类的简单消息，但不显示错误的详细信息和行号。
浏览 3提问于2020-03-02得票数 0
我使用VBA搜索15x15数组，查找所有‘1’的位置(行和列号)，并将它们映射到一个新位置。
Sub findvalues()
Dim OldRow As Long
Dim OldColumn As Long
With Worksheets(1).Range("a1:o15")
Set c = .Find(1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
cellAddress = c.Address
浏览 0提问于2018-02-01得票数 1
回答已采纳
我有一个Excel VBA项目，它使用MSXML2.XMLHTTP将web内容引入到Excel中。一切都执行得很好，除了有时我在脚本运行时得到这个错误：
无论我单击哪个按钮(是或否)，脚本都会继续正常运行，一切正常(即所有内容都正确加载到Excel中)。但是，我想首先防止这个错误弹出，因为在宏运行时弹出这个错误是不好的用户体验。
VBA项目甚至没有344行，所以我不确定错误指的是哪一行。有没有人知道如何解决这个问题，或者至少防止这个错误对话框出现？
浏览 2提问于2011-11-01得票数 0
回答已采纳
1回答
目标-C类未被认可？
、、、
这是个很奇怪的问题。(我只是希望这和我不玩那麽久的可可有关，否则.)
所以，这个问题很简单：
我使用的是Xcode 4.3.3 (一个非常简单的测试项目- 10.7 SDK - no ARC)
我在某些类上创建一个分类(例如NSProgressIndicator__)
我包括了适当的头文件
当尝试使用“类别”的任何方法(然而，它仍然显示在可用命令的下拉列表中)时，我得到了一个错误：
NSProgressIndicator启动:未识别的选择器发送到实例0x7f9f4b91a0a0
密码
(举个例子-它发生在其他(100次测试)类别中)：
#import &
浏览 1提问于2012-08-26得票数 1
回答已采纳
1回答
我有一个VBA，我正在使用一个单独的工作表上的按钮运行。但是，由于某些原因，当我单击该按钮时VBA不工作，当我使用VBA应用程序运行VBA时，VBA运行时没有任何问题。正在运行的VBA Im如下所示。
Sub Fillit()
Worksheets("Sheet3").Range("B3").FormulaLocal = "=INDEKS(Sheet1!$N:$N;SAMMENLIGN(Sheet3!$A:$A&Sheet3!B$1;Sheet1!$R:$R;0))"
LastCol = Worksheets("Sheet3&
浏览 0提问于2017-09-06得票数 0
我正在尝试使用VBA代码来单击网站上的"Go“按钮。这是源代码。
<div class="actions">
<a id="go" href="javascript:void(null);" title="Go"><img src="/images/button-go-smaller.png"></a>
<a id="reset" href="javascript:void(null);" title=
浏览 3提问于2016-07-06得票数 0
1回答
我正在编写一个VBA应用程序，它调用返回集合对象的C#.net方法。
当我将输出赋值给VBA.Collection时，我得到了一个编译时错误参数，该参数不是可选的。
如果我将输出赋值给Object，我会得到运行时错误- Object variable or With block variable not set
我认为这是因为集合类型不兼容。
有没有人可以帮我把.net集合类型转换成vba。
谢谢
浏览 0提问于2009-06-03得票数 1
当excel VBA代码将值传递给IEobject时，我会间歇性地面对运行时Error 91。比如说，对于一组15次迭代，我在同一位置遇到了3-4次错误。
当我手动(F8)运行时，看不到错误。我添加了延迟，但徒劳无功。
在输入货币之前，Acct_name字段一直呈灰色显示。IE.document.frames("company").document.forms("account").document.all("currency").Value="USD“IE.document.frames("company").doc
浏览 3提问于2014-01-10得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
