我正在尝试使用VBA进行web抓取,但出现以下错误: 做 Dim driver As New webdriver
driver.Start '"ie" 然后 ? 我修复了“互联网选项”设置,并将设置重置为默认值。我也检查了注册表设置,但它已经设置为100%。然而,每次我打开IE,它的缩放比例都被设置为200%。我可以在VBA中添加什么代码,或者我应该更改哪个设置?
我一直在努力学习网络抓取技术,并在这个问题上碰壁。我知道VBA不是最好的web抓取工具,但在我的工作中,我们没有能力使用Python或其他工具。只有Excel和VBA。主要的目标是从不同的网站抓取表格数据,在大多数情况下,使用一个表的站点是可以的,但是我遇到了一个有多个表的网站,我无法隔离该表,甚至无法将所有的表都拖到Excel表上。我当前的代码只取第一个表,我尝试修改代码以获取每个游戏表的点数,但我无法理解它。
如果有人能帮忙的话,我已经干了好几天了。
提前谢谢。
Sub GetHTMLDocumentXML()
Dim XMLPage As New MSXML2.XMLHTTP6
我正在创建一个表单,将数据输入到我的excel工作表中。我一直遇到的问题是,输入的信息是一个数字,但是当运行表单“保存”按钮的VBA代码时,我输入的数据将以文本形式放入Excel表中。这导致行尾的公式没有注册数据(一个简单的=sum(...)公式)。我尝试了几个不同的选项,并搜索了一个解决方案,但所有接近的答案都是为了从外部源导入数据。
这是将从窗体接收数据的单个单元格的代码。会有更多,但我认为这将提供足够的信息。代码中几乎没有其他内容,只有range("").select更改,然后在每个新的选择中从不同的文本框中提取数据。
Private Sub butSaveData_Cl
我正在用sdk 1.8编写一个使用kinect for windows (而不是新的全高清kinect)的应用程序。我正在使用kinect区域和kinectScrollviewer。在kinect摄像机前有一个窗口,所以必须跟踪的对象有来自后面的太阳光源。当光线强烈时,kinect就失去了正确检测抓取和释放交互作用的能力(有时抓取或释放事件是随机触发的)。我的应用程序将在可能出现这种灯光条件的环境中运行。我的问题是,在骨骼流中有一些参数,或者我可以设置一些其他的参数来改变这种光的敏感性?
正如标题所问的,我使用的某些工具依赖于带有Internet控件的VBA代码来对IE页面进行web抓取和控制。随着明年IE11的生命周期即将结束,有谁知道这将如何影响VBA中的互联网控制,或者它是否仍将发挥作用?试图弄清楚我们是否需要加速转换到另一种语言。
编辑:在我的研究中,我发现了一篇文章,展示了一个日落已经就位的windows版本。未安装IE,VBA Internet Controls功能无法启动IE。这是我见过的唯一一件事,但我想知道是否有人有这方面的经验?
我在使用Gumby框架格式化CSS表格时遇到了一个问题。表格的第一行“抓取”它上面的内容。
我怀疑我有一些未关闭的标签,但我肯定找不到它。
下面是我认为的相关css:
<div class="six columns" center-text>
<div id='Tips' >
<h4>Tips for Tops</h4>
OMITTING TWO PARAGRAPHS OF TEXT
<br><br>
</div>
我创建了一个规则,将每天的电子邮件移动到一个特定的文件夹,并运行一个VBA脚本来保存该电子邮件正文中的表。
当收到电子邮件时,VBA开始运行并以相同的主题抓取以前的电子邮件,只有在新邮件出现在我的目标文件夹之后。
我试过睡觉。
有没有办法先将新电子邮件移动到目标文件夹,然后运行脚本?
Sub ExportOutlookTableToExcel()`
Dim oLookInspector As Inspector
Dim oLookMailitem As MailItem
Dim oLookWordDoc As Word.Document
Dim oLookW
我正在开发一些VBA,它将在工作表中搜索特定的单词或短语,如果遇到该词或短语,我希望它能够抓取整个专栏并复制它。不幸的是,当我试图将搜索结果设置为与我的变量相等时,我总是遇到一个问题。
Dim Srch As Range
Set Srch = Cell.Find(What:="Foundation Account", After:=ActiveCell, LookIn:= _
xlValues, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False)
If
当我使用vba进行web抓取时,如果我在链接中发现像这样嵌套的标记,我总是会遇到问题
从左边的菜单中抓取链接数据,但当我到达锦标赛嵌套的英格兰,西班牙时,我错了
Sub championshipforebet()
Dim objIE As Object
Dim itemEle As Object
Dim itemEle1 As Object
Dim away As Object
Dim desc As String, pt1 As String, pt2 As String, price As String
Dim i As Integer
Cells.Select
Selection.Cl
我正在尝试复制Word表格单元格的内容(格式化文本、项目符号、表格、图像),并将它们粘贴到输出docx文件中。不幸的是,下面的代码复制了整个单元格,因此在输出文件中创建了一个不需要的表。
With outputApp.Selection
dbDoc.Tables(1).Cell(tableRow, 3).Range.Copy
.Paste
End With
我已经创建了一个仪表板,用户可以将其复制和粘贴到其中。仪表板将对仅包含公式的几个工作表上的数据进行一些分析。
我想设置一个VBA脚本,当公式在B25中为真时,工作表将从绿色变为红色,直到用户单击工作表选项卡并结束循环。我是VBA的新手,我从一个宏中抓取了一些代码来进行尝试。这就是我所拥有的:
Sub Test()
If Range("B25").Value = "TRUE" Then
Do Until Sheets("Dilutions").Activate
With ActiveWorkbook.Sheets("Dilutions
我对VBA编码非常陌生,没有以前的编码经验。我主要采用我找到的代码,并对其进行修改以满足我的需求。 我目前正在使用这个VBA来确定需要从“主列表”中复制哪些行,并将它们复制到指定的工作表中: Sub MovePerson()
With Application
.ScreenUpdating = True
.EnableEvents = False
End With
Sheet1.Activate
Dim RNG As Range
Set RNG = Range([C1], Range("C" & Rows.Count).End(xlUp))
On Error
我试图从outlook中提取一封电子邮件,并抓取电子邮件中附加的excel表。代码工作正常,除了我无法理解如何让VBA代码只抓取今天的电子邮件,否则它会一直抓取前几天的电子邮件和保存大量的文件与当前日期。
这是我的代码:
Sub ExportOutlookTableToExcel()
Dim oLookInspector As Inspector
Dim oLookMailitem As MailItem
Dim oLookWordDoc As Word.Document
Dim oLookWordTbl As Word.Table
Dim xlApp As Excel.Applicati
我正在使用这个VBA代码在特定的时间间隔刷新我的整个工作簿。()
如您所见,当前设置为每60分钟刷新一次。
Public RunWhen As Double
Public Const cRunIntervalMinutes = 60
Public Const cRunWhat = "Workbook_RefreshAll"
Sub StartTimer()
RunWhen = Now + TimeSerial(0, cRunIntervalMinutes, 0)
Application.OnTime earliesttime:=RunWhen, procedu
我有一个大型的VBA项目,我的任务是改变它收集数据的方式。
基本上,数据将在工作表的W列中输入,其在宏中的代码如下:
For Each rCell In Worksheets("REPORT").Range("W2:W50")
Debug.Print rCell.Value:
sJob = rCell.Value
它抓取了我希望它在W列中抓取的数据。
不久之后,它将启动以下代码块中的一个函数:
vJobFolders = Split(FindJobDir(strpathtofile & sJob), ",")
For i = 0 To
为什么当Google显示"11.05“时vba显示答案"0”?
Sub test2()
Debug.Print 22.15 Mod 11.1
End Sub
问:是否有可能获得与谷歌提供的相同的VBA结果?
UPD2 2:VBA的Mod算子(非函数)与MOD函数有显著的区别。首先,它以不同的方式处理负值.第二,如果使用1作为除数,它将返回0,而不是浮点数的小数部分.第三,它以不同的方式处理浮点数(它使用Banker的四舍五入将所有浮点数舍入为整数,然后对这些数字执行操作,而Excel则不这样做)。
我编写了一个python to脚本,从网站上抓取数据表并输出到csv。然后,我使用cx_freeze将python脚本转换为.exe。当我手动运行.exe时,它按预期运行,但是,当我从outlook运行下面的代码时,csv从未创建过。也没有错误弹出。
Dim wsh As Object, x As Integer
Set wsh = VBA.CreateObject("Wscript.Shell")
x = wsh.Run("cmd /c C:\Users\username\Desktop\Lindner_Scrape\build\exe.win32-3.6\Scrap
我有一个web服务,当我从处理程序页面(.ashx)调用它时,它运行得很好。
我的web服务返回一个zip文件。
但是当我从我的aspx页面调用相同的代码时,我得到了一个损坏的zip文件。调用代码如下所示,在ashx类和aspx页面中是相同的。请指教
Dim service As New doc()
Dim b() As Byte
b = service.GetCoverScanTest(New String() {"50BC2781-E4F9-4C0C-AE32-34D4118BD98F"}, System.Configuration.Configur
您好,我在windows7上使用excel2010vba。如何访问给定数据透视表的列标题。
例如,给定下面的数据透视表
Column Labels
-------------
Row Labels Col1 Col2 Col3
----------
Year 1 Value 1 Value 4 Value 7
Year 2 Value 2 Value 5 Value 8
Year 3 Value 3 Value 6 V
我在vba中有一个字符串,它有一个web链接。但是,当字符串显示在Microsoft word页上时。文本会自动换行,链接也会断开。如何确保VBA知道链接的开始和停止位置?
字符串如下所示:
Dim My_MSG As String
My_MSG = "Full company list can be found at finance.yahoo.com/blogs/hot-stock-minute/… by yahoo' by yourclients."
在word表中填充此字符串时,链接无法识别完整的链接