yoin

Mikeyy23

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

EddyBeerke

#1
    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.
Civil3d 2026, Blender 4.x gebruiker
Gebruiker sinds AutoCAD R12

http://eddylucas.c1.biz/
https://www.google.com/maps/contrib/109381066561676463628/photos/

sschevers

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