这段VBA代码适用于大约5-6个循环。在此之后,Excel文件将关闭。有时,Excel文件会在关机后恢复,有时不会。请帮我解决这个问题。我不是解决这个问题的VBA专家。谢谢。 Sub GetSpecificLinks()
'The code searches a website for the contact page url & pastes it in cell B2.
'First define all the variables
Dim ie As Object 'Internet Explorer
Dim html As Object '
我正在尝试整理以下链接"www.tutorialspoint.com/ VBA /index.htm“右侧窗格中给出的vba课程项目列表。 但由于某些错误,我无法抓取列表: Sub tutorailpointsscrap()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
With ie
.navigate "https://www.tutorialspoint.com//vba/index.htm"
.Visible = True
我正在尝试从xmlhttp中抓取元素。我使用vba还不错,但我对数据抓取还比较陌生。我之前一直在使用ie。 我可以将html导入到单元格中,但我想具体导入名称、id、价格和库存水平。 我用于导入数据的代码是 Private Sub HTML_VBA_Excel()
Dim oXMLHTTP As Object
Dim sPageHTML As String
Dim sURL As String
'Change the URL before executing the code
sURL = &
因此,我是一个新的IE自动化为VBA.I,我将尝试对我的问题非常具体。最近,我一直试图登录到一个网站,然后选择一个月从下拉列表。我可以从下拉列表中选择一个选项。但是,当我单击search时,结果显示的不是我使用VBA选择的值,而是网页上最初存在的值。通常,如果一个人去网站,他必须点击下拉并选择相关的期间,然后点击搜索按钮。我也尝试了FireEvent "onchange",但这似乎没有任何效果。我是附加的相关部分的VBA和相关的HTML。
请指导我如何选择期间。
VBA代码:
Set e = IE.document.getElementsByName("fin"
我正在使用MS Access 2010中的以下代码来打印一个HTML文件(本地)。
只有当我取消msgbox("wait")行的注释时,它才能工作。打印对话框弹出,我可以打印文档。如果我不使用msgbox,那么脚本执行得非常快,以至于在ExecWB更改启动打印对话框之前,函数就结束了(结果为True )。此外,如果没有打印对话框,则不会将文档发送到打印机。
有没有办法检查ExecWB是否已经完全执行。我尝试在循环中检查objIE.busy值,但也不起作用。
Public Function PrintHTML(filePath As String, Optional visibl
我想要做一个功能,从一个网站的一部分提取数据。
下面是HTML站点。。
函数代码
Function GetElementById(url As String, id As String, Optional isVolatile As Boolean)
Application.Volatile (isVolatile)
On Error Resume Next
Dim html As Object, objResult As Object
ret = GetPageContent(url)
Set html = CreateObject("html
我正在使用VBA生成新的Outlook电子邮件。当分配硬编码的表格宽度时,我的代码按预期工作,但是我想将width: 500px;分配给一个变量,并在整个电子邮件正文中使用该变量。 我如何才能做到这一点?我知道我们不能将CSS与VBA一起使用,因为我们只能通过VBA / Outlook使用HTML的基本版本 代码 Sub SendEmail
'shortened code
Dim tblWidth as double
tblWidth = 500
'i would like <td style = 'width:tblWidth px;...
With Em
我正在使用Excel VBA在Outlook中生成电子邮件。
我想传递一个变量值给我用来生成电子邮件的HTML代码。超文本标记语言代码存在于Sheet1!$A$1中
如何从子例程向HTML代码传递变量值?我不想在模块中写出我的HTML代码,因为用VBA编写它很痛苦!
VBA
Sub foo()
Dim myCustomVariable as string
myCustomVariable = "John Smith"
End Sub
Sheet1!$A$1中的HTML
<html>
<body>
<p>Hello "myCustomV
我想知道如何使用VBA将HTML换行符\r \n转换为Excel单元格中的换行符。例如,我从HTML页面复制了以下文本字符串:
hello my name is pete \r\n\r\n here are a list of things I would like to do today: \r\n\r\n *wake up \r\n\r\n *eat breakfast
我希望它在Excel中像这样显示:
hello my name is pete
here are a list of things I would like to do today:
- wake up
- eat b
我的程序通过getElementsByTag("a")从一个网站收集getElementsByTag("a")标签。在从im提取的网站上,每个<a>标记都有一个href链接。通过访问VBA,我如何进入那个href网站?
到目前为止,这就是我所拥有的
Dim ie As InternetExplorer
Dim HTML As HTMLDocument
Dim b As IHTMLElement
Dim alist As IHTMLElementCollection
Set ie = New InternetExplorer
ie.Visible =
有没有一种方法可以为表提取html代码,并使用VBA在word文档中打印出相同的表(VBA应该能够解析表的html代码块)?
可以将表的内容复制到Word中创建的新表中,但是是否可以使用html代码和vba重新创建表?
对于这其中的任何一个,我们从哪里开始研究?
编辑:多亏了R3uK:下面是VBA脚本的第一部分,它从文件中读取一行html代码,并使用R3uK的代码将其打印到excel工作表中:
Private Sub button1_Click()
Dim the_string As String
the_string = Trim(ImportTextFile("p
我想点击使用VBA的网页按钮。我尝试了几个选项(请看下面的代码),但它们似乎都没有用。如果不是单击,而是使用focus,它会选择我想要按的按钮,但是单击命令不起作用。我还能用什么方法呢?
Sub SubmitInfo()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.ecotransit.org/calculation.en.html"
Do While IE.rea
我想解析本地保存的网页列表。遗憾的是,这些网页不能用is浏览器打开(错误是“页面没有响应”),但FireFox可以很好地打开它们。因此,我必须找到一种“变通办法”来获取源代码,这样我就可以解析它以获得我想要的信息。因此我找到了SeleniumBasic。
我使用Excel2013和SeleniumBasic 2.0.6.0
在使用Selenium时,我遇到了以下问题。这是代码应该是的一个非常简短的版本:
Sub TestSeleniumParsing()
Dim sel As Selenium.WebDriver
Set sel = New Selenium.WebDrive
我正在寻找将VBA动画定时设置应用于如下形状的方法:
动画开始按一下,延迟几秒钟。
我能够应用动画,但无法在VBA代码中找到改变动画时间设置的方法。
With vslide.Shapes("Tile")
.AnimationSettings.EntryEffect = ppEffectFlyFromLeft
End With
使用VBA
我正在编码VBA以创建一个使用html格式的自动电子邮件。我有两个来自vba的变量值,我需要在html编码中传递这些值。长话短说:
FullName = strfullname ' value for strfullname will be passed from another function
With objmail
.bodyformat = olformathtml
.htmlbody = "This is my fullname: (display the value of fullname ) "
end with
我正在尝试将以下代码添加到excel 2011中列中的一组单元格的前面。
<div class="cpt_product_description "><div>
我试着使用这个:
Sub Add2Formula()
' Add text
For Each c In Selection
c.Activate
ActiveCell.FormulaR1C1 = "test - " & ActiveCell.Formula
Next c
End Sub
-这是可行的,并在单元格前面添加了"test -“-产生了
我不能手动这么做,所以为它开发vba;我的VBA代码正在为web从网站抓取数据的状态字段工作,如快照所示。我能够获取状态数据,但无法提取快照中突出显示的黄色地址/位置。需要在网站的"E“栏中添加每个单独的访问代码(密码)。我附上了当前的输出。我对刮刮还不熟悉。这是E列中我需要的地址/位置字段的图像(访问代码在C列) ? 下面是我的VBA代码: Option Explicit
Public Sub GetStatus()
On Error GoTo ErrHandler
Dim html As MSHTML.HTMLDocument, xhr As Object,
在VBA中,我可以使用End语句终止宏的执行,如下所示。
Sub DoSomeThing()
Dim test As Boolean
test = false
test = function()
If test Then
End 'Macro execution is terminated
End if
End Sub
我希望我的C# DLL包含一个具有相同效果的方法?我在想一件事,大致如下。
public void DoSomething_CSharp()
{
var test = false;
test = F
我想刮谷歌搜索结果右边的数据使用VBA。我能够抓取结果,但不是我需要的确切结果。下面是屏幕截图,我用红色标记了我需要刮掉的东西。
我在VBA中尝试了下面的代码,但总是有运行时错误。如何解析到每个部分并获取span标记中的值。
VBA:
Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.ResponseText
Set objResultDiv = html.getElementById("rhs_block")
Set objH3 = objResultDiv.getEl
我正在VBA的范围内运行Gnuplot,它运行得非常好。我能够使用GNUPLOT和Word VBA生成一整本由大约100幅图组成的书。(用Excel图表,我可以得到大约四个)
有一个小问题-当在VBA下运行时,STDERR消失了,或者没有被创建。没有诊断。
考虑到以下小的GNUPLOT脚本,
set key bmargin left horizontal Right noreverse enhanced autotitle box lt black linewidth 1.000 dashtype solid
set samples 800, 800
set title "Simple
有没有可能自动化的登录页面使用vba,其中有一个鼠标向下和鼠标向上点击。当我点击一个登录按钮,它有一个鼠标向下点击,因为它没有任何按钮,以便自动化使用vba。
请让我知道是否可以在vba中使用一些函数来执行此操作
请复制网址并粘贴到互联网标签:"“。单击URL后,您将输入到Ariba Discovery站点,在那里您将看到此Ship to Service location字段。在ship to service location字段中有多个位置,我们需要单击"Show more“。点击show more,如果我们看到html代码,它不是一个自动点击的按钮。它是awmouseup,
在网页上有10个查看联系人标签具有相同的名称(查看联系人).I我试图点击每个查看联系人标签使用selenium VBA,但我只能点击第一个查看联系人使用以下Selenium VBA代码,但互联网资源管理器代码工作良好,但我想点击每个标签使用selenium vba代码。
我的Selenium VBA代码:
Dim ele As WebElement
For Each ele In driver.FindElementsByXPath("//input[@value='View Contact']")
ele.Click
Next
我的Internet explo