[问题求助] 【己解决】求大神帮忙编写一个VBS文件提取网页内容

boyangcoco

求大神帮忙编写一个VBS文件提取网页内容:

网页上有类似表格的页面,想求一个VBS来显示计算网页上的加班信息,
具体提取内容:
<td class="nbtext" width="70px">06:52</td>
<td class="nbtext" width="70px">06:52</td>[attach]8550[/attach]
<td width="70px" class="nbtext"><FONT color=white>工时类别</FONT></td>
里的时间"06:82","3.00","工时类别" 这些内容(双引号内的内容) 用来计算下面几个项目.

详细内容:
可以计算出:
缺勤: ????
迟到: ????
早退: ????
实际工作时间: ???
平日加班: ????
公休日加班: ????
加班单小时1:  ???
审核加班小时1 ???
休假类别+休假小时: ????

贴出Html原文件:

yu2n

1. 提取内容没有问题。
2. 计算几个项目——这个就有点强人所难。毕竟贵公司考勤算法，不是谁都能完全猜得对的。题主需要提供考勤算法。

以下代码供参考，将提取网页 "Attendence Detail.htm"中"tblDetail"表格的所有内容。

htmlfile = "Attendence Detail.htm"

Dim fso, sHtml, oHTML
Set fso = CreateObject("Scripting.FilesystemObject")
Set oHTML = CreateObject("htmlfile")

sHtml = fso.OpenTextFile(htmlfile, 1, False, 0).ReadAll
oHTML.DesignMode = "on"     ' 开启编辑模式，所有js都不会被执行
oHTML.Write sHtml           ' 写入数据

'MsgBox objHTML.body.InnerHTML

Dim oTable, sTable, nRow, nCol, sLine, sCell
Set oTable = oHTML.getElementById("tblDetail")

If Not oTable Is Nothing Then

  For nRow = 0 To oTable.rows.length - 1
    For nCol = 0 To oTable.rows(nRow).cells.length- 1
      sCell = oTable.rows(nRow).cells(nCol).innerText
      If sLine <> "" Then sLine = sLine & ","
      sLine = sLine & sCell
      sCell = ""
    Next
    If sTable <> "" Then sTable = sTable & vbCrLf
    sTable = sTable & sLine
    sLine = ""
  Next
  
End If

fso.OpenTextFile(htmlfile & ".log", 2, True, 0).Write sTable
MsgBox sTable
复制代码

结果如下：

日期,日期类型,进1,出1,进2,出2,进3,出3,进4,出4,工时类别,缺勤,迟到,早退,实际工作时间,加班类别1,加班单小时1,审核加班小时1,加班类别2,加班单小时2,审核加班小时2,休假类别,休假小时,进5,出5,进6,出6,进7,出7,进8,出8,进9,出9,进10,出10
2015/03/24,星期二,06:50,11:47,12:24,17:36, , , , ,E&E早班, , , ,8.00,平日加班,3.00,3.00, , , , , , , , , , , , , , , , , 
2015/03/25,星期三,06:52,11:38,12:14,17:29, , , , ,E&E早班, , , ,8.00,平日加班,3.00,3.00, , , , , , , , , , , , , , , , , 
2015/03/26,星期四,07:04,11:36,11:55,17:17, , , , ,E&E早班, , , ,8.00,平日加班,2.50,2.50, , , , , , , , , , , , , , , , , 
2015/03/27,星期五,06:57,11:28,12:04,17:27, , , , ,E&E早班, , , ,8.00,平日加班,3.00,3.00, , , , , , , , , , , , , , , , , 
2015/03/28,星期六, , , , , , , , ,REST, , , , , , , , , , , , , , , , , , , , , , , , 
2015/03/29,星期日, , , , , , , , ,REST, , , , , , , , , , , , , , , , , , , , , , , , 
2015/03/30,星期一, , , , , , , , ,E&E早班, , , , , , , , , , ,固定年假换休假,8.00, , , , , , , , , , , , 
2015/03/31,星期二, , , , , , , , ,E&E早班, , , , , , , , , , ,事假,8.00, , , , , , , , , , , , 
2015/04/01,星期三,06:50,11:35,12:06,17:28, , , , ,E&E早班, , , ,8.00,平日加班,3.00,3.00, , , , , , , , , , , , , , , , , 
2015/04/02,星期四,07:03,11:40,12:15,17:31, , , , ,E&E早班, , , ,8.00,平日加班,3.00,3.00, , , , , , , , , , , , , , , , , 
2015/04/03,星期五,06:55,11:38,12:13,17:34, , , , ,E&E早班, , , ,8.00,平日加班,3.00,3.00, , , , , , , , , , , , , , , , , 
2015/04/04,星期六,06:47,11:15,11:48,18:30, , , , ,REST, , , , ,公休日加班,12.00,12.00, , , , , , , , , , , , , , , , , 
2015/04/05,星期日, , , , , , , , ,REST, , , , , , , , , , , , , , , , , , , , , , , , 
2015/04/06,星期一, , , , , , , , ,REST, , , , , , , , , , , , , , , , , , , , , , , , 
2015/04/07,星期二, , , , , , , , ,E&E早班, , , , , , , , , , ,固定年假,8.00, , , , , , , , , , , , 
2015/04/08,星期三,06:59,07:37,07:45,11:40,12:14,17:33, , ,E&E早班, , , ,8.00,平日加班,3.00,3.00, , , , , , , , , , , , , , , , , 
2015/04/09,星期四,07:02,11:30,12:01,13:13,14:51,17:16, , ,E&E早班, , , ,8.00,平日加班,3.00,2.50, , , , , , , , , , , , , , , , , 
2015/04/10,星期五,07:03,11:34,11:58,17:28, , , , ,E&E早班, , , ,8.00,平日加班,3.00,3.00, , , , , , , , , , , , , , , , , 
2015/04/11,星期六,07:13,11:26,11:50,18:32, , , , ,REST, , , , ,公休日加班,12.00,12.00, , , , , , , , , , , , , , , , , 
2015/04/12,星期日, , , , , , , , ,REST, , , , , , , , , , , , , , , , , , , , , , , , 
2015/04/13,星期一,06:53,11:38,12:11,14:02,14:23,17:34, , ,E&E早班, , , ,8.00, , , , , , , , , , , , , , , , , , , , 
2015/04/14,星期二,07:05,11:34,12:03,17:28, , , , ,E&E早班, , , ,8.00, , , , , , , , , , , , , , , , , , , , 
2015/04/15,星期三,07:01,11:36,12:05,17:33, , , , ,E&E早班, , , ,8.00, , , , , , , , , , , , , , , , , , , , 
2015/04/16,星期四,07:04,11:33,12:05,17:29, , , , ,E&E早班, , , ,8.00, , , , , , , , , , , , , , , , , , , , 
2015/04/17,星期五,07:04, , , , , , , ,E&E早班,8.00, , , , , , , , , , , , , , , , , , , , , , , 
 , , , , , , , , , , ,8.00, , ,112.00, ,53.50,53.00, , , , ,24.00, , , , , , , , , , , , 
复制代码

boyangcoco

回复 2# yu2n


        谢谢老师!
        我并不是想用 VBS 代码去计算, 考勤系统会自动计算这些数据,我只想通过这种方法练习如何抓取网页内需要的信息.
        通过昨天至今天的努力,已基本解决了数据提取的问题.
        我是用了很笨的方法去提取这些数据的, 不知道有没有更好的方法更准确的获取这些数据?
        基本上是靠下面两句一个一个的去抓取的........

f.WriteLine("CHname=ie.document.getElementById(""_ctl10"").value")
RomText12 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(12),""</td>"")(0),""&nbsp;"",""0"")
复制代码

boyangcoco

这是我自己写的代码:
也不知道是否如有不妥或者可以优化的地方;
已经实现了当前需求功能.
还望老师们赐教;

Dim US,PW
US=Inputbox("Please input your user name:","Input User Name","",0,0) 
if IsEmpty(US) then
wscript.quit
else
PW=Inputbox ("Please input your Password:","Input Password","",0,0)
if IsEmpty(PW) then
else
MyVar = MsgBox ("Please confirm if need delete itself by program:"&vbCrlf&"If answer is yes, Please click button <Yes> "&vbCrlf&"If answer is no, Please click button <No>.", 65, "Function of delete itself")
if MyVar=1 then
Call CDelFile
else
Call CFile
end if
end if
end if
Dim WshShell  
Set WshShell=WScript.CreateObject("WScript.Shell")  
WshShell.Run "D:\Automatic.Query.Attendance.Data.vbs"

Sub CFile
Dim fso, f
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("D:\Automatic.Query.Attendance.Data.vbs",true)
f.WriteLine("Set ie = CreateObject(""InternetExplorer.Application"") ")
f.WriteLine("ie.navigate ""http://huahr02/essusergz/""")
f.WriteLine("While ie.busy Or ie.readystate <> 4")
f.WriteLine("Wend ")
f.WriteLine("ie.document.getElementById(""txtUserID"").value = """&US&"""")
f.WriteLine("ie.document.getElementById(""txtPassword"").value = """&PW&"""")
f.WriteLine("ie.document.getElementById(""btnLogon"").click")
f.WriteLine("While ie.busy Or ie.readystate <> 4")
f.WriteLine("Wend ")
f.WriteLine("ie.navigate ""http://huahr02/essusergz/webpages/attendanceinfo_jabil_c.aspx""")
f.WriteLine("While ie.busy Or ie.readystate <> 4")
f.WriteLine("Wend ")
f.WriteLine("Startdate=ie.document.getElementById(""dbxBegin:Cal_txtLeft"").value")
f.WriteLine("Enddate=ie.document.getElementById(""dbxEnd:Cal_txtLeft"").value")
f.WriteLine("SAPnum=ie.document.getElementById(""_ctl4"").value")
f.WriteLine("Num=ie.document.getElementById(""_ctl7"").value")
f.WriteLine("CHname=ie.document.getElementById(""_ctl10"").value")
f.WriteLine("ENname=ie.document.getElementById(""_ctl13"").value")
f.WriteLine("DPname=ie.document.getElementById(""_ctl16"").value")
f.WriteLine("WCname=ie.document.getElementById(""_ctl19"").value")
f.WriteLine("CCname=ie.document.getElementById(""_ctl22"").value")
f.WriteLine("Joindate=ie.document.getElementById(""_ctl26"").value")
f.WriteLine("Leavedate=ie.document.getElementById(""_ctl29"").value")
f.WriteLine("Worknum=ie.document.getElementById(""_ctl32"").value")
f.WriteLine("MidWorknum=ie.document.getElementById(""_ctl35"").value")
f.WriteLine("NightWorknum=ie.document.getElementById(""_ctl38"").value")
f.WriteLine("TOT=ie.document.getElementById(""_ctl41"").value")
f.WriteLine("Dim strText")
f.WriteLine("with CreateObject(""MSXml2.xmlhttp"")")
f.WriteLine(".Open ""GET"",""C:\Users\Harris\Desktop\Attendence Detail.htm"",false")
f.WriteLine(".Send")
f.WriteLine("strText = ByteToStr(.Responsebody)")
f.WriteLine("end with")
f.WriteLine("Function ByteToStr(ByVal arrByte)")
f.WriteLine("With CreateObject(""Adodb.Stream"")")
f.WriteLine(".Type = 1")
f.WriteLine(".Open")
f.WriteLine(".Write arrByte")
f.WriteLine(".Position = 0")
f.WriteLine(".Type = 2")
f.WriteLine(".Charset = ""GB2312""")
f.WriteLine("ByteToStr = .Readtext")
f.WriteLine(".Close")
f.WriteLine("End With")
f.WriteLine("End Function")
f.WriteLine("RomText12 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(12),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText13 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(13),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText14 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(14),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText15 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(15),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText17 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(17),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText18 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(18),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText23 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(23),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("msgbox ""Chinese Name:    ""&CHname&vbCrlf&""English Name:      ""&ENname&vbCrlf&""SAP Number:       ""&SAPnum&vbCrlf&""Employee Name: ""&num&vbCrlf&""Department:    ""&DPname&vbCrlf&""Work Cell:           ""&WCname&vbCrlf&""Cost Center:       ""&CCname&vbCrlf&""-----------------------------------------------""&vbCrlf&""Join Date:     ""&Joindate&vbCrlf&""Leave Date:   ""&Leavedate&vbCrlf&""Start Date:   ""&Startdate&vbCrlf&""End Date:     ""&Enddate&vbCrlf&""-----------------------------------------------""&vbCrlf&""Work Days:    ""&Worknum&"" Days""&vbCrlf&""B Shifts Days: ""&MidWorknum&"" Days""&vbCrlf&""C Shifts Days: ""&NightWorknum&"" Days""&vbCrlf&""-----------------------------------------------""&vbCrlf&""OT Upper Limit: ""&TOT&"" Hours""&vbCrlf&""-----------------------------------------------""&vbCrlf&""Absenteeism: ""&RomText12&"" h""&vbCrlf&""Late: ""&RomText13&"" h""&vbCrlf&""Leave Early: ""&RomText14&"" h""&vbCrlf&""Actual working hours: ""&RomText15&"" h""&vbCrlf&""Apply Over Time: ""&RomText17&"" h""&vbCrlf&""Actual Over Time: ""&RomText18&"" h""&vbCrlf&""Vacation Hours: ""&RomText23&"" h"",0,""Query results: Make By HB Huang""")
f.WriteLine("wscript.quit")
f.Close()
set f = nothing
set fso = nothing
End Sub

Sub CDelFile
Dim fso, f
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("D:\Automatic.Query.Attendance.Data.vbs",true)
f.WriteLine("Set ie = CreateObject(""InternetExplorer.Application"") ")
f.WriteLine("ie.navigate ""http://huahr02/essusergz/""")
f.WriteLine("While ie.busy Or ie.readystate <> 4")
f.WriteLine("Wend ")
f.WriteLine("ie.document.getElementById(""txtUserID"").value = """&US&"""")
f.WriteLine("ie.document.getElementById(""txtPassword"").value = """&PW&"""")
f.WriteLine("ie.document.getElementById(""btnLogon"").click")
f.WriteLine("While ie.busy Or ie.readystate <> 4")
f.WriteLine("Wend ")
f.WriteLine("ie.navigate ""http://huahr02/essusergz/webpages/attendanceinfo_jabil_c.aspx""")
f.WriteLine("While ie.busy Or ie.readystate <> 4")
f.WriteLine("Wend ")
f.WriteLine("Startdate=ie.document.getElementById(""dbxBegin:Cal_txtLeft"").value")
f.WriteLine("Enddate=ie.document.getElementById(""dbxEnd:Cal_txtLeft"").value")
f.WriteLine("SAPnum=ie.document.getElementById(""_ctl4"").value")
f.WriteLine("Num=ie.document.getElementById(""_ctl7"").value")
f.WriteLine("CHname=ie.document.getElementById(""_ctl10"").value")
f.WriteLine("ENname=ie.document.getElementById(""_ctl13"").value")
f.WriteLine("DPname=ie.document.getElementById(""_ctl16"").value")
f.WriteLine("WCname=ie.document.getElementById(""_ctl19"").value")
f.WriteLine("CCname=ie.document.getElementById(""_ctl22"").value")
f.WriteLine("Joindate=ie.document.getElementById(""_ctl26"").value")
f.WriteLine("Leavedate=ie.document.getElementById(""_ctl29"").value")
f.WriteLine("Worknum=ie.document.getElementById(""_ctl32"").value")
f.WriteLine("MidWorknum=ie.document.getElementById(""_ctl35"").value")
f.WriteLine("NightWorknum=ie.document.getElementById(""_ctl38"").value")
f.WriteLine("TOT=ie.document.getElementById(""_ctl41"").value")
f.WriteLine("Dim strText")
f.WriteLine("with CreateObject(""MSXml2.xmlhttp"")")
f.WriteLine(".Open ""GET"",""C:\Users\Harris\Desktop\Attendence Detail.htm"",false")
f.WriteLine(".Send")
f.WriteLine("strText = ByteToStr(.Responsebody)")
f.WriteLine("end with")
f.WriteLine("Function ByteToStr(ByVal arrByte)")
f.WriteLine("With CreateObject(""Adodb.Stream"")")
f.WriteLine(".Type = 1")
f.WriteLine(".Open")
f.WriteLine(".Write arrByte")
f.WriteLine(".Position = 0")
f.WriteLine(".Type = 2")
f.WriteLine(".Charset = ""GB2312""")
f.WriteLine("ByteToStr = .Readtext")
f.WriteLine(".Close")
f.WriteLine("End With")
f.WriteLine("End Function")
f.WriteLine("RomText12 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(12),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText13 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(13),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText14 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(14),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText15 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(15),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText17 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(17),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText18 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(18),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("RomText23 = Replace(Split(Split(strText,""<td class=""""nbtext"""" style=""""COLOR:white"""" width=""""70px"""">"")(23),""</td>"")(0),""&nbsp;"",""0"")")
f.WriteLine("msgbox ""Chinese Name:    ""&CHname&vbCrlf&""English Name:      ""&ENname&vbCrlf&""SAP Number:       ""&SAPnum&vbCrlf&""Employee Name: ""&num&vbCrlf&""Department:    ""&DPname&vbCrlf&""Work Cell:           ""&WCname&vbCrlf&""Cost Center:       ""&CCname&vbCrlf&""-----------------------------------------------""&vbCrlf&""Join Date:     ""&Joindate&vbCrlf&""Leave Date:   ""&Leavedate&vbCrlf&""Start Date:   ""&Startdate&vbCrlf&""End Date:     ""&Enddate&vbCrlf&""-----------------------------------------------""&vbCrlf&""Work Days:    ""&Worknum&"" Days""&vbCrlf&""B Shifts Days: ""&MidWorknum&"" Days""&vbCrlf&""C Shifts Days: ""&NightWorknum&"" Days""&vbCrlf&""-----------------------------------------------""&vbCrlf&""OT Upper Limit: ""&TOT&"" Hours""&vbCrlf&""-----------------------------------------------""&vbCrlf&""Absenteeism: ""&RomText12&"" h""&vbCrlf&""Late: ""&RomText13&"" h""&vbCrlf&""Leave Early: ""&RomText14&"" h""&vbCrlf&""Actual working hours: ""&RomText15&"" h""&vbCrlf&""Apply Over Time: ""&RomText17&"" h""&vbCrlf&""Actual Over Time: ""&RomText18&"" h""&vbCrlf&""Vacation Hours: ""&RomText23&"" h"",0,""Query results: Make By HB Huang""")
f.WriteLine("set copy1=createobject(""scripting.filesystemobject"")")
f.WriteLine("copy1.getfile(wscript.scriptfullname).delete")
f.WriteLine("wscript.quit")
f.Close()
set f = nothing
set fso = nothing
End Sub
复制代码

boyangcoco

回复 2# yu2n

公司的考勤系统是需要登录的,
     登录页面: http://huahr02/essusergz/
     需要获取数据的页面: http://huahr02/essusergz/webpages/attendanceinfo_jabil_c.aspx
     这种情况应该如何去实现呢?????

    刚才在公司试了一下昨天我发的代码, 前面的可以实现, 但是后面的无法取值.

     RomText12 = Replace(Split(Split(strText1,"<td class=""nbtext"" style=""COLOR:white"" width=""70px"">")(1),"</td>")(0),"&nbsp;","0")

    老师,如果我只想获取最后一行数据, 应该用什么语句实现呢? 并且要一个一个的输出.
    比如:   
      实际工作时间: 112.00
      加班单小时1:   53.50
      审核加班小时1: 53.00
      休假小时: 24.00

yu2n

如果一个复杂的表达式可以拆分来写，尽量拆分。这样比较容易排错，代码也清晰易懂。

假设有一多行字符串 s ，需要获取最后一行，可如下处理：

s = "a" & vbCrLf & "b" & vbCr & "C" & vbLf & "D"
s = Replace(s, vbCr, vbLf)    ' 统一换行符
s = Replace(s, vbLf, vbLf)
arr = Split(s, vbLf)           ' 以换行符vbLf分割，将字符串转为数组
s = arr(UBound(arr))           ' 获取数组最后一个元素
MsgBox s
复制代码

boyangcoco

回复 6# yu2n 现在的问题是,公司的考勤系统需要登录,
而我需要获取的数据是登录后的页面(附件里的Html)
登录页面: http://huahr02/essusergz/
登录后的页面:  http://huahr02/essusergz/webpages/attendanceinfo_jabil_c.aspx(附件里的Html)
如何获取数据??
我只要能显示出以下结果就行......
重点是学会思路...........

yu2n

登录的话，如果自动化代价太高，还是手工登录吧。参考 12306 验证码，不要花太多力气在这里。

思路的话，随便扯扯。

1. 登录方式未知，某些登录方式自动化代价太高，需要手工登录。
基础验证，安全性最低，但是很多组件都支持带账户验证，编程比较方便。
非基础验证...
带验证码...手工登录的话，下个步骤建议直接用 InternetExplorer.Application 来实现 BS 交互获取内容。

2. 分析通信方式、数据结构，确定使用哪个组件来获取登录后的网页内容。
InternetExplorer.Application？WinHTTP？Msxml2.ServerXMLHTTP？

3.  验证数据。

...

boyangcoco

回复 8# yu2n

    你好，用“InternetExplorer.Application”   其实我用现在的方法已经成功登陆并获取了一些有“name”属性值的数据。   但是我不会用现在的方法或取其它没有“name”属性的对象的值，
   所以请大神帮帮忙的.........

登陆并获取一些数据的部分代码：

Set ie = CreateObject("InternetExplorer.Application") 
ie.navigate "http://huahr02/essusergz/"
While ie.busy Or ie.readystate <> 4
Wend 
ie.document.getElementById("txtUserID").value = Username
ie.document.getElementById("txtPassword").value = Password 
ie.document.getElementById("btnLogon").click
While ie.busy Or ie.readystate <> 4
Wend 
ie.navigate "http://huahr02/essusergz/webpages/attendanceinfo_jabil_c.aspx" ’等前面页面加载完成后，输入此网址（即可得到需要获取数据的页面）
While ie.busy Or ie.readystate <> 4
Wend 
Startdate=ie.document.getElementById("dbxBegin:Cal_txtLeft").value
复制代码

‘获取一个“name”属性为“dbxBegin:Cal_txtLeft”的值。



目前可以“登陆并获取部分数据”的源代码（还可以在运行后Copy自身至D盘。）：

set copy1=createobject("scripting.filesystemobject")          
copy1.getfile(wscript.scriptfullname).copy("d:\Automatic Query Attendance Data(EN).vbs")

Username="UserName" 'Replace to your user name
Password="PassWord" 'replace to your password

if username = "UserName" or PassWord = "PassWord" then
     msgbox "UserName: "&UserName&vbcrlf&"PassWord: "&PassWord&vbcrlf,4096,"Pleae check your UserName and Password: "
	 wscript.quit
     else
     Set ie = CreateObject("InternetExplorer.Application") 
		ie.navigate "http://huahr02/essusergz/"
		While ie.busy Or ie.readystate <> 4
		Wend 
		ie.document.getElementById("txtUserID").value = Username
		ie.document.getElementById("txtPassword").value = Password 
		ie.document.getElementById("btnLogon").click
		While ie.busy Or ie.readystate <> 4
		Wend 
		ie.navigate "http://huahr02/essusergz/webpages/attendanceinfo_jabil_c.aspx"
		While ie.busy Or ie.readystate <> 4
		Wend 
		Startdate=ie.document.getElementById("dbxBegin:Cal_txtLeft").value
		Enddate=ie.document.getElementById("dbxEnd:Cal_txtLeft").value
		SAPnum=ie.document.getElementById("_ctl4").value
		Num=ie.document.getElementById("_ctl7").value
		CHname=ie.document.getElementById("_ctl10").value
		ENname=ie.document.getElementById("_ctl13").value
		DPname=ie.document.getElementById("_ctl16").value
		WCname=ie.document.getElementById("_ctl19").value
		CCname=ie.document.getElementById("_ctl22").value
		Joindate=ie.document.getElementById("_ctl26").value
		Leavedate=ie.document.getElementById("_ctl29").value
		Worknum=ie.document.getElementById("_ctl32").value
		MidWorknum=ie.document.getElementById("_ctl35").value
		NightWorknum=ie.document.getElementById("_ctl38").value
		TOT=ie.document.getElementById("_ctl41").value
		msgbox "Chinese Name:    "&CHname&vbCrlf&"English Name:      "&ENname&vbCrlf&"SAP Number:       "&SAPnum&vbCrlf&"Employee Name: "&num&vbCrlf&"Department:    "&DPname&vbCrlf&"Work Cell:           "&WCname&vbCrlf&"Cost Center:       "&CCname&vbCrlf&"-----------------------------------------------"&vbCrlf&"Join Date:     "&Joindate&vbCrlf&"Leave Date:   "&Leavedate&vbCrlf&"Start Date:   "&Startdate&vbCrlf&"End Date:     "&Enddate&vbCrlf&"-----------------------------------------------"&vbCrlf&"Work Days:    "&Worknum&" Days"&vbCrlf&"B Shifts Days: "&MidWorknum&" Days"&vbCrlf&"C Shifts Days: "&NightWorknum&" Days"&vbCrlf&"-----------------------------------------------"&vbCrlf&"OT Upper Limit: "&TOT&" Hours"&vbCrlf&"-----------------------------------------------"&vbCrlf,0,"Query results: Make By HB Huang"
		msgbox "The wscript file exist in your computer disk D, the program will automatically help  you open the disk D!",VbOnlyOK,"Congratulations!"
		ie.navigate "D:\"
		wscript.quit
end if
复制代码

yu2n

回复 9# boyangcoco

参考：
HTML DOM 访问
http://www.w3school.com.cn/htmldom/dom_using.asp

VBS 示例：

'document.getElementById 示例：获取 ID 为 XX_ID 的网页内容
ie.document.getElementById("XX_ID").innerHTML

'document.getElementsByName 示例：获取 NAME 为 XX_NAME 的网页内容
ie.document.getElementsByName("XX_NAME").innerHTML

'document.getElementsByTagName 示例：遍历所有 div 节点，查找 class 为 yu2n 的节点
For Each o In  ie.document.getElementsByTagName("div")
  If o.className = "yu2n" Then
    Msgbox o.parentNode.innerHTML
    Exit For
  End If
Next

'document.all 示例：遍历所有节点，查找 class 为 yu2n 的节点
For Each o In ie.document.all
  If o.className = "yu2n" Then
    Msgbox o.parentNode.innerHTML
    Exit For
  End If
Next
复制代码

'获取 dom 节点后，定位该节点相关的 dom 节点
o.childNodes  '得到s的全部子节点
o.parentNode   '得到s的父节点
o.nextSbiling   '获得s的下一个兄弟节点
o.previousSbiling  '得到s的上一个兄弟节点
o.firstChild   '获得s的第一个子节点
o.lastChile   '获得s的最后一个子节点
复制代码

boyangcoco

回复 10# yu2n


    谢谢老师, 根据你的提示,我的代码部分已经完成了, 明天去公司测试下.......
    我的 QQ:284264152  可以加你QQ吗?

boyangcoco

代码测试出现一点点小问题, 不过现在已经解决了.
谢谢 yu2n 的帮助. Thank you very much!

经过测试,得出一小结论,
用

tblDetail=ie.document.getElementById("tblDetail").innerHTML
复制代码

语句得到的源码跟用 IE 浏览器
直接看到的源码是不一样的. 怪不得之前一直查找不到正确的数据.

Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://huahr02/essusergz/"
While ie.busy Or ie.readystate <> 4
Wend 
ie.document.getElementById("txtUserID").value = "用户名"
ie.document.getElementById("txtPassword").value = "密码"
ie.document.getElementById("btnLogon").click
While ie.busy Or ie.readystate <> 4
Wend 
ie.navigate "http://huahr02/essusergz/webpages/attendanceinfo_jabil_c.aspx"
While ie.busy Or ie.readystate <> 4
Wend 
'===================================================================================
Startdate=ie.document.getElementById("dbxBegin:Cal_txtLeft").value
Enddate=ie.document.getElementById("dbxEnd:Cal_txtLeft").value
SAPNum=ie.document.getElementById("_ctl4").value
MNum=ie.document.getElementById("_ctl7").value
CHname=ie.document.getElementById("_ctl10").value
ENname=ie.document.getElementById("_ctl13").value
DepartmentName=ie.document.getElementById("_ctl16").value
WorkcellName=ie.document.getElementById("_ctl19").value
CostCenter=ie.document.getElementById("_ctl22").value
Joindate=ie.document.getElementById("_ctl26").value
Leavedate=ie.document.getElementById("_ctl29").value
WorkDays=ie.document.getElementById("_ctl32").value
MidShiftNum=ie.document.getElementById("_ctl35").value
NightShiftNum=ie.document.getElementById("_ctl38").value
TOTUpperLimit=ie.document.getElementById("_ctl41").value
'===================================================================================
tblDetail=ie.document.getElementById("tblDetail").innerHTML
RomText12 = Replace(Split(Split(tblDetail,"<TD style=""COLOR: white"" class=nbtext width=70>")(12),"</TD>")(0),"&nbsp;","0")
RomText13 = Replace(Split(Split(tblDetail,"<TD style=""COLOR: white"" class=nbtext width=70>")(13),"</TD>")(0),"&nbsp;","0")
RomText14 = Replace(Split(Split(tblDetail,"<TD style=""COLOR: white"" class=nbtext width=70>")(14),"</TD>")(0),"&nbsp;","0")
RomText15 = Replace(Split(Split(tblDetail,"<TD style=""COLOR: white"" class=nbtext width=70>")(15),"</TD>")(0),"&nbsp;","0")
RomText17 = Replace(Split(Split(tblDetail,"<TD style=""COLOR: white"" class=nbtext width=70>")(17),"</TD>")(0),"&nbsp;","0")
RomText18 = Replace(Split(Split(tblDetail,"<TD style=""COLOR: white"" class=nbtext width=70>")(18),"</TD>")(0),"&nbsp;","0")
RomText23 = Replace(Split(Split(tblDetail,"<TD style=""COLOR: white"" class=nbtext width=70>")(23),"</TD>")(0),"&nbsp;","0")
msgbox "Chinese Name:     "&CHName&vbCrlf&"English Name:       "&ENName&vbCrlf&"SAP Number:        "&SAPNum&vbCrlf&"Employee Name:   "&MNum&vbCrlf&"Department:          "&DepartmentName&vbCrlf&"Work Cell:              "&WorkcellName&vbCrlf&"Cost Center:          "&CostCenter&vbCrlf&"-----------------------------------------------"&vbCrlf&"Join Date:      "&JoinDate&vbCrlf&"Start Date:    "&StartDate&vbCrlf&"End Date:      "&EndDate&vbCrlf&"-----------------------------------------------"&vbCrlf&"Work Days:      "&WorkDays&" Days"&vbCrlf&"B Shifts Days:   "&MidShiftNum&" Days"&vbCrlf&"C Shifts Days:   "&NightShiftNum&" Days"&vbCrlf&"-----------------------------------------------"&vbCrlf&"OT Upper Limit:   "&TOTUpperLimit&" Hours"&vbCrlf&"-----------------------------------------------"&vbCrlf&"Absenteeism:    "&RomText12&" h"&vbCrlf&"Late:                 "&RomText13&" h"&vbCrlf&"Leave Early:     "&RomText14&" h"&vbCrlf&"Actual working hours:   "&RomText15&" h"&vbCrlf&"Apply Over Time:          "&RomText17&" h"&vbCrlf&"Actual Over Time:         "&RomText18&" h"&vbCrlf&"Vacation Hours:            "&RomText23&" h",0,"Query results: Make By HB Huang"
set ie=nothing
wscript.quit
复制代码