VBA WebScraping "object variable or with block variable not set“错误
VBA WebScraping 是一种使用Visual Basic for Applications（VBA）编程语言进行网络数据抓取的技术。"object variable or with block variable not set" 是一个常见的错误，通常出现在没有正确设置对象变量或使用了未初始化的对象变量时。
该错误通常表示代码中存在对象变量为空或未设置的问题。要解决这个错误，可以采取以下措施：
- 确保已声明并正确设置了所有的对象变量。在VBA中，使用
Set关键字来设置对象变量，例如：Set obj = New Object。 - 确保对象变量在使用前已经被初始化。这意味着在使用对象变量之前，需要为其分配一个具体的对象，例如：
Set obj = CreateObject("ObjectName")。 - 检查代码中是否存在错误的对象引用或拼写错误。确保对象名称与实际对象名称匹配。
- 在使用对象变量之前，通过条件判断语句（例如
If语句）或错误处理程序（例如On Error语句）检查对象是否为Nothing，以防止使用空对象变量。
VBA WebScraping的应用场景包括数据采集、自动化报表生成、数据分析等。对于VBA WebScraping，腾讯云提供了一些相关产品和服务，例如：
- 腾讯云函数（Serverless）：用于执行无服务器VBA WebScraping任务的计算服务。它提供了一个简单、灵活的方式来运行自定义的VBA代码。
- 产品介绍链接：腾讯云函数
- 腾讯云API网关：用于构建和管理VBA WebScraping的API接口，方便实现前后端交互和数据传输。
- 产品介绍链接：腾讯云API网关
- 腾讯云云数据库MySQL：用于存储和管理VBA WebScraping抓取到的数据。
- 产品介绍链接：腾讯云云数据库MySQL
请注意，以上仅为腾讯云的部分产品示例，其他云计算服务商也提供类似的产品和服务，可以根据实际需求选择适合的云计算平台。
相关·内容
运行下面的VBA时，我一直收到"object variable or with block variable not set“错误。我所要做的就是返回a= html.getElementById("")，但是在该行上总是出现错误。我已经删除了"“之间的所有内容，因为它们是敏感的细节。提前干杯 Sub web_scrape()
Dim IEobject As InternetExplorer
Dim a As Variant
Set IEobject = New InternetExplorer
IEobject.Visible = True
IEobjec
浏览 5提问于2020-07-22得票数 0
回答已采纳
不幸的是，我并不真正熟悉HTML代码的任何“组件”(标记、类、ids等)。以及它们之间有何不同。我正在尝试通过一个链接列表运行一个程序，单击其中的每个链接，然后在“点击”页面上找到任何下载链接。我的示例网址是"“，我已经设法遍历了链接列表，并让VBA打开每个链接。但是，我不能让VBA识别页面上有多少文件要下载，因为我不能从html中获取这些“元素”。
示例(选择“1942”的页面)：
<h1 class="c64u px16">Free C64 Game Download</h1>
<form action="/games/down
浏览 14提问于2017-08-26得票数 1
1回答
我正在编写一个VBA应用程序，它调用返回集合对象的C#.net方法。
当我将输出赋值给VBA.Collection时，我得到了一个编译时错误参数，该参数不是可选的。
如果我将输出赋值给Object，我会得到运行时错误- Object variable or With block variable not set
我认为这是因为集合类型不兼容。
有没有人可以帮我把.net集合类型转换成vba。
谢谢
浏览 0提问于2009-06-03得票数 1
Word doc有一个带有此VBA代码的按钮，该按钮将其发送到to字段中的特定电子邮件地址和CC字段中的另一个电子邮件地址。但是，CC字段需要填充在中的Word文档上的地址。如何在以下VBA代码中定义该变量：
Private Sub CommandButton1_Click()
Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlo
浏览 9提问于2022-05-25得票数 0
我试图从Outlook电子邮件中获取表格，并使用VBA将其复制到Excel中。
下面的行中有一个错误91: object variable and with block variable not set。我一直在其他模块中使用getCurrent()函数，它工作得很好。
Set oTable = oConv.GetTable
我的VBA代码：
Public objApp As Outlook.Application
Sub ReadTable()
Dim oTable As Outlook.Table
Dim oConv As Outlook.Conversation
Set oConv
浏览 2提问于2015-03-24得票数 1
2回答
目前，我正试图从VBA查询DB2实例，但很难找到适当的文档或以前提供完整答案的堆栈问题。
当我运行以下代码时，会收到一个错误：
“没有启动数据库管理器的SQL1032N. SQLSTATE=57019”
当前连接代码：
Sub connect()
Dim conn As Object 'Variable for ADODB.Connection object
Dim rs As Object 'Variable for ADODB.Recordset object
Set conn = CreateObject("ADODB.Connecti
浏览 0提问于2018-05-15得票数 1
回答已采纳
我想从一个网站获取一些数据，要做到这一点，首先填写表单控件，然后单击按钮，但我无法从下拉框中选择值，请帮助我实现此任务。
Sub extract_data_from_MonsterIndia()
Dim objIE As Object
Dim myjobtype As String
Dim myexperience As Integer
Dim mycity As String
Dim r
浏览 4提问于2016-09-26得票数 0
1回答
下面的Visio宏(使用VBA)旋转当前选定的形状：
ActiveWindow.Selection.Rotate90
如何将该形状存储到变量中？我尝试了下面的代码。
Dim s1 as Shape
Let s1 = ActiveWindow.Selection
s1.Rotate90
这段代码不能编译，它给我一个关于“选择”的“参数不是可选的”错误。
如果我将其更改为Selection(0)，我会得到运行时错误"Invalid selection identifier“。
如果我尝试object (1)，我得到的结果是"Object variable or With block
浏览 2提问于2009-09-16得票数 0
回答已采纳
1回答
我是VBA和Webscraping的新手。我正在尝试打开一个位于XML文档中的URL。
http://research.investors.com/services/AutoSuggest.asmx/GetQuoteResults?q=txn&limit=10
InnerText给了我网址，但包括<Url>和</Url>。
<Url>http://research.investors.com/stock-quotes/nasdaq-apple-inc-aapl.htm</Url>
这就是我无法打开URL的原因。下面是我的代码：
S
浏览 2提问于2017-10-19得票数 0
1回答
我是vba的新手。
我试图使用David Zemens的下面的代码从yelp中获取数据。
Option Explicit
Private Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub find()
'Uses late binding, or add reference to Microsoft HTML Object Library
' and change variable Types to use intellisense
Dim ie As Object 'Intern
浏览 2提问于2015-03-11得票数 1
回答已采纳
我被困在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
回答已采纳
好吧，我一定是漏掉了一些微妙的东西。
在Excel 2010中，此VBA工作如下：
Private Sub ExcelTest()
Dim wb As Workbook
For Each wb In Workbooks
Debug.Print wb.Name
Next wb
End Sub
我试图在Access VBA中复制这一点，并且在Access 2010中尝试了以下方法，但没有成功。
Private Sub AccessTest1()
'Derived from http://stackoverflow.com/questions/15958061/contro
浏览 1提问于2014-10-28得票数 0
回答已采纳
1回答
我偶然发现了。我尝试了被接受的答案所建议的解决方案，并提出了以下代码。
Sub WebScraping()
Dim appIE As Object
Dim myValue As String
Dim iLastRow As Integer
Dim allRowOfData
Application.DisplayAlerts = False
Set appIE = CreateObject("internetexplorer.application")
With appIE
.Navigate "http://uk.investing.com/rates-
浏览 3提问于2017-12-13得票数 0
在最近更新Outlook之后，这段代码开始返回
“编译错误:非可选参数”
行Set Travel = Items.Add正在触发错误。
Public Sub AddTravelTime()
Dim coll As VBA.Collection
Dim obj As Object
Dim Appt As Outlook.AppointmentItem
Dim Travel As Outlook.AppointmentItem
Dim Items As Outlook.Items
Dim Before&, After&
Dim Category$, S
浏览 2提问于2020-06-26得票数 1
1回答
我在让列表框在VBA中工作时遇到问题。我不确定我错过了哪一步。我已经创建了一个名为ListBox1的列表框。
我把程序写成如下：
Sub ListBox1_Change()
Dim ListBox As Object
With Listbox1
.AddItem = "Yes"
.AddItem = "No"
End With
End Sub
程序在.AddItem = "No"行失败。我得到Object Variable or With Block Variable not set错误。
浏览 14提问于2016-08-09得票数 0
我正在尝试使用VBA从SQL Server中提取存储过程。我可以从服务器获取基本的SQL代码，但是当我试图在存储过程中使用复杂的代码时，我得到了一个错误91: Object Variable or with block variable not set。我还不能确定我需要设置什么才能正确运行。 该存储过程不带参数，并且没有列出参数的代码。我已经尝试了本论坛其他主题中的一些参数代码，但没有任何更改 删除cmd行并仅为SQL代码运行它(SELECT * FROM Table)确实有效 Sub ConnectSQL()
Dim conn As ADODB.Connection
Di
浏览 11提问于2019-02-07得票数 2
回答已采纳
我是nodejs的新手，正在尝试编写这个web抓取器，我遇到了以下错误。它要求返回promise，但我尝试了，但都没有结果。不确定我是否使用了正确的包。在这一点上，异步中的承诺对我来说很难理解。任何解释和代码都将是非常有用的。 PS C:\Users\farid\Desktop\Node Projects\webscraping> node --trace-warnings .\index.js (node:10748) UnhandledPromiseRejectionWarning: RequestError: E
浏览 3提问于2020-12-31得票数 0
回答已采纳
我有一个带有一个表的Server 2008 R2 Express数据库。Windows
我写了这个宏来请求表的大小和删除行，如果表比我需要的大，我每1小时从SCADA调用VBA。
Option Explicit
Dim strConn As String
Dim strSQL As String
Dim objConn As Object
Dim objRecSet As Object
Dim Command As Object
Dim objRecSetValue as Double
On Error Resume Next
Err.Number = 0
strConn = &#
浏览 4提问于2017-10-09得票数 0
回答已采纳
1回答
我正在尝试格式化以下xml
<block formula="MY_VAR < 3"><set-variable name="OTHER_VAR"></set-variable></block>
转到
<block formula="MY_VAR < 3">
<set-variable name="OTHER_VAR">
</set-variable>
</block>
使用，并得到一个错误，因为<在我的公式。具
浏览 2提问于2019-03-20得票数 0
我正在尝试解析我从一个网站得到的xml文档。由于某种原因，我不能确定我不能解析“RATE”节点中的值。xml字符串看起来没问题，但在代码的末尾(注释)，我得到了Object variable或With block variable not set error。如果有任何帮助，我将不胜感激。
XML字符串：
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<CURRENCIES>
<LAST_UPDATE>2016-01-25</LAST_
浏览 124提问于2016-01-27得票数 2
回答已采纳
我正在使用VBA读取excel的一些单元格。
Function getData(currentWorksheet as Worksheet, dataStartRow as Integer, _
dataEndRow as Integer, DataStartCol as Integer, dataEndCol as Integer)
Dim dataTable as Range
dataTable = currentWorksheet.Range(currentWorksheet.Cells(dataStartRow, _
dataStartCol), curren
浏览 1提问于2012-09-02得票数 13
回答已采纳
当用户单击按钮时，我想在电子邮件中附加一个图表。
代码没有添加图表。
命名是正确的，我没有收到任何错误(除了我为帮助测试而实现的错误)。
If ChartNameLine = "" Then
GoTo ErrorMsgs
Else
Dim xOutApp As Object
Dim xOutMail As Object
Dim xChartName As String
Dim xPath As String
Dim xChart As ChartObject
Dim xChartPath As String
浏览 17提问于2022-01-19得票数 0
回答已采纳
我正尝试在VB6应用程序中使用我的COM类。我做了一种包装纸。当我创建对象时，我看到消息Is Nothing 1，所以它建议设置成员变量并且它不是空的，但是当我尝试使用属性返回这个成员时，在返回行中我看到异常Object variable or with block variable not set。我不知道如何修复它。 // MyComClass
This is a COM class with method Operation
// clsMyCom.cls
Private WithEvents m_myComClass As MyComClass
Private Sub Class
浏览 13提问于2020-10-01得票数 0
回答已采纳
我想使用一个应该返回Excel.Application对象的函数：
Dim ExcelApp As Object
Set ExcelApp = getExcelApp()
Function getExcelApp() As Object
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = False
ExcelApp.ScreenUpdating = False
浏览 8提问于2017-08-23得票数 1
回答已采纳
1回答
我正在寻找一个VBA代码，可以帮助我点击一个按钮从网页。我得到了下面的VBA从其中一个网站，如预期的工作。
Sub followWebsiteLink()
Dim ie As InternetExplorer
Dim html As HTMLDocument
Dim Link As Object
Dim ElementCol As Object
Application.ScreenUpdating = False
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "https://www.google.co.
浏览 1提问于2017-11-16得票数 2
回答已采纳
1回答
我想在vb6中声明一个列表框数组，我需要帮助才能做到这一点。我已经尝试过以下代码：
Dim list() As ListBox
但具有以下错误：
object variable or with block variable not set 91
浏览 0提问于2011-12-04得票数 0
回答已采纳
我正在尝试自学VBA和XML的基础知识，以解决我在Excel中处理的一个具体问题。我正在尝试使用API来拉取给定的人口普查区块ID。
下面是XML代码：
<Response xmlns="http://data.fcc.gov/api" status="OK" executionTime="120">
<Block FIPS="120950170151016">
<intersection FIPS="120950170151016"></intersectio
浏览 0提问于2016-11-18得票数 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
回答已采纳
1回答
我有下面的代码从一个网站刮数据，问题是它没有刮任何数据，它没有显示任何错误，但也没有给我任何结果.
Option Explicit
Public Sub Loiça()
Sheets("Loiça").Range("A:A,Z:Z").EntireColumn.Delete
Dim IE As New InternetExplorer, i As Long, data As Object, div As Object, item As Object, r As Long, c As Long
With IE
.Visible =
浏览 2提问于2019-03-07得票数 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
1回答
VBA AES CBC加密
、、、、
我在https://github.com/susam/aes.vbs中提到了加密，下面是我用来实现的代码 Function Min(a, b)
Min = a
If b < a Then Min = b
End Function
Function B64Encode(bytes)
Dim result As String
Dim b64Block() As Byte
Dim b64Enc As Object
Dim utf8 As Object
Dim Offset, Length, BlockSize As Integer
浏览 225提问于2020-09-04得票数 3
回答已采纳
我想要写一个vba函数，它以一个范围参数作为输入，并输出它得到匹配的单元格。
Function find_cell_range(slct As Range, ByVal search_name As String) As Range
Dim rg As Range
With Range(slct)
Set rg = .Find(What:=search_name, LookAt:=xlWhole, MatchCase:=True, SearchFormat:=False)
End With
Set find_cell_range = rg
浏览 5提问于2017-05-31得票数 0
回答已采纳
1回答
我有下面的VB代码来获取注册表子项(，而不是，键或注册表值)。我只需要列出微软子项中的应用程序(例如Office、记事本、键盘等)。
它在VB.NET中工作，但我试图将相同的代码应用于宏中的VBA，我在GetOBject和EmumKey行中得到了一个运行时错误，表示"Object variable or With block variable not set"。我认为以下代码应该兼容于VB.NET和VBA。有人能解释一下吗？
Dim temp As Object
'On Error Resume Next
Const HKEY_CURRENT_USER = &H
浏览 0提问于2011-12-29得票数 6
回答已采纳
1回答
我正在与Arena一起使用这个代码，这是Rockwell自动化公司的一个模拟软件。我试图让代码从excel表中读取一些数据，并将其分配给进入vba模块的实体的属性。当我运行模拟时，我得到了这个SIMAN错误窗口：
"17035:EEVBA实体:2
在以下块的时间0.0处检测到一个运行时错误：*6 15$ VBA:0，vba:NEXT(2$)；
事件号0无效:必须为正。“
这个错误是什么意思？这是我的代码，有什么建议吗？
Option Explicit
Public XL As Object
Public Wo As Integer
Public W_1 As Integer
Publi
浏览 2提问于2018-04-24得票数 0
回答已采纳
1回答
我在本地保存了一个.msg文件，我正尝试使用Excel VBA回复它。我有这段代码，它只是将.msg文件作为模板，但不回复它。 我用谷歌搜索了很多，但我不确定该怎么做。 任何帮助都会得到重视！ Sub ReplyMSG()
Dim objOL As Object
Dim Msg As Object
Set objOL = CreateObject("Outlook.Application")
inPath = "C:\temp"
thisFile = Dir(inPath & "\*.msg")
Do While thisFile
浏览 22提问于2020-11-27得票数 0
2回答
我不认为答案太复杂，我一定是遗漏了一些基本的东西。为了给出上下文，代码和这个宏是由我开始工作时已经不在这里工作的一个员工编写的。我只是每月使用它几次，今天当我尝试运行VBA脚本时，它突然给了我一个错误。
它为我提供了标准的Run Time Error 91 (Object variable or block variable not set)。具体的代码是：
Dim DataBook As Workbook
Set DataBook = Workbooks.Open(Import_File_Path)
DataBook.Worksheets("Sheet1").Name = &
浏览 0提问于2014-04-03得票数 1
回答已采纳
我正在尝试使用VBA将excel文件中的整个工作表("SEND")作为附件发送，我使用了以下代码来实现： 我得到以下错误:没有定义对象的变量或变量' with‘，代码有什么问题？ Sub Sendemail()
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim tempFile As String
Dim strbodymsg As String
Dim wb As Workbook
Dim tempWB As Workbook
tempFile = ActiveWorkbook.Path &
浏览 165提问于2021-02-11得票数 0
2回答
我需要让脚本在执行if子句时不区分大小写。我已经在脚本中的不同位置放置了"compare.mode=vbTextcompare不工作“，以解决这个问题，但在我的情况下不起作用……脚本没有错误或任何其他问题。比较的是名字的范围都以大写字母开头，但匹配的部分是小写的…有什么解决方案吗？
Sub DropDown14_Change()
Dim ScCell As Range, key
Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
Set ws = Worksheets("Dashbo
浏览 14提问于2019-07-21得票数 0
回答已采纳
2回答
学习一些VBA。到目前为止，我已经构建了这段代码，它应该允许我(尽管它还没有)做以下事情：
获取"M" & i单元格中的数字(在第一次迭代中它是M5)。在A列中找到这个数字。找到它后，将PutHereIfFound的值设置为与F6的值相同(因此是偏移量)。如果找到一个数字，则增加I以使循环继续搜索M6、M7、.全部由单元格M20.决定
它返回一个Run-Time Error 91，它代表Object Variable or With Variable not set。调试时，它指向Set PuthereIfFound行。
这个错误的原因是什么？
Sub FindThi
浏览 5提问于2012-06-19得票数 0
回答已采纳
1回答
是否可以将类添加到类属性VBA
、、、、
因此，我有两个类模块，ClassA和ClassB，以及一个模块中的子模块，在这个模块中，我尝试将B类中的对象添加到ClassA中对象的属性中。
，类是对象，property set语句可以添加对象类型，所以看起来这应该是可能的。但是，当我运行test sub时，我得到一个"object variable or with block variable not set“错误
Sub：
Sub test()
Dim Class_A_Object As ClassA
Dim Class_B_Object As ClassB
Set Class_A_Object = New ClassA
S
浏览 8提问于2017-02-05得票数 0
下面的代码将查找相邻的单词，但如果一个单词不在电子表格中，我会尝试添加一个错误处理程序。我收到错误对象变量或未设置块变量。有什么问题吗？或者您可以帮助修复错误消息，以便如果找不到单词，消息框将显示msgbox“对不起，找不到文本，请重试。宏正在停止”。谢谢!
Sub Module6()
'
'FindPlusOffset&Count
'
'
Dim ws As Worksheet
Dim match As Range
Dim findMe As String
Dim findOffset As String
Dim Number As Long
Se
浏览 0提问于2013-07-02得票数 1
回答已采纳
我想从网站上刮下桌子。
基于web代码，我发现表似乎属于元素类etxtmed，因此我在下面编写了VBA。运行这段代码后，我发现它只在数据下面刮擦。
我认为这是因为("etxtmed")(0)引用了第一个("etxtmed")表，然后在(0)和VBA第一次报告"Element not exist"，然后在这一行代码r = tbl.Rows.Length - 1中报告错误Run-time error '91':Object variable or With block variable not set之后，我尝试了几个数字。是因为我把
浏览 2提问于2021-12-17得票数 0
回答已采纳
1回答
我试着使用以下代码：
import whois
w = whois.whois('webscraping.com')
但我得到了错误信息：
wh = whois.whois('example.com')
TypeError: 'module' object is not callable
有人知道怎么解决这个问题吗？
浏览 4提问于2015-10-10得票数 0
回答已采纳
我收到以下错误-不知道为什么？如果有人能解决这个问题，我将不胜感激。谢谢
[2014-03-12 11:09:36 - mediasenseapp] Dx
EXCEPTION FROM SIMULATION:
[2014-03-12 11:09:36 - mediasenseapp] Dx local variable type mismatch: attempt to set or access a value of type java.lang.Object using a local variable of type java.lang.Object[]. This is sympto
浏览 2提问于2014-03-12得票数 0
在使用VBA创建文件的zip文件时遇到一些问题。当我运行该文件时，我得到以下错误：
Object variable or With block variable not set。
当执行到达此行时会触发：
ShellApp.Namespace(zippedFileFullName).CopyHere ShellApp.Namespace(folderToZipPath).items。
我对VBA不是很熟悉，但是MS文档建议在文件的顶部使用Option Strict On。然而，当我添加这个的时候，我得到了另一个错误：
Expected: Base or Compare pr Explicit
浏览 30提问于2021-03-14得票数 1
2回答
我对VBA编程或面向对象编程很陌生。我试图让这些代码在Rockwell自动化的Arena的VBA编译器中工作。
有时我会得到Error 424: 'Object required'，在调试之后，我会在最后被引用到XL.Quit。有时，我会遇到一个与使用ActiveEntity有关的错误。我不知道我是否错误地让Excel文件工作，或者它是否与访问Arena的实体属性有关。
你能发现错误吗？或者你对如何自己找到它有什么建议？
Public Sub ModelLogic_RunBeginSimulation()
Dim m As Model
Set m = ThisD
浏览 0提问于2018-02-27得票数 1
回答已采纳
1回答
此脚本遍历所有选定的工作表，并在顶部插入10个空白行。然后，它应该导出这些图纸，并将WS名称保存为csv格式。然而，我似乎得到了错误的Getting object variable or With Block variable not set。
我尝试了一些方法，但到目前为止都没有成功。
Sub Insert_Rows_Loop()
Dim CurrentSheet As Object
Dim WS As Worksheet
Dim path As String
path = ActiveWorkbook.path & "\" & Left(ActiveWo
浏览 1提问于2015-08-14得票数 0
在VBA中，我试图将一个命名的范围存储到一个变量中，然后将它传递给一个函数，但是我得到了一个错误："Object不支持这个属性或方法“
Function BOM(val, rng)
Dim CR_Path As String
Application.ScreenUpdating = False
CR_Path = ThisWorkbook.Sheets("Request").Cells(val, 1).Value 'Copy that path from a cell
Set mybook = Workbooks.Open(CR_Path)
mybook.S
浏览 1提问于2020-08-13得票数 0
回答已采纳
1回答
使用Excel VBA，我尝试在SQLite表中搜索出现在文件名中的名称。
在下面的代码中，我使用NamesFound集合对象来存储名称。
当我遍历记录集时，我可以将名称添加到NamesFound并打印它们。
在关闭记录集并销毁变量之后，当我打印集合中的项数(NamesFound.count)时，我得到一个与文件名中匹配的名称数相匹配的数字。
但是，当我尝试打印集合中的任何元素时，我得到错误消息"Object is no valid“。
知道为什么会这样吗？
Option Explicit
Sub SQLiteMatch()
Dim strSQL As String, fn
浏览 20提问于2021-06-06得票数 0
回答已采纳
1回答
我遵循了下面链接中发布的解决方案，通过VBA执行了一个简单的SAS查询：
Dim obObjectFactory As New SASObjectManager.ObjectFactory
Dim obObjectKeeper As New SASObjectManager.ObjectKeeper
Dim obServer As New SASObjectManager.ServerDef
Dim obSAS As SAS.Workspace
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
obServer.Machi
浏览 0提问于2018-04-04得票数 4
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
