Palo235
27.07.10,12:44
Ahojte poradaci
Po dlhom case zas potrebujem poradit. Urobil som si take male makro na spracovanie SPSS tabuliek do xls ale problem je v tom ze si to neviem savnut v tom path-u kde sa nachadza SPSS subor
skusal som to takto:
objExcelApp.ActiveWorkbook.SaveAs Filename:= objSpssApp.GetDesignatedOutputDoc.path & "\output.xls"
nefunguje
vedel by niekdo poradit ako to spravit???
prikladam scrypt pre lepsie porozumenie
Po dlhom case zas potrebujem poradit. Urobil som si take male makro na spracovanie SPSS tabuliek do xls ale problem je v tom ze si to neviem savnut v tom path-u kde sa nachadza SPSS subor
skusal som to takto:
objExcelApp.ActiveWorkbook.SaveAs Filename:= objSpssApp.GetDesignatedOutputDoc.path & "\output.xls"
nefunguje
vedel by niekdo poradit ako to spravit???
prikladam scrypt pre lepsie porozumenie
Palo235
29.07.10,10:34
Tak kolega to vyriesil za mna. Len pre info keby to niekoho zaujimalo:
strFilePath = objSpssApp.Documents.GetDataDoc(0).GetDocumentPath
intLomitko = InStrRev(strFilePath, "\")
strOutputPath = Left(strFilepath, intLomitko - 1)
objExcelApp.ActiveWorkbook.SaveAs Filename:= strOutputPath & "\Output.xls"
strFilePath = objSpssApp.Documents.GetDataDoc(0).GetDocumentPath
intLomitko = InStrRev(strFilePath, "\")
strOutputPath = Left(strFilepath, intLomitko - 1)
objExcelApp.ActiveWorkbook.SaveAs Filename:= strOutputPath & "\Output.xls"