| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | SolidWorks Kurs mit IHK-Zertifzierung , ein Kurs (bis zu 100% förderbar mit Bildungsgutschein)
|
|
Autor
|
Thema: VBA: Objekt einfügen: Excel-Tabelle (428 mal gelesen)
|
Iwona W.
Mitglied
Konstrukteurin, SWX key-user
   Beiträge: 130
Registriert: 25.04.2005 SWX 2011, SP 4.0
Win 7 64bit; AS 32GB; Intel Xeon 3,40GHz
NVidia Quadro 4000
|
erstellt am: 27. Aug. 2007 09:53  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Gemeinde, hier ein VBA-Neuling!
Habe im Excel ein Macro erstellt, welches eine bestimmte Tabelle generiert und speichert. Nun möchte ich per SWX -Macro diese Tabelle als OLE-Objekt in eine offene Zeichnung einbetten. Bekannt ist Dateiname (bleibt immer gleich) und Pfad (wie aktives Dokument), dies alles soll im code festgelegt werden. Automatische Aufzeichnung bringt mich nur bis zum Dialog "Objekt einfügen". Danke für Eure Hilfe! ------------------
Iwona Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe
Ehrenmitglied
Beiträge: 1764
Registriert: 18.01.2001 arbeite mit:
Dell Precision 7750
i7 2,6 GHz 6 Kerne
32GB RAM
512GB SSD
NVIDIA Quadro RTX 4000
------------------------
SWX-2020 SP5.0
EPDM
----------------
Windows 10
----------------
VB.net
VB
VBA
ein wenig Swift am Mac
|
erstellt am: 27. Aug. 2007 12:50 <-- editieren / zitieren --> Unities abgeben: Nur für Iwona W. 
|
Iwona W.
Mitglied
Konstrukteurin, SWX key-user
Beiträge: 130
Registriert: 25.04.2005 SWX 2011, SP 4.0
Win 7 64bit; AS 32GB; Intel Xeon 3,40GHz
NVidia Quadro 4000
|
erstellt am: 27. Aug. 2007 13:55 <-- editieren / zitieren --> Unities abgeben:
Super! Das war schon das richtige Stichwort. Muss nur den festen Pfad ändern, damit die Tabelle aus dem gleiche Verzeichnis wie das aktive Dokument geholt wird. Sub main()
Set swApp = Application.SldWorks
Set ModelDoc2 = swApp.ActiveDoc
filename = "C:\VBA\Legende.XLS"
OLEfileEmb = False
retval = ModelDoc2.InsertObjectFromFile(filename, OLEfileEmb, 0, 0, 0) End Sub Danke!  ------------------
Iwona Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sven.P.
Mitglied
Technischer Zeichner
Beiträge: 28
Registriert: 13.06.2008 SWX 2008
SP 4.0
Grafikk. Quadro Fx1700
Grafikkarteintreiber 7.15.11.6262
Vista 32 bit
|
erstellt am: 27. Jun. 2008 08:01 <-- editieren / zitieren --> Unities abgeben: Nur für Iwona W.
Guten morgen ich hab eine Frage zu Excellisten!! Und zwar hab ich mir eine Excelliste erstellt
die ich in verschiedene Zeichnungen über Objekteinfügen einfügen möchte:
kann ich für diese Exceltabelle einen Einfügepunkt wie er z.B bei Stücklisten
vorhanden ist einfügen?
Gruß Sven
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Iwona W.
Mitglied
Konstrukteurin, SWX key-user
Beiträge: 130
Registriert: 25.04.2005 SWX 2011, SP 4.0
Win 7 64bit; AS 32GB; Intel Xeon 3,40GHz
NVidia Quadro 4000
|
erstellt am: 27. Jun. 2008 08:15 <-- editieren / zitieren --> Unities abgeben:
Hallo Sven, Beim verwenden des Befehls Einfügen -> Objekt werden die Objekte nach dem zuletzt aktiverten Punkt platziert (=da, wo man geklickt/gearbeitet hat). Per Makro kann man die Objekte relativ zum Zeichnungsblatt platzieren drawing = InDoc.InsertObjectFromFile(n, OLEfileEmb, 0, 0.2, 0) Ein Einfügepunkt für die Objekte selbst ist mir leider nicht bekannt! Der müßte wohl im Objekt selbst definiert sein. Gruß Iwona ------------------
Iwona Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sven.P.
Mitglied
Technischer Zeichner
Beiträge: 28
Registriert: 13.06.2008 SWX 2008
SP 4.0
Grafikk. Quadro Fx1700
Grafikkarteintreiber 7.15.11.6262
Vista 32 bit
|
erstellt am: 27. Jun. 2008 08:51 <-- editieren / zitieren --> Unities abgeben: Nur für Iwona W.
|
Foren auf CAD.de (alle Foren)
| 
