| | ![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: wie Excel Makro starten (1967 mal gelesen)
|
Frank136 Mitglied
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Frank136](/foren/ubb/pmimages/gbu.gif) Beiträge: 45 Registriert: 06.04.2009 P4 WinXP Acad2004,2005,2008 Office2003
|
erstellt am: 19. Jun. 2009 22:19 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo zusammen, ![](/foren/ubb/wink.gif) ich hab schon wieder nen Problem und find hier keine Lösung (oder bin ich einfach zu blöd um die Suche zu bedienen ![](/foren/ubb/confused.gif) ) Ich habe Daten aus einer Zeichnung in eine Excel Datei geschrieben und möchte diese Daten mittels eines Excel-Makros auswerten. 1.Frage: kann ich aus AutoCad dieses Makro starten. 2.Frage: wenn ja, wie? 3.Frage: Ich kann das Makro auch per Button in Excel starten, würde dafür gerne von AutoCad das passende Excel-Arbeitsblatt direkt angezeigt bekommen. Geht so was? Danke für Hilfe gruß Frank
------------------ Wenn das Wasser bis zum Hals steht, sollte man den Kopf nicht hängen lassen... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 19. Jun. 2009 23:09 <-- editieren / zitieren -->
Hi, wenn Du schon ein VBA in AutoCAD hast, wieso machst Du nicht auch in diesem die weitere Abhandlung der XLS-Daten? Wird jedenfalls leichter zu debuggen sein. However, ein Ansatz: a) im AutoCAD:
Code: Public Sub StartXlsMacro() Dim tXlsApp As Excel.Application On Error Resume Next Set tXlsApp = GetObject(, "Excel.Application") If tXlsApp Is Nothing Then Call MsgBox("Excel ist nicht gestartet, Abbruch") Else 'ok, Excel ist gestartet Call tXlsApp.ActiveSheet.XX 'XX ist der MacroName in XLS If Err.Number <> 0 Then Call MsgBox("Makroaufruf returnierte Fehler, Abbruch") End If End If If (Not (tXlsApp Is Nothing)) Then Set tXlsApp = Nothing End Sub
b) im XLS:
Code: Option ExplicitPublic Sub XX() MsgBox ("This was MsgBox from Excel") End Sub
Und nicht vergessen, da geht's um LateBinding, also 'Option Explizit' musst Du im AutoCAD rausnehmen, sonst musst Du viel mehr durcharbeiten (Du müsstest das VBE-Objekt durchforsten nach Projekten, diese nach Modulen, ...)
Zu Frage 3) versteh ich leider nicht Viel Erfolg, - alfred - ------------------ www.hollaus.at [Diese Nachricht wurde von a.n. am 19. Jun. 2009 editiert.] |
Frank136 Mitglied
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Frank136](/foren/ubb/pmimages/gbu.gif) Beiträge: 45 Registriert: 06.04.2009 P4 WinXP Acad2004,2005,2008 Office2003
|
erstellt am: 20. Jun. 2009 07:29 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo Alfred, Danke für die Ansätze. Ich machs mit Excel, weil da für die Berechnungen noch eine Datenbank drin hängt und bis ich die in Acad eingebunden hab, bin ich Rentner. Zu Frage 3: Ich habe Autocad offen und möchte durch anklicken eines Button (im Formular), dass das im Hintergrund schon offene Excel in den Vordergrung kommt und ich direkt den Startbutton für das Excel-Makro anklicken kann. gruß Frank ------------------ Wenn das Wasser bis zum Hals steht, sollte man den Kopf nicht hängen lassen... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1 Moderator Verm.-Ing.
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif)
![Schreiben Sie einen Gästebucheintrag für Stelli1](/foren/ubb/pmimages/gbu.gif) Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 20. Jun. 2009 11:41 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Frank136
|
Frank136 Mitglied
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Frank136](/foren/ubb/pmimages/gbu.gif) Beiträge: 45 Registriert: 06.04.2009 P4 WinXP Acad2004,2005,2008 Office2003
|
erstellt am: 21. Jun. 2009 18:04 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo, Danke für die Hilfestellungen. Habe Beides ausprobiert und es hat alles super funktioniert. gruß Frank ------------------ Wenn das Wasser bis zum Hals steht, sollte man den Kopf nicht hängen lassen... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
![](https://ww4.cad.de/books/view.php?what=zone:12591&n=s12591BB) |