Attribute VB_Name = "mdlWebQueryIETable" Option Explicit Sub WebQueryIETable() Dim objIE As Obje...

于 2023-01-06 21:14:59 发布
阅读量95 收藏
点赞数
文章标签： html 前端
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_42611310/article/details/129500407
版权

这是一个 VBA 子程序，其中包含了定义变量的语句以及对 Internet Explorer 对象的引用。它似乎是用于从网站获取数据表并将其存储到工作表中。

这个子程序使用了五个变量：objIE、objIEDOM、objTable、objTR、strURL。objIE 和 objIEDOM 是对 Internet Explorer 对象的引用，objTable 和 objTR 是对 HTML 表格和表格行的引用，strURL 是存储要抓取数据的网址的字符串变量。

lngRow 和 intTbRow 是用来跟踪行数的变量，intCol 是用来跟踪列数的变量，intPage 是用来跟踪页面数的

长野君
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB 注册表操作模块 代码
barenx的专栏
03-29 1598
Attribute VB_Name = "Reg_Operation"这是一个操作注册表的Bas文件,其中包含可以建立新键值,删除键值,查询键值的函数.Powered by barenxOption ExplicitOption Base 0Public Declare Function RegCloseKey()Function RegCloseKey Lib "advapi32.dll"
VBA操作备注
DELPHI学习心得记录
09-28 1118
Attribute VB_Name = "NewMacros" Sub Macro1() ' ' Macro1 Macro ' 宏由 Administrator 录制，时间: 2020/09/27 ' ' '定义字符串变量，修改表中日期上的错误信息 s = "填表人（签字）： *** 　　　 　 填表时间：　　　2020年 9月26日 .
打开VB工程时提示——发现名称冲突
王萌萌
08-07 2561
昨天在快要
你好，请帮我查下vba程序的bug：Attribute VB_Name = "mdlWebQueryIETable" Option Explicit Sub WebQueryIETable() ...
weixin_35751194的博客
01-06 69
您好，我可以尝试为您解决这个 bug。首先，我需要了解您在哪里遇到了这个 bug，以及它给您带来了什么样的问题。您可以告诉我更多的细节吗？
AttributeQuery.rar_AttributeQuery_c＃ arcgis
09-22
在C#代码中，可以创建一个`esri.arcgis.geometry.QueryFilter`对象，设置其`WhereClause`属性为用户输入的查询条件，例如"NAME = '北京'"。这个条件语句遵循SQL语法，可以根据实际需求进行定制。 然后，通过ArcGIS ...
AttributeQuery.rar_AttributeQuery_arcengine
09-22
c#、 ArcEngine开发 属性查询的实现，为基础的ArcEngine开发，对初学者很有好处。
rsl.rar_RSL Matlab_attribute reduction_rsl
09-19
标题中的“rsl.rar_RSL Matlab_attribute reduction_rsl”暗示了这是一个与RSL相关的MATLAB代码库，专注于属性约减技术。RSL通常代表Reduced Set Learning或Relevance Set Learning，这是一种在机器学习和数据挖掘...
vb实现锁定文件夹的源码.rar_VB 锁定文件夹
09-23
在VB（Visual Basic）编程环境中，我们可以利用操作系统提供的API（应用程序接口）函数来实现文件夹的锁定和解锁功能。在给定的“vb实现锁定文件夹的源码.rar”压缩包中，包含了一个VB源码文件，用于演示如何实现这...
attribute_用法_section_部分.doc
09-28
attribute_用法_section_部分.doc
vb精彩编程200例,好东西大家一起分享！
06-24
vb精彩编程200例Attribute VB_Name = "form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim TIM As Integer Dim mydb As Database Dim myrs As Recordset Dim sql As String Private Sub Form_Activate() Set mydb = Workspaces(0).OpenDatabase(App.Path & "\kfgl.mdb") '打开数据库 sql = "select 操作员 from qxsz" Set myrs = mydb.OpenRecordset(sql) If myrs.EOF = False Then myrs.MoveLast If myrs.BOF = False Then myrs.MoveFirst For i = 0 To myrs.RecordCount - 1 master.AddItem (myrs.Fields(0)) myrs.MoveNext Next i If master.ListCount > 0 Then master.ListIndex = 0 myrs.Close mydb.Close master.SetFocus End Sub
VB 读写ini的代码
laocooon的博客
09-08 220
Attribute VB_Name = "Module1" Option Explicit Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString.
excel中个人所得税之自定义函数
zhousulin5的专栏
03-18 865
Attribute VB_Name = "模块1"个人所得税税前计算之自定义函数yssr应税收入合计,gsqzd个税缴费起征点,shuilv税率Function GRSDS(yssr As Double) As Double   Const gsqzd As Integer = 2000 需要时修改起征点   Dim shuilv As Double   Dim su
20200420使用VB6.0求33选6的全组合数（解决变长字符串超过1MB之后写入的问题）
南岭笑笑生之家
04-20 566
20200420使用VB6.0求33选6的全组合数（解决变长字符串超过1MB之后写入的问题） 最近需要求组合数（买双色球生成号码用^_） 以前在大学专门学习过VB6.0，今后会迁移到VC6.0。 预计会在2020.5.1强化一下MFC，就可以了！ 我也不知道边长字符串到底写入多少回崩溃。（现阶段人也不年轻了，也没有这么多时间去研究了！有兴趣的同学跟帖告诉我一下，在此谢过了！） ...
vb.net中自定义属性的应用
Ming.Blog.
08-20 1969
给类或字段加上自定义属性有时候是非常有用的，我亲身试了试： 1.定义属性类：      _Public Class FieldAttribute    Inherits Attribute    Private mNum As Integer    Private mName As String    Public ReadOnly Proper
不错VB代码，收藏！！！
热门推荐
fxj331072
12-09 2万+
实现毫秒精度的延时Module Code:Option ExplicitDeclare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As LongDeclare Function QueryPerformanceCounter Lib "kernel32" _        (l
Attribute VB_Name = "mdlWebQueryIETable" Option Explicit Sub WebQueryIETable() Dim objIE As Object Dim objIEDOM As Object Dim objTable As Object Dim objTR As Object Dim strURL As String Dim lngRow As Long Dim intTbRow As Integer Dim intCol As Integer Dim intPage As Integer strURL = "http://data.10jqka.com.cn/market/ggsyl/" & "field/syl/order/desc/page/" '把网页赋值给变量strURL Set objIE = CreateObject("InternetExplorer.Application") '创建ie浏览器 objIE.Visible = False '隐藏ie浏览器 Cells.ClearContents '清空用于保存数据的工作表 For intPage = 1 To 5 '使用for...next循环爬取前5个网页的数据 Debug.Print intPage With objIE .Visible = False .navigate strURL & intPage '使用ie对象navigate访问网页，strURL & intPage用于构建网页URL Do Until .readyState = 4 '用do...loop循环等待网页加载完毕 DoEvents Loop Set objIEDOM = .document '用ie对象document属性返回浏览器加载的文档对象，并赋值给对象变量objIEDOM End With Set objTable = objIEDOM.getElementsByTagName("table")(1) '定位网页中待抓取的数据表格 For intTbRow = IIf(intPage = 1, 0, 1) To objTable.Rows.Length - 1 '用for...next循环遍历网页中表格的单元格 Set objTR = objTable.Rows(intTbRow) lngRow = lngRow + 1 For intCol = 0 To objTR.Cells.Length - 1 Cells(lngRow, intCol + 1) = objTR.Cells(intCol).innerText '将网页中表格单元格的innertext属性返回的字符写入工作表中 Next intCol Next intTbRow Next intPage '由于每个网页的查询结果中都有标题行，但是在工作表中保存数据时，只需要保留第一个标题行，因此代码的循环变量的起始值会有所不同。 objIE.Quit Set objIE = Nothing '关闭ie浏览器 Set objIEDOM = Nothing '释放系统资源 Set objTable = Nothing Set objTR = Nothing End Sub
最新发布
02-06
这个子程序使用了五个变量：objIE、objIEDOM、objTable、objTR、strURL。objIE 和 objIEDOM 是对 Internet Explorer 对象的引用，objTable 和 objTR 是对 HTML 表格和表格行的引用，strURL 是存储要抓取数据的网址的...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值