2014-12-04 2 views
-1

У меня есть макрос, который публикует мой лист в виде HTML-страницы, и он хорошо работает ... однако исходный запас неправильного цвета. Мне нужно, чтобы он был черным. Я обнаружил, что если я изменить HTML-код веб-страницы, как только будет опубликован, можно легко решить эту проблему - все, что нужно сделать, это добавить строку ниже:Напишите строку HTML-кода с VBA

<body bgcolor="black"> 

Я интересно, если есть способ чтобы мой макрос открывал веб-страницу, добавлял строку html-кода, а затем сохранял и закрывал файл?

Код, который публикует лист ниже:

With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange,_ 
     Filename:=SavePath, Sheet:="HTML", Source:="$A1:N" & numProc, HtmlType:=0) 
.Publish (True) 
.AutoRepublish = False 
End With 
+1

Какой код использует ваш макрос в настоящее время? Отправьте код, который касается публикации HTML-страницы. SO не является платформой для аутсорсинга кода. Подробнее см. Http://stackoverflow.com/help/on-topic. – Chrismas007

+0

Я добавил код выше – shwan

ответ

2

Вы можете (и должны) просто использовать CSS. Создайте файл *.css в той же папке, где вы сохраните HTML-файл (ы). Затем в HTML <head> просто добавьте это:

<head> 
<link href="my-file.css" rel="stylesheet"> 
</head> 

И в файле CSS:

body { 
    background-color: #000000; /* or just background-color: black; */ 
} 

Тогда в вашем теле:

<body class="background"> 

И в файле CSS :

body.background { 
    background-color: #000000; /* or just background-color: black; */ 
} 

Это сделает любой файл с HTML атрибуты имеют одинаковый фон. Что касается создания VB, это, вероятно, не лучший инструмент для работы.

+0

, у вас только один тег тела на странице, поэтому на самом деле нет необходимости в классе. кроме этого я согласен – Malachi

+0

Хорошо, но я пытаюсь автоматизировать публикацию этого листа, поскольку я буду делать это очень часто. Я хочу избежать ручного перехода на каждую веб-страницу, которую я публикую с помощью этого макроса и редактирования html. Есть ли способ добавить ссылку на файл CSS автоматически? – shwan

+1

Извините, см. Мое редактирование. Это должно делать именно то, что вам нужно с CSS, без необходимости редактировать файлы вручную. Я уверен, что есть способ добавить ссылку с VBA, возможно, кто-то другой может включить. – Phrancis

Смежные вопросы