Генерируйте вывод HTML, используя переменные Excel, используя Excel VBA и Блокнот или Shell - PullRequest
Новая
       9

Генерируйте вывод HTML, используя переменные Excel, используя Excel VBA и Блокнот или Shell

1 голос
/ 27 сентября 2019

Я создаю приложение на основе excel, которое создает визуальные эффекты для ТВ-панелей.Бизнес хотел бы иметь возможность просматривать новые vizzies до их запуска.Система работает с помощью нескольких шаблонов HTML с ассоциированным чтением и записью JavaScript в таблицу SQL.Что я хотел бы сделать, это подобрать новые входные данные, введенные в отформатированные таблицы Excel, и с помощью этих входных данных генерировать выходные данные html и записать их в блокнот, чтобы бизнес мог тестировать и просматривать предварительный просмотр с полным макетом и без изменений.

Я попытался открыть функцию «Блокнот» и распечатать вывод и вывод файла с помощью оболочки, но в результате не удалось указать путь к файлу изображения вместе с именем переменной переменной.Если я удаляю изображение полностью, не все функции стилей также. 

Sub htmlstr()

Dim strHTML As String

Dim Heading As String
Dim SubHeading As String
Dim ImageFile As String
Dim TextBox1 As String
Dim TextBox2 As String

Heading = Range("c_Head").Value
SubHeading = Range("c_SubHead").Value
ImageFile = Range("c_img").Value
TextBox1 = Range("c_txtbx1").Value
TextBox2 = Range("c_txtbx2").Value

Dim sFile As String

sFile = ActiveWorkbook.Path & "\WallboardPreview.html"
Close

Open sFile For Output As #1
Print #1, "<!DOCTYPE html>"
Print #1, "<head>"
Print #1, "<meta charset=""UTF-8"">"
Print #1, "<title>Preview</title>"
Print #1, "</head>"
Print #1, "<html lang=""en"">"
Print #1, "<body>"
Print #1, "<h1 class=""h1"">" & Heading & "</h1>"
Print #1, "<h2 class=""h2"">" & SubHeading & "</h2>"
Print #1, "<img src=""ImageFile"" class=""img"" align=""right"" alt=""There should be an image here but it seems to have disappeared. Gremlins in the machine, but I'm sure it'll be back soon"">"
Print #1, "<p class=""container1"">" & TextBox1 & "</p>"
Print #1, "<p class=""container2"">" & TextBox2 & "</p>"
Print #1, "<p class=""footer"">Scrolling Message</p>"
Print #1, "</body>"
Print #1, "</html>"
Print #1, "<style>"
Print #1, "body{background: rgb(255,255,255);padding: 0; margin: 0;}"
Print #1, ".h1{font-family: calibri, arial; font-size: 67px; color: rgb(27,29,81); margin-top: 0; margin-bottom: 0v; margin-left: 10px;}"
Print #1, ".h2{font-family: calibri, arial; font-size: 40px; color: rgb(27,29,81); margin-top: 0; margin-left: 10px;}"
Print #1, ".img{background: rgb(255,255,255); margin-top: 10px; margin-right: 10px; width: 535px; height: 705px; border: 10px solid;}"
Print #1, ".container1{margin-top: 0; margin-bottom: 0; margin-left: 0; margin-right: 1px; padding: 10px; font-family: calibri, arial; font-size: 50px; color: rgb(0,0,0);}"
Print #1, ".container2{margin-top: 10px; margin-bottom: 10px; margin-left: 0; margin-right: 1px; padding: 10px; font-family: calibri, arial; font-size: 50px; color: rgb(0,0,0);}"
Print #1, ".footer{position: fixed; left:0; bottom: 0; width: 1920px; font-size: 60px; background-color: gray; color: white; text-align: center; font-family: arial;}"
Print #1, "</style>"
Close
Shell "hh " & vbLf & sFile, vbMaximizedFocus

End Sub

Ожидаемый результат должен быть таким, как показано ниже: 

<!DOCTYPE html>
<head>
<meta charset="UTF-8">
<meta http-equiv="refresh" content="20">
<meta name="viewport" content="width=device-width, initial-scale=1">
<title>Preview</title>
</head>
<html lang="en">
<body>
<h1 class="h1">CPC & DCA</h1>
<h2 class="h2">Focus on the following information re inbound calls</h2>
<img src="\\i00\Test\AMUWB\CommonImageFiles\test_1.png" class="img" align="right" alt="There should be an image here but it seems to have disappeared. Gremlins in the machine, but I'm sure it'll be back soon">
<p class="container1">Some text here...</p>
<p class="container2">Some text here...</p>
</body>
</html>
<style>
body{background: rgb(255,255,255);padding: 0;margin: 0;}
.h1{font-family: calibri, arial;font-size: 7vh;color: rgb(27,29,81);margin-top: 0vh;margin-bottom: 0vh;margin-left: 10px;}
.h2{font-family: calibri, arial;font-size: 4vh;color: rgb(27,29,81);margin-top: 0vh;margin-left: 10px;}
.img{background: rgb(255,255,255);margin-top: -30px;padding: 1vh;width: 28vw;height: 80vh;}
.container1{margin-top: 0vh;margin-bottom: 0vh;padding: 1vh;font-family: calibri, arial;font-size: 7vh;color: rgb(0,0,0);}
.container2{margin-top: 1vh;margin-bottom: 1vh;padding: 1vh;font-family: calibri, arial;font-size: 7vh;color: rgb(0,0,0);}
</style>
...