excel - How do i save as pdf via VBA -


i have code, want to:

  1. save masterfile (current active workbook),
  2. amend workbook , delete sheets,
  3. then save separate copies of edited workbook excel sheet , pdf file.

the problem have here code saves pdf file original masterfile after have tried activate edited excel file. here? appreciate advice! code below:

activeworkbook.save   sheets("inventory").select cells.select selection.copy cells.select selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _     :=false, transpose:=false application.displayalerts = false  sheets("may").select cells.select selection.copy cells.select selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _     :=false, transpose:=false  range("a1").select sheets("macro").select activewindow.selectedsheets.delete application.displayalerts = false  sheets("oct").select activewindow.selectedsheets.delete application.displayalerts = false  sheets("inventory").select range("a1").select  sheets("inventory").cells.interior.colorindex = 0  chdir "g:\9fixed\posi\2016\inventory" activeworkbook.saveas filename:= _     "g:\9fixed\posi\2016\inventory\asia fixed - " & format(date, "dd mmm") & ".xls", fileformat:= _     xlopenxmlworkbook, createbackup:=false application.displayalerts = false 'activeworkbook.exclusiveaccess application.displayalerts = true  workbooks("asia  - " & format(date, "dd mmm") & ".xls").activate activeworkbook.exportasfixedformat type:=xltypepdf, filename:= _ "g:\9fixed income\positions\2016\inventory\asia fixed income - " & format(date, "dd mmm") & ".pdf", quality:=xlqualitystandard, _ includedocproperties:=true, ignoreprintareas:=false, _ openafterpublish:=false

i not reproduce issue having.

here 'test' code, using workbook 4 sheets , information in cells(1,1), 1 sheet named "may" --- deleted, , new file not have "may" , pdf not either.

i moved saveas code towards top of file. maybe fix issue, don't believe will. 

option explicit sub savecopies()     dim c_outputdir string     dim sfilename string     dim fso object ' used handle paths, filenames, etc.     set fso = createobject("scripting.filesystemobject")     c_outputdir = "c:\temp\"     ' save master copy.     activeworkbook.save       ' generate new name file.     sfilename = fso.getbasename(activeworkbook.fullname) & "_" & format(date, "dd mmm")     ' save new working file.     activeworkbook.saveas filename:= _         c_outputdir & sfilename & ".xls", fileformat:= _         xlopenxmlworkbook, createbackup:=false      ' make changes working file.     application.displayalerts = false     activeworkbook.sheets("may").delete     application.displayalerts = true     ' save changes.     activeworkbook.save      ' save pdf of file.     activeworkbook.exportasfixedformat type:=xltypepdf, filename:= _     c_outputdir & sfilename & ".pdf", quality:=xlqualitystandard, _     includedocproperties:=true, ignoreprintareas:=false, _     openafterpublish:=false  end sub

Comments

Post a Comment

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl>
Read more

javascript - IE9 error '$'is not defined -

Image
<!--[if lte ie 9]><html class="lte9"><![endif]--><!--[if gt ie 9]><html><![endif]--> <!--[if !ie]><!--> <html> <!--<![endif]--> blah blah <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.12.1/jquery.min.js"></script> <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"></script> <script src="{{ asset('js/mypage.js') }}" type="text/javascript"></script> </body> </html> when load page, ie9 brings error '$' not defined . how can solve error? +++ mypage.js $(function(){ //when load page, //ie9 tag not moving. $(window).load(function() { $('div.mask').hide(); }); // when click , willshow show. //for not ie 9 if (!$('html').hasclass('lte9')) { var = $('ul.about > li > span.activebtn');
Read more