Save Excel book as Html Page Using Macro
Sub Macro1()
' ' Macro1 Macro ' Macro recorded 9/02/2006 by rulebr ' ' With ActiveWorkbook.PublishObjects("Brady Standard Quote 7.2.06_23158") .HtmlType = xlHtmlStatic .Publish (False) End With End Sub Ive recorded the following macro to save my worksheet as a html page. Ive created a button and that works fine. Is there a way I can get tricky with the name of the file it creates. Basically I would like the file name to contain a number that increments every time the macro is pressed. Id also like it to contain the date, and the company name which is from cell in the spreadsheet. eg. QuoteNo_1000_Company Name(Cell D10)_09022006.xls QuoteNo_1001_Company Name(Cell D10)_09022006.xls I guess i need to store the incrementing number somewhere in a worksheet of its own so it knows the number to call. Any help with the macro appreciated. |
All times are GMT +1. The time now is 09:05 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com