HTML coding in Excel VBA

S

Sheela

Hello,

Can anybody tell me if this coding works with Excel 2002?

Open OutputFile For Output As #1

LineInput = "<html><head><title>" & HeaderData
& "</title></head><body>"
HtmlWrite (LineInput)
LineInput = "<basefont size=3><table cellpadding=0
cellspacing=0 width=100%><tr><td valign=top align=left>"
HtmlWrite (LineInput)
LineInput = "<a href=""../mopscrud.htm""><strong>Crude
Platts</strong></a> ... "
HtmlWrite (LineInput)
LineInput = "<a href=""../termcrud.htm""><strong>Tapis
PTP</strong></a> ... "
HtmlWrite (LineInput)
LineInput = "<a href=""ptp.htm""><strong>Term
Prices</strong></a> ... "
HtmlWrite (LineInput)
LineInput = "<a href=""../diff-tpc.htm""><strong>Tapis
Trends</strong></a>"
HtmlWrite (LineInput)

LineInput = "</td></tr></table><hr>"
HtmlWrite (LineInput)


Thanks,
Sheela
 
B

Bruce Cooley

I put your code into a module in Excel 2002 and my VBA editor didn't
recognize anything past the first line. 'LineInput' was not found in my
Object Browser search.

Bruce Cooley



: Hello,
:
: Can anybody tell me if this coding works with Excel 2002?
:
: Open OutputFile For Output As #1
:
: LineInput = "<html><head><title>" & HeaderData
: & "</title></head><body>"
: HtmlWrite (LineInput)
: LineInput = "<basefont size=3><table cellpadding=0
: cellspacing=0 width=100%><tr><td valign=top align=left>"
: HtmlWrite (LineInput)
: LineInput = "<a href=""../mopscrud.htm""><strong>Crude
: Platts</strong></a> ... "
: HtmlWrite (LineInput)
: LineInput = "<a href=""../termcrud.htm""><strong>Tapis
: PTP</strong></a> ... "
: HtmlWrite (LineInput)
: LineInput = "<a href=""ptp.htm""><strong>Term
: Prices</strong></a> ... "
: HtmlWrite (LineInput)
: LineInput = "<a href=""../diff-tpc.htm""><strong>Tapis
: Trends</strong></a>"
: HtmlWrite (LineInput)
:
: LineInput = "</td></tr></table><hr>"
: HtmlWrite (LineInput)
:
:
: Thanks,
: Sheela
:
 
M

Myrna Larson

She was using LineInput as the name of a variable. VBA does have a Line Input command (2 words),
so IMO LineInput isn't a good choice for a variable name -- too confusing.
 
T

Tom Ogilvy

There must be a function/sub created by the author of the code titled
htmlwrite. Otherwise your code is non-functional. There is no built in VBA
command htmlwrite. I provided a reference on how to write out a text file.
If you can't find the orginal author's htmlwrite function/sub, then you can
write you own using the reference.

--
Regards,
Tom Ogilvy

Sheela said:
Is there another way of writing this code? There are so
many lines created which starts with "LineInput = ..."
and followed by "HtmlWrite (LineInput)". I believe the
first one is to input the lines and the second if to
display the message. If this is not working, what is the
other way to write this html coding in VBA?

Below is the sample coding for you to have a better
picture on the coding flow.

------------------------------
Open OutputFile For Output As #1

LineInput = "<html><head><title>" & HeaderData
& "</title></head><body>"
HtmlWrite (LineInput)
LineInput = "<basefont size=3><table cellpadding=0
cellspacing=0 width=100%><tr><td valign=top align=left>"
HtmlWrite (LineInput)
LineInput = "<a href=""../mopscrud.htm""><strong>Crude
Platts</strong></a> ... "
HtmlWrite (LineInput)
LineInput = "<a href=""../termcrud.htm""><strong>Tapis
PTP</strong></a> ... "
HtmlWrite (LineInput)
LineInput = "<a href=""ptp.htm""><strong>Term
Prices</strong></a> ... "
HtmlWrite (LineInput)
LineInput = "<a href=""../diff-tpc.htm""><strong>Tapis
Trends</strong></a>"
HtmlWrite (LineInput)

LineInput = "</td></tr></table><hr>"
HtmlWrite (LineInput)

If HeaderData <> "" Then
LineInput = "<font size=+2 color=red>" & HeaderData
& "</font>"
HtmlWrite (LineInput)
End If
If DescriptionText <> "" Then
LineInput = "<I>" & DescriptionText & "</I>"
HtmlWrite (LineInput)
End If

LineInput = "<br><p>"
HtmlWrite (LineInput)
LineInput = "<table border><caption><b>" & TableCaption
& "</b></caption>"
HtmlWrite (LineInput)
------------------------

Thanks,
Sheela
-----Original Message-----
She was using LineInput as the name of a variable. VBA
Click to expand...
does have a Line Input command (2 words),
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

HTML in Excel VBA 0
Receiving code instead of graphics 0
VBA and Internet Explorer 9
Complex HTML signature 10
find string in web page 3
Error setting up Attribute Mapping Template 1
External data from HTML document 2
Embedded media player 3

Top