Excel chart to HTML to website

[jandhi]

I am running a system that uploads data periodically to an excel chart. I want to publish this chart onto a website and have it automatically be updated to the website at the same rate that the data is updated in the excel file. I have started by using this VBA macro:
<o></o>
<o>Sub Autpen()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>ThisWorkbook.PublishObjects.Add(xlsSourceChart, _<o></o>
"C:\Documents and Settings\jdallas\Desktop\Testing\chart.html" _<o></o>
, "Sheet1", "Chart 2", xlHtmlStatic, "DevXSample_16365", _<o></o>
"Graph1").Publish (True)<o></o>
Application.OnTime Now + TimeValue("00:00:30"), _<o></o>
"Autpen"<o></o>
End Sub<o></o>
</o>
I have 2 questions:
1. I am trying to publish a specific chart to an HTML file, but no matter what I put into the fields for "Sheet1" or "Chart2", excel always publishes the entire workbook. How can I only publish an HTML file of the chart I want and nothing else?
2. How can I automatically have this chart html file updated to a website?

Thanks so much.

 

[Jon Peltier]

Do you just want to export the chart as an image? MS-generated html is so verbose and ugly. If so, check out Export Chart as Image File and Enhanced Export Chart Procedure.

Daily Dose of Excel posted a routine that will upload a file to a web site using FTP. There are many more similar routines you can find by Googling the terms Excel VBA FTP.

 

[jandhi]

1. Ya, I think I like the images much better. I simply export all my images as .png's and have an html page that uses the images.
Here's the vba code:

Sub ExportChart1()
With Workbooks("PowerPer.xlsm")
.Worksheets("Power Per Day").ChartObjects("Chart 1").Chart. _
Export ("C:\Documents and Settings\jdallas\Desktop\Online _ Folder\meter1_files\perDay.png")

.Worksheets("Power Per week").ChartObjects("Chart 2").Chart. _
Export ("C:\Documents and _ Settings\jdallas\Desktop\Online Folder\meter1_files\perWeek.png")
End With
Application.OnTime Now + TimeValue("00:00:30"), _
"ExportChart1"

End Sub

2. Ok, I'll keep looking those things up. Thanks for your help.

 

[Jon Peltier]

You're updating every 30 seconds? What's the latency for Excel to get the data, export the chart, and upload the image file?

I suggest you look for a web technology to handle this.

 

[jandhi]

It just takes a few seconds, it ran just fine. And 30 seconds was just so I could test run things quickly, in practice it wont update that regularly.

Alright, that's what I've been working on all day. I'm trying personal web servers but I think my company's firewall is blocking that from working for anyone outside the company's network, so I think I'll have to try something else. Thanks.