【转帖】excel vba usage of opendoc6

yang686526

excel vba usage of opendoc6
i am having trouble with usage of opendoc6 in excel vba.
here is my code:
*************start code***************
sub test_open_llwb()
dim swapp as object
dim part as object
dim selmgr as object
dim boolstatus as boolean
dim partpath as string
dim partfilename as string
dim partfullpath as string
dim longstatus as long, longwarnings as long
dim feature as object
'this syntax doesn't work with my solidworks api
'set swapp = application.sldworks
'this does however
set swapp = createobject("sldworks.application")
partpath = range("folder_geometry").value
partfilename = "l-lwb"
partfullpath = partpath & partfilename & ".sldprt"
set part = swapp.opendoc6(partfullpath, 1, 0, "", longstatus, longwarnings)
swapp.opendoc6 "c:\...\partfiles\l-lwb.sldprt", 1, 0, "", longstatus, longwarnings
set part = swapp.activatedoc2(partfilename, false, longstatus)
swapp.activedoc.activeview.frameleft = 0
swapp.activedoc.activeview.frametop = 0
swapp.activedoc.activeview.framestate = 1
swapp.activedoc.activeview.framestate = 1
part.extension.insertscene "\scenes\02 studio scenes\66 light cards.p2s"
set part = nothing
swapp.closedoc "l-lwb"
end sub
************end code*************
this code runs, but instead of a path hardcoded as in the bold text above:
"c:\...\partfiles\l-lwb.sldprt"
i want to just have the generic variable:
partfullpath
so it works with the "set" line, but not when it tries to actually open the document. any ideas?
eric,
try checking the value of longstatus and longwarnings.
are you sure the path is correct and not missing a "\" for example? try to add a "debug.print partfullpath" to the code to actually verify that the path is correct.
jorn bjarning
cswp
cad & plm consultant
sw2008 sp5 / sw2009 sp2
originally posted by: jorn bjarning
eric,
try checking the value of longstatus and longwarnings.
are you sure the path is correct and not missing a "\" for example? try to add a "debug.print partfullpath" to the code to actually verify that the path is correct.
argh! yes, in my creation of the generic variable partfullpath i neglected to add the "\". the silly thing is that during my proofing, i had a messagebox pop up to show me what file was opening and i didn't even notice that it was missing.
thanks jorn!
eric,
you are welcome!
jorn bjarning
cswp
cad & plm consultant
sw2008 sp5 / sw2009 sp2
quick