Lisp en excel probleem

[Rudy]

Het is een tijdje geleden dat ik met autocad bezig ben geweest.
Bij mijn oude wekgever werkte ik met autocad 2008 en office 2003 onder windows xp 32bit.
Al lisproutines en VBA toepassingen werkten perfect.
Nu bij mijn nieuwe werkgever werk ik met autocad 2011 en office 2007 onder windows 7 64bit.
Ik ondervind dat sommige lisproutines en andere toepassingen niet meer werken.
De routines zijn geschreven door een ex-collega, ikzelf ben maar een gebruiker.
Een van de foutmeldigen die ik tegenkom is de volgende:
Command: zmiv
Opening Excel Spreadsheet file...; error: no function definition: MSXL-GET-ACTIVESHEET
Weet iemand hier hoe dit op te lossen is ?
Eventueel stuur ik de ganse routine eens door.

[HofCAD]

Beste Rudy,

Omdat je met een andere Office versie werkt wordt geen type library gevonden.
Kijk welk bestand bij (vlax-import-type-library gebruikt word.

Met vriendelijke groet, HofCAD CSI.

PS http://www.cadsite.be/smf/index.php?topic=2867.msg14691#msg14691

[Rudy]

Beste Rudy,

Omdat je met een andere Office versie werkt wordt geen type library gevonden.
Kijk welk bestand bij (vlax-import-type-library gebruikt word.

Met vriendelijke groet, HofCAD CSI.

PS http://www.cadsite.be/smf/index.php?topic=2867.msg14691#msg14691

Sorry HofCAD, maar ik raak er niet uit, zoals eerder gezegd ben ik gebruiker.
Mag ik je de routines opsturen?

Met vriendelijke groeten


Rudy

[HofCAD]

Beste Rudy,

Je kan o.a. de routines als attachment op dit forum plaatsen.
Graag daarbij de vermelding in welke map Excel.exe zit bijv.:
C:\Program Files\Microsoft Office\Office12\Excel.exe

Met vriendelijke groet, HofCAD CSI.

[Rudy]

Beste HofCAD,

De map waarin Excel.exe zich bevind is de volgende:
C:\Program Files (x86)\Microsoft Office\Office12
Ik heb de  routines en al het nodige bijgevoegd in het .rar-bestand.
Indien je nog verdere vragen hebt hoor ik het wel.
In ieder geval al bedankt voor de hulp.

Met vriendelijke groeten,

Rudy

[HofCAD]

Beste Rudy,

Heeft iemand zitten prutsen aan het bestand zmiv.lsp,
want de code 

Code Selecteer Uitklappen


(defun TypeLib-Excel (/ sysdrv tlb)
  (setq sysdrv (getenv "systemdrive"))
  (cond
    ((setq tlb (findfile (strcat sysdrv "\\C:\Program Files (x86)\\Microsoft Office\\Office\\Excel8.olb")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\C:\Program Files (x86)\\Microsoft Office\\Office\\Excel9.olb")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\C:\Program Files (x86)\\Microsoft Office\\Office\\Excel10.olb")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\C:\Program Files (x86)\\Microsoft Office\\Office\\Excel.exe")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\C:\Program Files (x86)\\Microsoft Office\\Office10\\Excel.exe")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\C:\Program Files (x86)\\Microsoft Office\\Office11\\Excel.exe")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\C:\Program Files (x86)\\Microsoft Office\\Office12\\Excel.exe")))
     tlb)
    )
  )
moet zijn:

Code Selecteer Uitklappen

  (defun TypeLib-Excel (/ sysdrv tlb)
  (setq sysdrv (getenv "systemdrive"))
  (cond
    ((setq tlb (findfile (strcat sysdrv "\\Program Files (x86)\\Microsoft Office\\Office\\Excel8.olb")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\Program Files (x86)\\Microsoft Office\\Office\\Excel9.olb")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\Program Files (x86)\\Microsoft Office\\Office\\Excel10.olb")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\Program Files (x86)\\Microsoft Office\\Office\\Excel.exe")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\Program Files (x86)\\Microsoft Office\\Office10\\Excel.exe")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\Program Files (x86)\\Microsoft Office\\Office11\\Excel.exe")))
     tlb)
    ((setq tlb (findfile (strcat sysdrv "\\Program Files (x86)\\Microsoft Office\\Office12\\Excel.exe")))
     tlb)
   )
  )
Kun je de nieuwe zmiv.lsp even uitproberen, ik krijg namelijk nu geen foutmelding meer.

Met vriendelijke groet, HofCAD CSI.

[Rudy]

Beste HofCAD,

Dank U! Het werkt!
Ik had inderdaad al zitten prutsen en heb gewoon het ganse pad gekopieerd en de driveletter vergeten te verwijderen.
Maar zoals al gezegd ik ben maar een gebruiker maar wou toch proberen een oplossing te vinden.
Wie niets doet, niets misdoet hé.
In elk geval nogmaals bedankt.
Ik hoop in de toekomst nog op je hulp te kunnen rekenen want ik denk dat ik nog zo enkele probleempjes zal ondervinden.

Met vriendelijke groeten,

Rudy