[问题求助] 【己解决】求大神帮忙编写一个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原文件:

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

boyangcoco

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

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
复制代码

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
复制代码