|
vba to save as problems
i have a macro in vba in excel to save the sw part file under the description typed in the worksheet "test" cell "c1"(see below). the description i typed in the cell"c1" is "top".
the macro is working without problems. however, when i want to open the file i got the following message:
cannot open c:\new files\top.sldprt
the system could not recognize this file
i believe is because i am using "activeworkbook" which is being used for excel files and the file i want to save as is soildworks part instead.
could you please help me with this matter.
thanks in advance.
maperalia
'**** start macro****
sub saveas()
dim wo as string
dim progname as string
dim swapp as object
dim activepart as object
wo = worksheets("test").range("c1")
progname = "c:\new files\" & wo & ".sldprt"
activeworkbook.savecopyas progname
end sub
'**** end macro****
you are attempting to save an excel file here with a sw name, you are not attempting to open or save a sw file anywhere in that example. do you have more code?
luke;
thanks for your quick response.
it is true what you mentioned. i am using i excel template; however, i am trying to use it for sw because i could not find a statement in sw to do this step.
basically, i want to save as the file (top.sldprt) located this statement:
if you are in excel the only difference is the default application object is by default referring to the excel object, not the sw object, so all you need to do to get a handle to sw is to add the following lines:
dim swapp as sldworks.sldworks
set swapp = getobject("sldworks.application")
you cannot just rename the filename in sw api easily unless you saveas, close then delete the original to effectively rename it.
i would recommend reading the api help or buying a book to help you understand the basics of sw api and programming.
luke;
thanks very much for your input. the code is running perfectly!!!!!!!!!!!
in fact, i am pretty new in this matter....i did not there is a api help in sw. i was reading the visual application help in sw instead.
i really appreciate your supporting with this matter.
kind regards.
maperalia
quick |
|