Convert HTML to string, then Find and Replace - html

Question

I've searched extensively on this subject and haven't been able to find just what I've been looking for... so here I go!
Basically, I have 2 HTML Files. 1, I export from excel to HTML each day. The 2nd file, has addition code/CSS for table headers and formats as well as a scroll bar and search function. What I do, is copy the necessary bits out of the exported file into the 2nd file so it updates with the latest data. The 2nd file then links in to a larger web page on the company intranet for staff to see their results.
I have an entire automated system in place, and how I have been currently accomplishing this is to use VBA to open Notepad++ (used as my HTML editor) and then manually make these changes. I have recorded a macro within Notepad++ to do the changes automatically using "CTRL F1" as the command, but VBA doesn't work well with the Sendkeys function when I use the shell command to open Notepad++ so it hasn't been a viable solution for automation.
I then researched some more and came across the below code which I have amended to suit my needs, to bypass Notepad++ altogether and turn the HTML into a string. Problem is, it isn't just 1 word I am needing to find and replace, it's 2 entire and separate sections of code. I thought I could use wildcards but it doesn't seem to want to work. Any help that will allow me to replace an entire block of HTML code with another, using excel VBA would be an absolute lifesaver. Thanks in advance!
PS: The below code works as written because I remove the wildcard so it's just finding a couple of words on 1 line and replacing it with the entire code from the source file. I need to be able to replace and entire section, with a specified section from the source file as well
Sub Find_Replace2()
Dim sTempSource As String, sTempDest As String
'Dim sTemp As String
Dim sBuf As String
Dim iFileNum As Integer
Dim sFileName As String
'locations of html files, sourcefile goes into destfile
Dim htmlSourcefile As String: htmlSourcefile = "I:\The Hub\Pages\Statistics\Incentive\STB Incentive\STB League2.html"
Dim htmlDestfile As String: htmlDestfile = "I:\The Hub\Pages\Statistics\Incentive\STB League - Copy.html"
sFileName = htmlDestfile
'Opens the above files, and converts them to big long strings
iFileNum = FreeFile
Open htmlDestfile For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTempDest = sTempDest & sBuf & vbCrLf
Loop
Close iFileNum
iFileNum = FreeFile
Open htmlSourcefile For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTempSource = sTempSource & sBuf & vbCrLf
Loop
Close iFileNum
'find and replace on string
sTempDest = Replace(sTempDest, "<!--Start of VBA insert -->", "<!--Start of VBA insert -->" & sTempSource & "<!--End of VBA insert -->")
'saves string back off as original file
iFileNum = FreeFile
Open sFileName For Output As iFileNum
Print #iFileNum, sTempDest
Close iFileNum
End Sub

Answer 1

The replace function will not work as you have it. The following code gets dest file code before > "!--insert vba....>" here in one text string, then it gets everything after "!--end insert vba..." in another text string
And we get only the table from the source file. (given that the table end tag is
</table>.
I saved a table to html and that is how my Excel ended the table.)
So we add together Dest1 + source table + dest2 for the final page.
I have it saving the file to a tester.html file so it won't ruin your original file until you have had the chance to test it.
Sub Find_Replace2()
Dim sTempSource As String, sTempDest As String, sTempDest1 As String, sTempDest2 As String
Dim sSource1 As Long, sSource2 As Long, sTempSource2 As String
Dim point1 As Long, point2 As Long, point3 As Long, point4 As Long
Dim sBuf As String
Dim iFileNum As Integer
'locations of html files, sourcefile goes into destfile
Dim htmlSourcefile As String: htmlSourcefile = "I:\The Hub\Pages\Statistics\Incentive\STB Incentive\STB League2.html"
Dim htmlDestfile As String: htmlDestfile = "I:\The Hub\Pages\Statistics\Incentive\STB League - Copy.html"
'Opens the above files, and converts them to big long strings
iFileNum = FreeFile
Open htmlDestfile For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTempDest = sTempDest & sBuf & vbCrLf
Loop
Close iFileNum
iFileNum = FreeFile
Open htmlSourcefile For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTempSource = sTempSource & sBuf & vbCrLf
Loop
Close iFileNum
point3 = InStr(1, sTempSource, "<table") - 1
point4 = InStr(point3, sTempSource, "</table>") + 8
sTempSource2 = Mid(sTempSource, point3, point4 - point3)
point1 = InStr(1, sTempDest, "<!--Start of VBA insert -->") + 27
point2 = InStr(point1, sTempDest, "<!--End of VBA insert -->")
sTempDest1 = Mid(sTempDest, 1, point1)
sTempDest1 = sTempDest1 & sTempSource2
sTempDest2 = sTempDest1 & Mid(sTempDest, point2, Len(sTempDest) - point2)
'saves string back to a tester file
iFileNum = FreeFile
Open "I:\The Hub\Pages\Statistics\Incentive\tester.html" For Output As iFileNum
Print #iFileNum, sTempDest2
Close iFileNum
End Sub

Answer 2

Sub Find_Replace2()
Dim sTempSource As String, sTempDest As String, sTempDest1 As String, sTempDest2 As String, sTempDest3 As String
Dim sTempSource2 As String, sTempSource3 As String
Dim point1 As Long, point2 As Long, point3 As Long, point4 As Long, point5 As Long, point6 As Long, point7 As Long, point8 As Long
Dim sBuf As String
Dim iFileNum As Integer
'locations of html files, sourcefile goes into destfile
Dim htmlSourcefile As String: htmlSourcefile = "I:\The Hub\Pages\Statistics\Incentive\STB Incentive\STB League2.html"
Dim htmlDestfile As String: htmlDestfile = "I:\The Hub\Pages\Statistics\Incentive\STB League - Copy.html"
'Opens the above files, and converts them to big long strings
iFileNum = FreeFile
Open htmlDestfile For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTempDest = sTempDest & sBuf & vbCrLf
Loop
Close iFileNum
iFileNum = FreeFile
Open htmlSourcefile For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTempSource = sTempSource & sBuf & vbCrLf
Loop
Close iFileNum
point3 = InStr(1, sTempSource, "<!--table")
point4 = InStr(point3, sTempSource, "-->") + 3
sTempSource2 = Mid(sTempSource, point3, point4 - point3)
point7 = InStr(1, sTempSource, "</tr>")
point8 = InStr(point7, sTempSource, "<!--END OF OUTPUT FROM EXCEL PUBLISH AS WEB PAGE WIZARD-->") + 58
sTempSource3 = Mid(sTempSource, point7, point8 - point7)
point1 = InStr(1, sTempDest, "<!--Start of VBA insert -->") + 27
point2 = InStr(point1, sTempDest, "<!--End of VBA insert -->") - 1
point5 = InStr(1, sTempDest, "<!--Start of VBA insert2 -->") + 28
point6 = InStr(point5, sTempDest, "<!--End of VBA insert2 -->") - 1
sTempDest1 = Mid(sTempDest, 1, point1)
sTempDest1 = sTempDest1 & sTempSource2
sTempDest2 = sTempDest1 & Mid(sTempDest, point2, point5 - point2)
sTempDest2 = sTempDest2 & sTempSource3
sTempDest3 = sTempDest2 & Mid(sTempDest, point6, Len(sTempDest) - point6)
'saves string back to a tester file
iFileNum = FreeFile
Open "I:\The Hub\Pages\Statistics\Incentive\STB League - Copy.html" For Output As iFileNum
Print #iFileNum, sTempDest3
Close iFileNum
End Sub