我尝试在excel2013中运行一段VBA代码,以便从我们的intranet站点访问一些数据,但我得到了一个运行时错误2147467259 (80004005) -自动化错误未指明错误。
Sub AccessWar()
Dim oIE As InternetExplorer
Dim oHTML As HTMLDocument
Set oIE = New InternetExplorer
oIE.Navigate ("http://iscls3apps/WAR40/aspx/WAR40AllReports.aspx")
oHTML = o
我在网上找到了这段VBA代码,它可以在Facebook上运行。 在https://www.solarmanpv.com/portal/LoginPage.aspx上,它不起作用。它打开Internet Explorer,将凭据放在正确的位置,但不会按下登录。 当我尝试运行时,VBA上显示错误'424‘。 Sub LoginViaBrowser()
Dim Dc_Usuario As String
Dim Dc_Senha As String
Dim Dc_URL As String
Dim objIE As New InternetExplorer &
无论我怎么尝试,VBA selenium都无法在加载的页面中找到现有元素。下面是我使用的最后一段代码:
Sub TableData()
Dim driver As New WebDriver
Dim sInfo As String
With driver
.Start "Internet Explorer"
.Get "http://cvb.manatron.com/Tabs/PropertySearch.aspx"
.FindElementById("fldInput").SendKeys ("Carter
我试图从URL中获取地址数据,但遇到了一些错误。我只是VBA的初学者,我不知道哪里有问题。
在我的密码里。希望有人能帮我找到正确的解决方案。
在这里,我附加了图像和我的VBA代码
这是我的密码
Public Sub IE_GetLink()
Dim sResponse As String, HTML As HTMLDocument
Dim url As String
Dim Re As Object
Set HTML = New HTMLDocument
Set Re = CreateObject("MSXML2.XMLHTTP")
'On Error Resume
对VBA非常陌生...
我正在尝试使用excel中的VBA为提交到FFIEC地理编码网站的地址带来结果区域代码。
我试过使用下面的代码,但我不能得到8391.00的答案是这个例子
Sub fillwebform()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://geomap.ffiec.gov/FFIECGeocMap/GeocodeMap1.aspx"
IE.Visible = True
我正在尝试单击下面URL中的按钮,并下载CSV文件。 https://www.ftportfolios.com/retail/etf/targetoutcometools.aspx?ticker=BGLD 该按钮上的文字显示为“单击下载”。 ? 这是后端的图像。 ? 我似乎无法让VBA识别该按钮。我已经尝试了一些想法。这是我最新的尝试。 Sub ClickIt()
Dim oHtml As HTMLDocument
Dim oElement As Object
Set oHtml = New HTMLDocument
With CreateObjec
什么VBA代码允许我发送POST请求(在asp搜索框中),然后在<span id="xxx"></span>标记之间检索数据?(在结果页面中)
我有以下代码来模拟页面中的搜索请求:
Dim Site As Object
Set Site = CreateObject("InternetExplorer.application")
Dim QNUMBER As String
Dim URL As String
URL = "apps/inventory/Default.aspx" 'local websi
我正在为我工作的公司做一个项目,我是VBA的新手。我正在尝试登录一个供应商的网站并导航到询价页面。
我可以登录,但登录后我无法让VBA单击我想要的超链接,除非我使用F8逐步执行代码。我试着在代码中的某些地方暂停,但它仍然不起作用。
我发布了给出问题的那部分代码。任何帮助都将不胜感激。
Sub getDurablePrices()
Dim IE As Object
Dim i As Long
Dim objElement As Object
Dim objCollection As Object
Set IE = CreateObject("InternetExplorer.Applic
我需要的跨度值"0.062540“从网站通过VBA拉出来。
{
]
我的代码如下:
Dim ie As New InternetExplorer
Dim doc As HTMLDocument
ie.Visible = False
ie.navigate "https://www.tefas.gov.tr/FonAnaliz.aspx?FonKod=MAC"
Do
DoEvents Loop Until ie.readyState = READYSTATE_COMPLETE
我试图使用excel VBA自动完成工作任务。我似乎不能得到所有的源代码。我创建了这个简单的代码来测试它。
dim IE as object
Dim S as String
Set IE = CreateObject ("InternetExplorer.application")
Call LocateOpeGSAPage (IE)
DIM htmlDoc as HTMLDocument
set htmldoc = IE.Document
s = htmldoc.body.innerHTML
它从我公司的网页上提取了几行HTML代码。
如果有帮助的话,如果我尝试手动获取源代码
我正在尝试使用Excel VBA从中提取第二个td标签,即美国十年期国债利率。这是我到目前为止所知道的:
Sub Ten_Year_Treasury()
' Record the US Ten Year Treasury rate from https://www.bankrate.com/rates/interest-rates/federal-funds-rate.aspx
Range("A2").ClearContents
Dim ie As InternetExplorer
Dim htmlEle As IHTMLElement
Set ie = New
我想使用VBA从网页中获取一个表,但我不能直接访问它,因为我需要从一个选项卡切换到另一个选项卡。问题在于网页的URL端( .aspx不会相应地演变)。
网址:
我已经设法构建了将表导出到Excel工作表的代码,但缺少“导航”部分。
下面是关于单击"Long Terme Tab“按钮的HTML代码:
我的起点是这里(ProcessHTMLPage进行表格抓取):
Sub Browse_Morningstar()
Dim XMLPage As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
XMLPage.
我正在探索网络抓取,试图提高输入数据的效率。不幸的是,我希望从中提取数据的网站现在是表格格式,所以我希望使用VBA来操作该网站,以达到预期的结果。
我不太熟悉编码/ VBA,但到目前为止,我已经让VBA打开一个网站并搜索提供的值。在这种情况下,化学文摘社编号67-64-1参考丙酮在网站上。
这方面的代码是:
Sub BrowseToSite()
Dim IE As New SHDocVw.InternetExplorer
IE.Visible = True
IE.Navigate "https://apps.who.int/food-additives-contaminants-
Sub Godmode()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://charterweb.santanderuk.gs.corp/CharterServiceChain/default.aspx"
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
这是一个单词2003 VBA错误吗?DocumentBeforePrint多次执行?
我指
我用宏test.dot制作了一个DocumentBeforePrint。
'ref http://msdn.microsoft.com/en-us/library/office/aa211915(v=office.11).aspx
Dim X As New EventClassModule
Sub Register_Event_Handler()
Set X.appWord = Word.Application
End Sub
Private Sub Document_New()
我在excel 2010中通过vba使用xmlhttp。我需要以编程方式向网站上的购物车添加一个项目。到目前为止,我有下面的代码,它使用了POST方法
我认为我的代码有一些问题,但不确定如何修复-它没有显示提交的表单所在的位置。下面是该url:
我输入的url作为处理表单的url是" form“的"action=”部分中的url。
我如何验证发布的表单?
Sub post_frm()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
' Indicate t
对于编写VBA宏,我还是个新手。我已经写了一个简单的宏来从网站搜索中抓取数据。我想根据选项卡"sheet1“中的单元格内容循环搜索。搜索运行得很好,但似乎没有使用单元格内容。我不确定我需要做什么才能让它正常工作。您的帮助将不胜感激
Sub Get_internet_data()
For x = 1 To 3
Worksheets("Sheet1").Select
Worksheets("Sheet1").Activate
MySearch = "URL;http://www.tr
我有具有以下格式的访问表:
--------------------------------------
|Name |Math|Science|Reading|Civics|
--------------------------------------
|Mike | A | C | A | B |
|John | B | A | A | B |
|Randy| A | C | A | A |
|Sasha| B | C | D | A |
|Max | A | C | A |
我试图浏览一个网站的网页抓取结果,唯一的问题是当我输入一个无效的输入时,它会抛出一个java警告框,这是我使用VBA代码无法克服的。
代码如下所示
Sub TIN_VERIFY_TN()
Dim ie As Object
Dim form As Variant, button As Variant
Dim pannumss As Characters
Set ie = CreateObject("InternetExplorer.application")
With ie
.Visible = True
.Navigate ("http://www.tnvat.go
我刚开始尝试用VBA编写代码来使用WinAPI函数。WinAPI Normalize()函数使用什么编码?UTF-16是我所期望的,但以下命令不起作用。字符数似乎没有正确计算,然后尝试实际创建规范化字符串将导致访问崩溃。
'normFormEnum
'not random numbers, but from ...
'https://msdn.microsoft.com/en-us/library/windows/desktop/dd319094(v=vs.85).aspx
'for use in calling the Win API Function Nor
目前,我使用selenium webdriver登录一个网站,并使用VBA宏发送文本。问题是,在宏的末尾,浏览器关闭。有没有办法在宏完成后保持边缘浏览器的打开状态?
任何帮助都是非常感谢的。
Selenium basic 2.0 Windows 10 Excel 2010 Edge浏览器
这是我的代码:
Sub Repsol()
Dim driver As New WebDriver
Set driver = New EdgeDriver
With driver
.Start "edge"
.Get "https://login.repsol.com/es/Land
我试图自动化从网站下载CSV的过程。
我已经成功地将代码写到:
登录到站点
导航到正确的页面
单击该链接可访问下载。
从那开始我的问题就开始了。单击该链接后,该站点将执行一系列Ajax调用,并显示带有链接的div,以便每次下载具有唯一名称的文件。我可以使该框弹出,但我不能让VBA点击链接后,它变得可用。有人能帮忙让VBA点击ajax调用后显示的框中的链接吗?
Sub GetTableData()
Dim ieApp As InternetExplorer
Dim ieDoc As Object
Set ieApp = New InternetExp
我只想简单地将一个公式输入到一个单元格中,该单元格包含一个连在一起的文本字符串和一个函数--我得到了一个恒定的1004错误。
细胞中的期望公式
=“”
在excel工作表中按预期工作。
在VBA我有
Sub IAS_AUTO_LIST()
Application.ScreenUpdating = False
Set uRange = Application.Selection
Set uRange = Application.InputBox("Select Range to Add Par ID Link", "Range", uRange
我想创建一个包含日期范围内所有工作日的日期的列的表。我在excel-vba中实现了一些代码(可以工作),如下所示:
Main
Sub columnofworkdaystest()
'init
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
ws.Range("A2").Value = "Date"
'Set the table
ws.ListObjects.Add(xlSrcRange, Range("A2:A4"), , xlYes
在运行我的脚本时,我会在使用selenium的vba中遇到不可见的元素错误。下面是我正在尝试的代码:
Sub Table_stuff()
Dim driver As New WebDriver
With driver
.Start "chrome", "http://apps.tga.gov.au/Prod/devices"
.get "/daen-entry.aspx"
.Timeouts.PageLoad = 20000
.FindElementById("disclaimer-accept"
我的脚本能够从使用vba和selenium加密的javascript的网页中获取表的全部内容。该表有一个下拉选项,可以通过点击"all“来选择完整的内容。该表有300行数据,分布着7列。大约有七个步骤要遍历才能到达目标页面。解析它们需要一段时间。只要运行它,坐下来,放松,直到浏览器关闭。它工作得很完美。我无法使用显式等待创建脚本,因为我怀疑vba中是否有任何选项。这是工作代码。
Sub Table_Data()
Dim driver As New WebDriver
Dim posts As Object, post As Object, t_data As Object
With