Excel VBA to HTML page


'HTML STUFF***********************************************

a = " ~!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""http://www.w3.org/TR/html4/loose.dtd"">"

b = "~!-- Original design work, including graphics and all related scripts, Copyright (c) OCDesignsOnline.com, All Rights Reserved. Used with permission by Messina-Hembry-Clothing. -->"

c = "~html>~head>"
d = "~meta name=""viewport"" content=""width=device-width, initial-scale=1"">"
e = "~link href=""http://ebay.sunandfuninoc.com/global/ebayglobal-res.css"" rel=""stylesheet"" type=""text/css"">"
f = "~link href=""http://zachembry.com/ocdesign/ebay-resp.css"" rel=""stylesheet"" type=""text/css"">"
g = "~link href=""https://fonts.googleapis.com/css?family=Roboto:300,400,500,700,900,300italic,400italic,500italic,700italic,900italic"" rel=""stylesheet"" type=""text/css"">"
h = "~/head>~body>"

i = "~div id=""x-template"" class=""x-bg x-nojs"">~div class=""x-bg-02 x-shao"">"

j = "~!-- beg header -->"
k = "~div id=""x-head-wrap"">~div id=""x-head"">"
l = " ~div id=""x-head-bar1"" class=""x-hdbg"">"
m = " ~!-- head logo -->"
n = " ~div class=""x-fbox"">~a href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing"">~img id=""x-head-logo"" src=""http://zachembry.com/ocdesign/images/x-head-logo.png"" alt=""Messina Hembry eBay Store"">~/a>~/div>"

o = " ~!-- head promos-->"
p = " ~div class=""x-fbox"">~a target=""_blank"" href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/Quality-Control"">~img id=""x-head-prom"" src=""http://zachembry.com/ocdesign/images/x-head-prom.png"" alt=""Guaranteed Authenticity"">~/a>~/div>"

q = " ~!-- head menu bar -->"
r = " ~div id=""x-head-bar2"" class=""x-bar2"">"
s = " ~div id=""x-head-menu"">"
t = " ~a class=""x-bar2"" href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing"">~span class=""x-ffac x-fftb"">Home~/span>~img src=""http://zachembry.com/ocdesign/images/x-head-icon-home.png"" alt=""Home"">~/a"
u = " >~a class=""x-bar2 x-nota x-nomo"" href=""http://www.ebay.co.uk/sch/Mens-Clothing/1059\/m.html?_nkw=&_armrs=1&_ipg=&_from=&_ssn=messina-hembry"">~span class=""x-ffac x-fftb"">Men's~/span>~img src=""http://zachembry.com/ocdesign/images/x-head-icon-cats.png"" alt=""Men's"">~/a"" +"
v = " >~a class=""x-bar2 x-nota x-nomo"" href=""http://www.ebay.co.uk/sch/Womens-Clothing/15724/m.html?_nkw=&_armrs=1&_ipg=&_from=&_ssn=messina-hembry"">~span class=""x-ffac x-fftb"">Women's~/span>~img src=""http://zachembry.com/ocdesign/images/x-head-icon-cats.png"" alt=""Women's"">~/a"" +"
w = " >~a class=""x-bar2 x-nota x-nomo"" href=""http://www.ebay.co.uk/sch/Kids-Clothes-Shoes-Accs-/171146/m.html?_nkw=&_armrs=1&_ipg=&_from=&_ssn=messina-hembry"">~span class=""x-ffac x-fftb"">Children's~/span>~img src=""http://zachembry.com/ocdesign/images/x-head-icon-cats.png"" alt=""Children's"">~/a"" +"
X = " >~a class=""x-bar2"" href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/About-Us"">~span class=""x-ffac x-fftb"">About Us~/span>~img src=""http://zachembry.com/ocdesign/images/x-head-icon-abou.png"" alt=""About Us"">~/a"
Y = " >~a class=""x-bar2"" href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/FAQ"">~span class=""x-ffac x-fftb"">FAQ~/span>~img src=""http://zachembry.com/ocdesign/images/x-head-icon-faqs.png"" alt=""FAQ"">~/a"
Z = " >~a class=""x-bar2"" href=""http://contact.ebay.co.uk/ws/eBayISAPI.dll?ContactUserNextGen&recipient=messina-hembry"">~span class=""x-ffac x-fftb"">Contact Us~/span>~img src=""http://zachembry.com/ocdesign/images/x-head-icon-cont.png"" alt=""Contact Us"">~/a>"
aa = " ~/div>"
ab = " ~/div>"

ac = " ~/div>"
ad = "~/div>~/div>"
ae = "~!-- end header -->"

af = "~div class=""x-content"">"

ag = "~!-- beg left panel -->"
ah = "~div id=""LeftPanel"">"
ai = "~/div>"
aj = "~!-- end left panel -->"

ak = "~!-- beg right panel -->"
al = "~div id=""x-main"">"

am = " ~!-- listing gallery -->"
an = " ~div id=""x-main-gall"" class=""x-pbox x-brdm x-bklt"">~div class=""x-tins"">"

ao = " ~!-- LISTING TITLE GOES HERE -->~h1>"
ap = Worksheets("Data").Range("Q" & lastrow + 1)
aq = "~/h1>"

ar = " ~!-- IMAGE GALLERY GOES HERE -->"
as1 = " ~div id=""x-temp-gall"">"
at = " ~div id=""x-gall-main"">"

'Images 2-10-1
au2 = " ~!-- MAIN IMG 02 -->~div id=""img02"" class=""x-cntr"">~img src="""
If I2 ~> "" Then
av2 = I2
Else: av2 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw2 = " "" alt="""">~/div>"

au3 = " ~!-- MAIN IMG 03 -->~div id=""img03"" class=""x-cntr"">~img src="""
If I3 ~> "" Then
av3 = I3
Else: av3 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw3 = " "" alt="""">~/div>"

au4 = " ~!-- MAIN IMG 04 -->~div id=""img04"" class=""x-cntr"">~img src="""
If I4 ~> "" Then
av4 = I4
Else: av4 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw4 = " "" alt="""">~/div>"

au5 = " ~!-- MAIN IMG 05 -->~div id=""img05"" class=""x-cntr"">~img src="""
If I5 ~> "" Then
av5 = I5
Else: av5 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw5 = " "" alt="""">~/div>"

au6 = " ~!-- MAIN IMG 06 -->~div id=""img06"" class=""x-cntr"">~img src="""
If I6 ~> "" Then
av6 = I6
Else: av6 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw6 = " "" alt="""">~/div>"

au7 = " ~!-- MAIN IMG 07 -->~div id=""img07"" class=""x-cntr"">~img src="""
If I7 ~> "" Then
av7 = I7
Else: av7 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw7 = " "" alt="""">~/div>"

au8 = " ~!-- MAIN IMG 08 -->~div id=""img08"" class=""x-cntr"">~img src="""
If I8 ~> "" Then
av8 = I8
Else: av8 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw8 = " "" alt="""">~/div>"

au9 = " ~!-- MAIN IMG 09 -->~div id=""img09"" class=""x-cntr"">~img src="""
If I9 ~> "" Then
av9 = I9
Else: av9 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw9 = " "" alt="""">~/div>"

au10 = " ~!-- MAIN IMG 10 -->~div id=""img10"" class=""x-cntr"">~img src="""
If I10 ~> "" Then
av10 = I10
Else: av10 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw10 = " "" alt="""">~/div>"

au1 = " ~!-- MAIN IMG 01 -->~div id=""img01"" class=""x-cntr"">~img src="""
If I1 ~> "" Then
av1 = I1
Else: av1 = "http://zachembry.com/OCDesign/blankimage.jpg": End If
aw1 = " "" alt="""">~/div>"

aX = " ~/div>"
aY = " ~div id=""x-gall-thmb"">"
aZ = " ~h5>~span>~!-- icon -->~/span> Click Thumbnails to Enlarge~/h5>"

ba1 = " ~!-- THMB IMG 01 -->~div id=""simg01"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img01"">~img src="""
bb1 = av1 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc1 = " "" alt="""">~/a>~/div>~/div>"

ba2 = " ~!-- THMB IMG 02 -->~div id=""simg02"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img02"">~img src="""
bb2 = av2 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc2 = " "" alt="""">~/a>~/div>~/div>"

ba3 = " ~!-- THMB IMG 03 -->~div id=""simg03"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img03"">~img src="""
bb3 = av3 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc3 = " "" alt="""">~/a>~/div>~/div>"

ba4 = " ~!-- THMB IMG 04 -->~div id=""simg04"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img04"">~img src="""
bb4 = av4 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc4 = " "" alt="""">~/a>~/div>~/div>"

ba5 = " ~!-- THMB IMG 05 -->~div id=""simg05"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img05"">~img src="""
bb5 = av5 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc5 = " "" alt="""">~/a>~/div>~/div>"

ba6 = " ~!-- THMB IMG 06 -->~div id=""simg06"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img06"">~img src="""
bb6 = av6 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc6 = " "" alt="""">~/a>~/div>~/div>"

ba7 = " ~!-- THMB IMG 07 -->~div id=""simg07"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img07"">~img src="""
bb7 = av7 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc7 = " "" alt="""">~/a>~/div>~/div>"

ba8 = " ~!-- THMB IMG 08 -->~div id=""simg08"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img08"">~img src="""
bb8 = av8 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc8 = " "" alt="""">~/a>~/div>~/div>"

ba9 = " ~!-- THMB IMG 09 -->~div id=""simg09"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img09"">~img src="""
bb9 = av9 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc9 = " "" alt="""">~/a>~/div>~/div>"

ba10 = " ~!-- THMB IMG 10 -->~div id=""simg10"" class=""x-hold"">~div class=""x-cntr"">~a href=""#img10"">~img src="""
bb10 = av10 '"http://www.sunandfuninoc.com/SAMPLES/x-img-01.jpg"
bc10 = " "" alt="""">~/a>~/div>~/div>"

bd = " ~/div>"
be = " ~/div>"

bf = " ~/div>~/div>"

bg = "~!-- listing description -->"
bh = " ~h4 id=""x-main-tbar-desc"" class=""x-ttba x-fftb x-brdt x-bktt"">~div class=""x-tins x-ffac"">Product Description~/div>~/h4>"
bi = " ~div id=""x-main-desc"" class=""x-tbox x-brdm x-bklt"">~div class=""x-tins"">"

bj = " ~!-- LISTING DESCRIPTION GOES HERE -->~p>"
bk = "~ul>"

bl = "": bm = "": bn = "": bo = "": bp = "": bq = "": br = "": br1 = "": br2 = "": br3 = "": br4 = "": br5 = "": br6 = "": br7 = "": br8 = "": br9 = "": br10 = ""

bl = "~li>~b>Brand: ~/b>" & F3 & "~/li>"
bm = "~li>~b>Size: ~/b>" & F61 & "~/li>"

If F62 ~> "" Then
bn = "~li>~b>Chest Size: ~/b>" & F62 & "~/li>"
End If

'bo = "~li>~b>Trouser Size:~/b>" & F61 & "~/li>"

If F14 ~> "" Then
bp = "~li>~b>Inside Leg: ~/b>" & F14 & "~/li>"
End If

If F63 ~> "" Then
bq = "~li>~b>Shoe Size: ~/b>" & F63 & "~/li>"
End If

If F7 ~> "" And Len(F7) > 1 Then
br = "~li>~b>Colour: ~/b>" & F7 & "~/li>"
End If

If F8 ~> "" And Len(F8) > 1 Then
br1 = "~li>~b>Material: ~/b>" & F8 & "~/li>"
End If

If F23 ~> "" And Len(F23) > 1 Then
br2 = "~li>~b>Pattern: ~/b>" & F23 & "~/li>"
End If

If F9 ~> "" And Len(F9) > 1 Then
br3 = "~li>~b>Style: ~/b>" & F9 & "~/li>"
End If

If F5 ~> "" And Len(F5) > 1 Then
br4 = "~li>~b>Type: ~/b>" & F5 & "~/li>"
End If

If F10 ~> "" Then
br5 = "~li>~b>Armpit to Armpit (inches): ~/b>" & F10 & "~/li>"
End If

If F11 ~> "" And Label62 = "ARMPIT TO CUFF (inches)" Then
br6 = "~li>~b>Armpit to Cuff (inches): ~/b>" & F11 & "~/li>"
End If

If F14 ~> "" Then
br7 = "~li>~b>Leg Length (inches): ~/b>" & F14 & "~/li>"
End If

If F12 ~> "" And L11 = "COLLAR TO HEM (inches)" Then
br8 = "~li>~b>Collar to Hem (inches): ~/b>" & F12 & "~/li>"
End If

If F12 ~> "" And L11 = "HEIGHT:" Then
br8 = "~li>~b>Height (inches): ~/b>" & F12 & "~/li>"
End If

If F11 ~> "" And Label62 = "LENGTH:" Then
br9 = "~li>~b>Length (inches): ~/b>" & F11 & "~/li>"
End If

If F10 ~> "" And L10 = "WIDTH:" Then
br10 = "~li>~b>Width (inches): ~/b>" & F10 & "~/li>"
End If

If F15 ~> "" Then
br10a = "~li>~b>Condition: ~/b>" & F15 & " - " & Replace(F19, Chr(13), "") & "~/li>"
End If
'
'
br11 = "~/ul>"

bs = "~/div>~/div>"

bt = "~!-- listing dynamic buttons -->"
bu = "~div id=""x-temp-bttn"">"
bv = " ~div id=""x-temp-bsto"" title=""Visit Our Store"">~a target=""_blank"" href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing"">~!-- sp -->~/a>~/div>"
bw = " ~div id=""x-temp-bcon"" title=""Condition Guide"">~a target=""_blank"" href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/Condition-Guide"">~!-- sp -->~/a>~/div>"
bx = " ~div id=""x-temp-bsiz"" title=""Sizing Guide"">~a target=""_blank"" href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/Sizing-Help"">~!-- sp -->~/a>~/div>"
by = " ~/div>"

bz = " ~!-- main newsletter banner -->"
ca = " ~a target=""_blank"" href=""http://my.ebay.co.uk/ws/eBayISAPI.dll?AcceptSavedSeller&linkname=includenewsletter&sellerid=messina-hembry"">~img src=""http://zachembry.com/ocdesign/images/x-main-news.png"" id=""x-main-news"" class=""x-prom p-nomo"" alt=""Sign Up for Our Newsletter"">~/a>"
cb = " ~a target=""_blank"" href=""http://my.ebay.co.uk/ws/eBayISAPI.dll?AcceptSavedSeller&linkname=includenewsletter&sellerid=messina-hembry"">~img src=""http://zachembry.com/ocdesign/images/x-main-news-mobi.png"" id=""x-main-news"" class=""x-pmob"" alt=""Sign Up for Our Newsletter"">~/a>"

cd = " ~!-- main mini promo banners -->"
ce = " ~div id=""x-main-mini"">"
cf = " ~img src=""http://zachembry.com/ocdesign/images/x-main-prom-01.png"" id=""x-main-prom-01"" alt=""Free Shipping"" class=""x-first"">"
cg = " ~img src=""http://zachembry.com/ocdesign/images/x-main-prom-02.png"" id=""x-main-prom-02"" alt=""Hassle Free Returns"">"
ch = " ~img src=""http://zachembry.com/ocdesign/images/x-main-prom-03.png"" id=""x-main-prom-03"" alt=""24 Hour Shipping"">"
ci = " ~img src=""http://zachembry.com/ocdesign/images/x-main-prom-04.png"" id=""x-main-prom-04"" alt=""Combined Shipping"">"
cj = " ~img src=""http://zachembry.com/ocdesign/images/x-main-prom-05.png"" id=""x-main-prom-05"" alt=""International Shipping"">"
ck = " ~/div>"

cl = "~/div>"
cm = "~!-- end right panel -->"
cn = "~/div>~!-- end x content -->"

co = "~!-- beg footer -->"
cp = "~div id=""x-foot-wrap"">~div id=""x-foot"" class=""x-ftbg"">"
cq = " ~!-- foot menu -->"
cr = " ~div id=""x-foot-subm"">"
cs = " ~a href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing"">Home~/a>"
ct = " ~a href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/About-Us\"">About Us~/a>"
cu = " ~a href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/Sizing-Help\"">Sizing Help~/a>"
cv = " ~a href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/Condition-Guide"">Condition Guide~/a>"
cw = " ~a href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/Quality-Control"">Quality Control~/a>"
cx = " ~a href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing/FAQ"">FAQ~/a>"
cy = " ~a href=""http://contact.ebay.co.uk/ws\/eBayISAPI.dll?ContactUserNextGen&recipient=messina-hembry"">Contact Us~/a>"
cz = " ~/div>"

da = " ~!-- foot copyright -->"
db1 = " ~div id=""x-foot-copy"">Copyright © 2016 ~a href=""http://stores.ebay.co.uk/Messina-Hembry-Clothing"">Messina Hembry~/a>. All rights reserved.~/div>"
dc = "~/div>~/div>"
dd = "~!-- end footer -->"

de = "~/div>~/div>~!-- end x bg -->"
df = "~/body>~/html>"

Worksheets("FILE EXCHANGE DOC").Range("M" & lastrowFED + 1) = a & b & c & d & e & f & g & h & i _
& j & k & l & m & n & o & p & q & r & s & t & u & v & w & X & Y & Z _
& aa & ab & ac & ad & ae & af & ag & ah & ai _
& aj & ak & al & am & an & ao & ap & aq & ar & as1 & at & au2 & av2 & aw2 & au3 & av3 & aw3 & au4 & av4 & aw4 & au5 & av5 & aw5 & au6 & av6 & aw6 & au7 & av7 & aw7 & au8 & av8 & aw8 & au9 & av9 & aw9 & au10 & av10 & aw10 & au1 & av1 & aw1 & aX & aY & aZ _
& ba1 & bb1 & bc1 & ba2 & bb2 & bc2 & ba3 & bb3 & bc3 & ba4 & bb4 & bc4 & ba5 & bb5 & bc5 & ba6 & bb6 & bc6 & ba7 & bb7 & bc7 & ba8 & bb8 & bc8 & ba9 & bb9 & bc9 & ba10 & bb10 & bc10 _
& bd & be & bf & bg & bh & bi _
& bj & bk & bl & bm & bn & bo & bp & bq & br & br1 & br2 & br3 & br4 & br5 & br6 & br7 & br8 & br9 & br10 & br10a & br11 & bs & bt & bu & bv & bw & bx & by & bz _
& ca & cb & cc & cd & ce & cf & cg & ch & ci _
& cj & ck & cl & cm & cn & co & cp & cq & cr & cs & ct & cu & cv & cw & cx & cy & cz _
& da & db1 & dc & dd & de & df
~/code>






Contact us for some advice and guidance on how your Excel development could be created and start helping your business straight away. Contact Us

Datanology