Hallo
ik heb van iemand een calculatieprogramma gekregen waarmee cellen uitgerekend kunnen worden.
als alles ingevoerd is moet ie dan met een knop naar autocad gaan en tekenen wat er in excel is ingevoerd.
nu krijg ik als ik op die knop druk "foutcode 53" bij foutopsporing:
Sheets("draw").Select
If ActiveWorkbook.FileFormat <> xlCSV Then
s = StartPad + "\drawing\readxls.exe " + TempPad + "\draw.csv -deletefile "
RetVal = Shell(s, 1) ' Run Calculator. ((dit deel wordt geel gekleurd??))
s = TempPad + "\draw.csv"
ActiveWorkbook.SaveAs Filename:=s, FileFormat:= _
xlCSV, CreateBackup:=False
End If
Hoe krijg ik deze foutcode goed?
Heb autocad 2006
s = StartPad + "\drawing\readxls.exe " + TempPad + "\draw.csv -deletefile "
RetVal = Shell(s, 1) ' Run Calculator. ((dit deel wordt geel gekleurd??))
s = TempPad + "\draw.csv"
ActiveWorkbook.SaveAs Filename:=s, FileFormat:= xlCSV, CreateBackup:=False
End If
Het zit 'm hier in 't pad denk ik, in de variant "s"
i.p.v.:
s = StartPad + "\drawing\readxls.exe " + TempPad + "\draw.csv -deletefile "
zou je dit eens kunnen proberen:
s = StartPad & "\drawing\readxls.exe " & TempPad & "\draw.csv -deletefile "
Met een "+"teken telt vb het erbij
Met een "&"teken voegt vb het toe.
Ik heb net even gegoogled en error 53 geeft aan dat hij een file niet kan vinden. Dus kijk eens of je readxls.exe wel hebt of dat draw.csv wel bestaat. Ik denk dat dat de boosdoeners zijn.
greetz
stephan