This post VBA code never been used in final application by me – but in test files it was used. I’ve spent a little bit time on it. Code is quite interesting becasue of HTML tags used inside to create HTM file that is being opening in internet browser.
Creating HTM file guarantees as the same schema (should be) for all workstations. Plik HTM has been created be me when PDF SAVE AS tool has not been a part of Excel.
Following sources have been used to create HTM file:
1. Create HTM files from sheet data
2. Extension filters for saving files
3. Different table styles in CSS
4. Font size in CSS
5. Polish signs in Firefox
For tests some data have to be added to active sheet – the best as in following image:
How to create HTM file:
' Source:
' Create HTM files from sheet data
' http://www.meadinkent.co.uk/xlhtmltable.htm
' Extension filters for saving files
' http://software-solutions-online.com/2014/03/13/excel-vba-save-file-dialog-getsaveasfilename/
' Different table styles in CSS
' http://stackoverflow.com/questions/7992198/html-how-to-make-2-tables-with-different-css
' Font size in CSS
' http://www.w3schools.com/tags/att_font_size.asp
' Polish signs in Firefox
' http://forums.phpfreaks.com/topic/132413-polish-characters-dont-display-properly/
Sub HTM_Page_Creation()
Dim TempStr
Dim PageName As String
Dim MyFormats As Variant
Dim FirstRow, LastRow, FirstCol, LastCol, MyRow, MyCol As Integer
' ----------------------------------
' HTM FILE LOCALIZATION
PageName = Application.GetSaveAsFilename("HTM_File_Name", "HTM file (*.htm), *.htm", 1, "Save raport")
' Checking if user chosen CANCEL action
If PageName = "False" Then
MsgBox "CANCELED.", vbOKOnly + vbInformation, "CONFIRMATION..."
Exit Sub
End If
' ----------------------------------
' VARIABLE DECLARATION
' MyFormats is an array which can contain formats for numbersand dates. Add one element for each table column.
MyFormats = Array("#", "dd mmm yy", "# ##0 pln", "0%")
' HTM table range
FirstRow = 1
LastRow = 6
FirstCol = 1
LastCol = 4
' ----------------------------------
' CHECKING DATA CORRECTION (admit I don't know how it works)
'If error macro is stopped
'If UBound(MyFormats2) < (LastCol - FirstCol) Then
' MsgBox "No data - code has been stopped", vbOKOnly + vbCritical, "HTM Creation..."
' Exit Sub
'End If
' ----------------------------------
' HTM FILE CREATION
Open PageName For Output As #1
Print #1, "<html>"
Print #1, "<head>"
Print #1, "<title>COMPANY SALE RAPORT</title>" ' is showing in browser tab
Print #1, "<meta http-equiv='content-type' content='text/html;charset=windows-1250' />" ' polish signs in Forefox
Print #1, "<style type='text/css'>"
Print #1, "body {font-family: Arial, Helvetica; font-size: 11pt; margin-left: 10; margin-right: 10}"
Print #1, "td.td1 {padding: 1pt 3pt 2pt 3pt; border-style: solid; border-width: 1; border-color: #0F5BB9; font-size: 11pt}"
Print #1, "table.table1 {border-collapse: collapse; border-width: 1 ; border-style: solid; border-color: #0F5BB9 }"
Print #1, "p.p1 {font-size: 8pt}"
Print #1, "</style>"
Print #1, "</head>"
Print #1, "<body>"
Print #1, "<h1>PAGE TITLE</h1>"
Print #1, "<p></p>"
Print #1, "<table class='table1'>"
Print #1, "<p></p>"
' Adding data to HTM files
For MyRow = FirstRow To LastRow
Print #1, "<tr>"
For MyCol = FirstCol To LastCol
If MyRow = 1 Then
TempStr = Cells(MyRow, MyCol).Value
TempStr = "<b>" & TempStr & "</b>"
TempStr = "<td class='td1'; align='center'; bgcolor='#58FAF4'>" & TempStr & "</td>"
Else
If IsNumeric(Cells(MyRow, MyCol).Value) = True Then
TempStr = Format(Cells(MyRow, MyCol).Value, MyFormats(MyCol - FirstCol))
TempStr = "<td class='td1'; align='right'>" & TempStr & "</td>"
Else
TempStr = Cells(MyRow, MyCol).Value
TempStr = "<td class='td1'; align='left'>" & TempStr & "</td>"
End If
End If
Print #1, TempStr
Next MyCol
Print #1, "</tr>"
Next MyRow
Print #1, "</table>"
' HTM file finalization
Print #1, "<p></p>"
Print #1, "<p class='p1'>To search some value use [CTRL]+'F'. Press[Home] to"
Print #1, "back on top. Data might be copied to Excel</p>"
Print #1, "<hr>"
Print #1, "<p><small>Raport date: " & Format(Date, "dd-mm-yyyy") & " | <a href='http://www.meadinkent.co.uk/'>File has been created thanks to meadinkent</a></small></p>"
Print #1, "<p></p>"
Print #1, "<p><img src='Some image path'></p>"
Print #1, "</body>"
Print #1, "</html>"
Close #1
MsgBox "Done"
End Sub
Pingback: tangerine business account online
Pingback: nằm mơ thấy con chí
Pingback: mo thay cho chet
Pingback: ป๊อกเด้งออนไลน์
Pingback: nằm mơ thấy thỏ
Pingback: mơ thấy xe máy đánh con gì
Pingback: gamescheat
Pingback: cây phong thuỷ phòng làm việc
Pingback: cung song tử hợp với cung nào nhất
Pingback: con gái thiên bình
Pingback: mơ thấy mất xe đạp
Pingback: mơ thấy quay lại với người yêu cũ
Pingback: mơ thấy đứt tay
Pingback: danh bai doi thuong tren pc
Pingback: game dua ngua dat cuoc
Pingback: ดูหนังออนไลน์เต็มเรื่อง
Pingback: Bilåtervinnare Göteborg
Pingback: mơ thấy quả bưởi đánh con gì
Pingback: mơ thấy đồ ăn
Pingback: chiem bao thay di chua
Pingback: mơ ăn chuối
Pingback: mơ bốc mộ
Pingback: nằm mơ thấy tóc rụng
Pingback: mơ chụp ảnh
Pingback: http://instone-international.com/
Pingback: Sicherheitsdienst
Pingback: Tyson vs Jones jr live stream
Pingback: cvv dumps with pin
Pingback: www.squeeqee.co.uk/carpet-cleaning-enfield
Pingback: pasarqq
Pingback: buy real drivers license uk
Pingback: Market Retailers
Pingback: ตู้แปลภาษา
Pingback: ดูการ์ตูนออนไลน์ อนิเมชั่น
Pingback: mơ đánh chết người
Pingback: mơ thấy cá lóc
Pingback: mơ bị sét đánh
Pingback: bị bọ cạp cắn
Pingback: Boka hämtning skrotbil
Pingback: mơ thấy nhà mới đánh con gì
Pingback: mo thay toc
Pingback: read this post here
Pingback: 토토사이트
Pingback: rescator su
Pingback: evdamhft
Pingback: what makes viagra work
Pingback: wat is viagra voor mannen
Pingback: how long does it take azithromycin to enter you system
Pingback: cialis and viagra
Pingback: viagra
Pingback: comprar viagra
Heya i’m for the first time here. I found this board
and I find It truly useful & it helped me out much. I hope to give something back and
aid others like you aided me.
Visit us :토토사이트
Pingback: quick essay writing service
Pingback: write my research paper reddit
Pingback: writing my essay
Pingback: help me in essay writing
Pingback: business essay writing
Pingback: augmentin generic brand
Pingback: where can i get furosemide
Pingback: azithromycin brand name in india
Pingback: ivermectin stromectol
Pingback: ventolin australia
Pingback: acne pills doxycycline
Pingback: prednisolone 5mg price
Pingback: reviews on clomid
Pingback: dapoxetine 30mg reviews
Pingback: diflucan toenail fungus
Pingback: synthroid weight
Pingback: propecia shedding pictures
Pingback: neurontin impotence
Pingback: metformin hydrochloride
Pingback: paxil and oxycodone
Pingback: sanofi aventis plaquenil
Pingback: metformin 500 mg otc
Pingback: propecia
Pingback: where to buy finasteride
Pingback: ordering cialis online australia
Pingback: medication for ed dysfunction
Pingback: medication canadian pharmacy
Pingback: buy cialis cheaper online
Pingback: Zakhar Berkut hd
Pingback: 4569987
Pingback: buy cialis in miami
Pingback: cialis 20mg usa
Pingback: how to buy cialis online uk
Pingback: buy insurance
Pingback: news news news
Pingback: ordering online australia
Pingback: psy
Pingback: psy2022
Pingback: projectio-freid
Pingback: best payday loans turlock
Pingback: Tinder Says I Have A Message But I Can't See It
Pingback: kinoteatrzarya.ru
Pingback: topvideos
Pingback: video
Pingback: viagra with alcohol
Pingback: lisinopril 20mg online
Pingback: afisha-kinoteatrov.ru
Pingback: Ukrainskie-serialy
Pingback: site
Pingback: generic cialis pricing
Pingback: cialis v viagra
Pingback: top
Pingback: cialist the yeloow pill
Pingback: canada cialis online
Pingback: canadian online pharmacy calls
Pingback: cost of cialis without insurance
Pingback: viagra vs cialis vs levitra price
Pingback: best rx online pharmacy
Pingback: buy cialis without perscription
Pingback: cialis online without prescription
Pingback: cialis without presciption in usa
Pingback: declaring prescription drugs us customs
Pingback: buy cialis online viagra
Pingback: where can i buy cialis without a prescription
Pingback: ed medicines
Pingback: valtrex 250 mg 500 mg
Pingback: erectile dysfunction medicines
Pingback: cause of ed
Pingback: viagra without a doctor prescription usa
Pingback: cialis brand name
Pingback: sildenafil viagra 100mg
Pingback: soderzhanki-3-sezon-2021.online
Pingback: chelovek-iz-90-h
Pingback: podolsk-region.ru
Pingback: voltaren cream for arthritis
Pingback: male ed drugs
Pingback: bender na4alo 2021
Pingback: blogery_i_dorogi
Pingback: blogery_i_dorogi 2 blogery_i_dorogi
Pingback: erectile dysfunction pills
Pingback: generic ivermectin cream
Pingback: stromectol 12mg
Pingback: plaquenil sulfate
Pingback: ivermectin 5 mg price
Pingback: ivermectin 80 mg
Pingback: best ed solution
Pingback: best ed pills at gnc
Pingback: chernaya vodova
Pingback: 66181
Pingback: erectile dysfunction medicines
Pingback: buy hydroxychloroquine sulphate
Pingback: Porno
Pingback: vechernyy urgant
Pingback: ukraine
Pingback: viagra from india
Pingback: best place to buy viagra online
Pingback: A3ixW7AS
Pingback: how to buy cialis online uk
Pingback: hydroxychloroquine stock
Pingback: buy plaquenil tablets
Pingback: gidonline-ok-google
Pingback: link
Pingback: KremlinTeam
Pingback: medunitsa.ru
Pingback: plaquenil cost for generic
Pingback: kremlin-team.ru
Pingback: psychophysics.ru
Pingback: yesmail.ru
Pingback: cialis bayer 20
Pingback: hydroxychloroquine tablets buy online
Pingback: lowest price cialis
Pingback: Suicide Squad 2
Pingback: psiholog
우리카지노77은 우리카지노 계열 중 가장 인기가 많은 메리트카지노,샌즈카지노,퍼스트카지노,007카지노,코인카지노,더존카지노를 추천하며 바카라사이트 소개 및 우리카지노 .
Pingback: order viagra sydney australia
Pingback: hizhnyak-07-08-2021
가장 인기가 많은 토토사이트를 선별하여 방문자들에게 제공하는 붐토토는 검증 된 안전놀이터,메이저사이트만을 고집합니다. 꽁머니 이벤트 등 사설스포츠토토를 이용.토토
Pingback: cialis after prostate surgery
Pingback: rate canadian pharmacy online
Pingback: zithromax for sale usa
Pingback: viagra without a prescription
Pingback: zithromax buy online
Pingback: what does viagra do
Pingback: where can you buy zithromax
Pingback: u.s online pharmacy
Pingback: https://regcialist.com
Pingback: pharmacy symbol rx
Pingback: generic ivermectil at kroger
Pingback: viagra side effects
Pingback: stromectol uk buy
Pingback: medication drugs
Pingback: can you buy stromectol online uk
Pingback: plaquenil cost without insurance
Pingback: best price cialis supper active
Pingback: cialis side effects women
Pingback: priligy 60
Pingback: prednisone capsules
Pingback: amlodipine for cats
Pingback: what is atorvastatin calcium 40 mg used for
Pingback: jack prilosec
Pingback: pills from canada
Pingback: what are the side effects of lexapro
Pingback: legitimate canadian pharmaceuticals online
Pingback: buy viagra online cheapest
Pingback: what is duloxetine hcl dr 60 mg capsule
Pingback: generic ivermectin for humans
Pingback: dosage for hydrochlorothiazide
Pingback: will stromectol treat std
Pingback: generic viagra india
Pingback: atorvastatin cholesterol
Pingback: female viagra
Pingback: viagra alternatives
Pingback: klonopin and zoloft
Pingback: mens erection pills
Pingback: ivermectay clavulanic
Pingback: how to get cialis
Pingback: compare ed drugs
Pingback: how to order cialis
Pingback: citalopram vs lexapro
Pingback: stromectol 6 treat parasite infestations 125
Pingback: cheapest price for cialis
Pingback: where can i purchase cialis
Pingback: Duna 2021
Pingback: viagra sale
Pingback: sildenafil coupon
Pingback: what is the purpose of duloxetine
Pingback: viagra prescription online
Pingback: 1
Pingback: purchase cialis online
Pingback: cheapest generic viagra
Pingback: where to buy real viagra cheap
Pingback: lowkey gay dating sites
Pingback: clavamox 125
Pingback: canadian pharmacy ezzz cialis
Pingback: sildenafil online
Pingback: clomid uk
Pingback: buying clomid online
Pingback: viagra 100mg
Pingback: buy cialis now
Pingback: buy ivermectin cream
Pingback: prednisone 20 mg purchase
Pingback: viagra alternative
Pingback: how much is cialis in mexico
Pingback: over the counter stromectol for lymphatic filariasis
Pingback: how can i get viagra
Pingback: buy doxycycline without prescription
Pingback: ivermectin generic human
Pingback: order viagra for women
Pingback: cialis with dapoxetine paypal
Pingback: where to buy v
Pingback: ivermectin 6 mg
Pingback: cialis 20mg overnight
Pingback: cialis online canada paypal
Pingback: ivermectin pills for dogs
Pingback: ivermectin meta-analysis
Pingback: generic cialis india
Pingback: ivermectin oral
Pingback: ivermectin for tapeworms
Pingback: buying sildenafil citrate online
Pingback: natural viagra alternatives
Pingback: drugs market viagra
Pingback: dosing of viagra for female sexual dysfunction
Pingback: cheapest price soft generic viagra
Pingback: ivermectin poisoning
Pingback: ivermectin guinea pigs
Pingback: ivermectin covid studies
Pingback: comprare viagra online
Pingback: cialis price costco
Pingback: best ed pill
Pingback: cialis seling
Pingback: how to buy viagra for less than 5 dollars each
Pingback: sexual dysfunction in men
Pingback: impotence treatment
Pingback: sildenafil mylan
Pingback: where to buy cialis
Pingback: cheap pharmacy online
Pingback: sildenafil
Pingback: payday loans lenders only
Pingback: all casino slots games
Pingback: viagra online canadian pharmacy
Pingback: dapoxetine eu
Pingback: how to get nolvadex
Pingback: generic tamoxifen
Pingback: prednisone 60 mg tablet
Pingback: 10 mg prednisone tablets
Pingback: ivermectin lotion price
Pingback: ivermectin 8 mg
Pingback: ivermectin lotion cost
Pingback: buy z pack over the counter
Pingback: prescription drugs online without
Pingback: buy prescription drugs from canada cheap
Pingback: online generic viagra
Pingback: non prescription ed pills
Pingback: bestellen viagra
Pingback: cleantalkorg2.ru
Pingback: viagra prescriptions over internet
Pingback: prednisone 1 tablet
Pingback: order prednisone 100g online without prescription
Pingback: without doctor visit viagra
Pingback: viagra foods
Pingback: viagra dosages
Pingback: viagra government funded
Pingback: order stromectol
Pingback: stromectol 0.5 mg
Pingback: order prescription viagra online
Pingback: amoxil USA
Pingback: free viagra
Pingback: lasix tablet cost
Pingback: neurontin medicine
Pingback: plaquenil brand
Pingback: natural alternatives to viagra
Pingback: prednisone 50 tablet
Pingback: dapoxetine tablet
Pingback: provigil generic buy
Pingback: ivermectin generic
Pingback: 270 mcg albuterol
Pingback: buy zithromax online
Pingback: viagra kopen
Pingback: furosemide buy online
Pingback: viagra cost
Pingback: quineprox 0.4
Pingback: natural viagra
Pingback: ivermectin ireland
Pingback: zithromax tablet
Pingback: cheapest on line valtrex without a prescription
Pingback: herb viagra
Pingback: cheapest on line valtrex without a prescription
Pingback: valtrex generic otc
Pingback: levitra
Pingback: viagra pornhub
Pingback: over the counter viagra
Pingback: generic pills
Pingback: generic pills
Pingback: cialis dosage frequency
Pingback: cialis side effects dangers
Pingback: cialis dosage recommendations frequency
Pingback: viagra generic
Pingback: buy hydroxychloroquine sulfate
Pingback: cialis viagra
Pingback: plaquenil 200mg buy
Pingback: pfizer viagra price
Pingback: pfizer viagra
Pingback: ivermectin 8000
Pingback: plaquenil 0.2
Pingback: ivermectin 12mg tablets online
Pingback: ivermectin gel
Pingback: price of ivermectin
Pingback: stromectol tab price
Pingback: canadian pharmacy online cialis
Pingback: generic cialis online pharmacy
Pingback: aabbx.store
Pingback: buying ed pills online
Pingback: ne-smotrite-naverx
Pingback: arrogant
Pingback: sildenafil teva
Pingback: Dead-Inside
Pingback: cialis mg
Pingback: how much does cialis cost at walmart
Pingback: medicine for impotence
Pingback: doxazosin and cialis
Pingback: stromectol tablet 3 mg
Pingback: ivermectin buy online
Pingback: stromectol 12mg
Pingback: trusted online pharmacy reviews
Pingback: cialis commercials