I am trying to create a number of Web pages and where the
data source range is referenced want to use
ActiveSheet.Usedrange.Copy instead of a defined range as I
have done in the example below, how do I do this?

Also where does it get the 21106 from as the workbook is
called LapsedAMC's?

Your help much appreciated.

ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"H:\DBM\Dbmt670\A357XPLapsedAMC.htm", "Sheet1",
Range("A1:D76"), xlHtmlStatic, _
"LapsedAMC's_21106", "").Publish (True)

Hi Justin,

I publish my web pages without using any codes. Just do
a "Save as Web Page", then click "Publish", and then
check "AutoRepublish every time this workbook is saved".
When the Excel file is updated the web page automatically
gets updated. I'm using Excel XP.

If you want to use the UsedRange feature then try
replacing Range("A1:D76") with Range
(ActiveSheet.UsedRange.Address).

Hope this helps...

Chong Moua

-----Original Message-----
I am trying to create a number of Web pages and where the
data source range is referenced want to use
ActiveSheet.Usedrange.Copy instead of a defined range as
I
have done in the example below, how do I do this?

Also where does it get the 21106 from as the workbook is
called LapsedAMC's?

Your help much appreciated.

ActiveWorkbook.PublishObjects.Add(xlSourceRange , _
"H:\DBM\Dbmt670\A357XPLapsedAMC.htm", "Sheet1",
Range("A1:D76"), xlHtmlStatic, _
"LapsedAMC's_21106", "").Publish (True)
.

-----Original Message-----
Hi Justin,

I publish my web pages without using any codes. Just do
a "Save as Web Page", then click "Publish", and then
check "AutoRepublish every time this workbook is saved".
When the Excel file is updated the web page automatically
gets updated. I'm using Excel XP.

If you want to use the UsedRange feature then try
replacing Range("A1:D76") with Range
(ActiveSheet.UsedRange.Address).

Hope this helps...

Chong Moua

-----Original Message-----
I am trying to create a number of Web pages and where
the
data source range is referenced want to use
ActiveSheet.Usedrange.Copy instead of a defined range as
I
have done in the example below, how do I do this?

Also where does it get the 21106 from as the workbook is
called LapsedAMC's?

Your help much appreciated.

ActiveWorkbook.PublishObjects.Add(xlSourceRang e, _
"H:\DBM\Dbmt670\A357XPLapsedAMC.htm", "Sheet1",
Range("A1:D76"), xlHtmlStatic, _
"LapsedAMC's_21106", "").Publish (True)
.

Works fine. Thanks
I have to import data from a foxpro table, filter out
customers for each of 450 dealers in turn, produce a
temporary worksheet and save it as a web page after
tarting it up a bit. Just hot to do the loopp now.

I'm glad it worked.

I'm not sure if you could connect to the FoxPro database
or not. But if you can, you could use Excel to query the
database to get the data that you need, tune it up, and
save as web page. All can be done with little coding.
Look into MS Query. In Excel it's under Data | Import
External Data | New Database Query...

Hope this helps...

Chong Moua

-----Original Message-----

-----Original Message-----
Hi Justin,

I publish my web pages without using any codes. Just do
a "Save as Web Page", then click "Publish", and then
check "AutoRepublish every time this workbook is
saved".
When the Excel file is updated the web page
automatically
gets updated. I'm using Excel XP.

If you want to use the UsedRange feature then try
replacing Range("A1:D76") with Range
(ActiveSheet.UsedRange.Address).

Hope this helps...

Chong Moua

-----Original Message-----
I am trying to create a number of Web pages and where
the
data source range is referenced want to use
ActiveSheet.Usedrange.Copy instead of a defined range
as
I
have done in the example below, how do I do this?

Also where does it get the 21106 from as the workbook
is
called LapsedAMC's?

Your help much appreciated.

ActiveWorkbook.PublishObjects.Add(xlSourceRange , _
"H:\DBM\Dbmt670\A357XPLapsedAMC.htm", "Sheet1",
Range("A1:D76"), xlHtmlStatic, _
"LapsedAMC's_21106", "").Publish (True)
.

Works fine. Thanks
I have to import data from a foxpro table, filter out
customers for each of 450 dealers in turn, produce a
temporary worksheet and save it as a web page after
tarting it up a bit. Just hot to do the loopp now.

.