Hey guys,
I thought you would like to see my progress. Let me know if you have any suggestions! And thank you for your assistance. I would have never figured it out without you.
Code:
Sub ImportSDTicketStats()
Dim fs
Dim sFileName
Dim fIn
Dim fOut
Set fs = CreateObject("Scripting.filesystemobject")
sFileName = "YesterdaysTicketStatsGeneratedToday - " & Format(Date, "yyyymmdd") & "0700.htm"
If Dir("\\server\departments\HelpDesk\Reporting\SDTicketClosuresforyesterday\" & sFileName) = "" Then
MsgBox "Report was generated at 701am today."
'----------------------------------
sFileName01 = "YesterdaysTicketStatsGeneratedToday - " & Format(Date, "yyyymmdd") & "0701.htm"
Set fIn = fs.opentextfile("\\server\departments\HelpDesk\Reporting\SDTicketClosuresforyesterday\" & sFileName01)
Set fOut = fs.createtextfile("\\server\departments\HelpDesk\Reporting\SDTicketClosuresforyesterday\" & Replace(sFileName01, ".htm", "_converted.htm"))
Do While fIn.atendofstream <> True
sline = fIn.readline
fOut.writeline sline
If InStr(sline, "<table cellpadd") > 0 Then
Do Until InStr(sline, "</tr>") > 0
sline = fIn.readline
Loop
End If
Loop
'------------------------------
Else
MsgBox "Report was generated at 700am today."
'--------------------------------
Set fIn = fs.opentextfile("\\server\departments\HelpDesk\Reporting\SDTicketClosuresforyesterday\" & sFileName)
Set fOut = fs.createtextfile("\\server\departments\HelpDesk\Reporting\SDTicketClosuresforyesterday\" & Replace(sFileName, ".htm", "_converted.htm"))
Do While fIn.atendofstream <> True
sline = fIn.readline
fOut.writeline sline
If InStr(sline, "<table cellpadd") > 0 Then
Do Until InStr(sline, "</tr>") > 0
sline = fIn.readline
Loop
End If
Loop
'-------------------------------
End If
End Sub