|
Inventor VBA : Excel Datei in IDW einbetten
Rodario7 am 17.02.2013 um 10:34 Uhr (0)
Super, vielen Dank.mußte den Code nur auf VB.net umschreiben dann gings.Hier mal der Code dazu, wenn ihn jemand benötigt. Public Sub AddCustomTable() Dim oInventorApp As Inventor.Application oInventorApp = CType(GetObject(, "Inventor.Application"), Application) Dim oDrawDoc As DrawingDocument oDrawDoc = CType(oInventorApp.ActiveDocument, DrawingDocument) Dim oPoint As Point2d oPoint = CType(GetObject(, "Inventor.Application"), Application).TransientGeometry.CreateP ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Excel Datei in IDW einbetten
Rodario7 am 16.02.2013 um 18:08 Uhr (0)
Zitat:Original erstellt von rkauskh:HiWas meinst du mit die eingebettete Datei wird nicht mitgezogen? Fehlt sie nach dem Einchecken in der IDW? Oder wird deine originale Exceldatei nicht mit eingecheckt, was bei einer eingebetteten Datei korrekt wäre?Ja sie fehlt, habe aber herausgefunden wie ich das ändere.oref = oDoc.ReferencedOLEFileDescriptors.Add(HPfad & txtDrawingNumber.Text & DatZusatz & ".xlsx", OLEDocumentTypeEnum.kOLEDocumentLinkObject) ist der richtige CodeLeider kann ich die Excel Datei nicht a ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Excel Datei in IDW einbetten
Rodario7 am 16.02.2013 um 19:36 Uhr (0)
Hallo Ralf,Also bei eingebetteten Objekten ist es wohl richtig dass die Obj. nicht mitgezogen werden.Ich hab nu ein verlinktes Objekt drin und es geht.Zur Custom Tabelle muß ich sagen dass ich leider nicht weiß wie ich Codemäßig an sie rankomme. Noch einen Satz zu dem Doppelpost:Mir war schon ein wenig bewußt dass einige beide Foren lesen, nicht aber dass alle das tun.Nun da ich darauf hingewiesen wurde werde ich nat. nur noch in einem Forum posten.------------------GrußKlaus
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Excel Datei in IDW einbetten
Rodario7 am 16.02.2013 um 12:35 Uhr (0)
Hallo zusammen,ich habe folgendes Problem.Über mein kleines Programm fülle ich ein Excel sheet aus und füge es in meine IDW ein.Das funzt auch soweit.Im Browser erscheint auch das Register Drittanbieter, und die Datei wird auch darunter angezeigt.Leider erkennt unser Dateiverwaltungsprogramm das einbetten nicht und die Datei wird beim "einchecken" nicht mitgezogen.Wenn ich eine Steuerdatei in z.B. eine ipt einbette geht das doch auch.Was mache ich falsch?Hier mal mein diesbezüglicher Code.oref = oDoc.Refer ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Excel Datei in IDW einbetten
Rodario7 am 17.02.2013 um 11:53 Uhr (0)
Hi,das siehst du richtig.Ich hatte Anfangs eingebettet und nicht verlinkt.Da lag das Problem.Aber das Problem mit den gleichen Dateinamen wird bei mir nie auftreten, da die verlinkte Excel Datei immer die Zeichnungsnummer der aktuellen Zeichnung als Teil des Dateinamens mitbekommt.------------------GrußKlaus
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Anzahl der Teile in Teileliste
Rodario7 am 25.03.2013 um 18:03 Uhr (0)
Hm.. kriege ich net hin.Habs aber anders gelöst. Zähle nu die Zeilen in Excel.Trotzdem Danke für den Tip.Aber mal ne andere Frage :Der Stücklistenexport nach Excel .xls funktioniert einwandfrei.Wenn ich aber .xlsx auslesen will kriege ich die Datei nicht mehr geöffnet, obwohl ich auch .xlsx als Template benutze.Hat da jemand ne Erklärung für? ------------------GrußKlaus
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Anzahl der Teile in Teileliste
Rodario7 am 25.03.2013 um 19:06 Uhr (0)
Hm... hab wohl mal wieder Unklarheiten verbreitet. sy.Also ich habe hier einen Stücklisten Export den ich für mich umgeschrieben habe.Code:oFileName = oPartNumber & ".xls" & oDescription Name der Ausgabe datei (excel)"Set oOptions = ThisApplication.TransientObjects.CreateNameValueMapoXLSFileName = oPath & "" & oFileName Name und Pfad der Ausgabe datei (excel)If Dir(oXLSFileName) "" ThenDim byWert As BytebyWert = MsgBox("Stückliste ist schon vorhanden." & vbCrLf & "Überschreiben?", 1, "Stückliste existie ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Anzahl der Teile in Teileliste
Rodario7 am 25.03.2013 um 22:18 Uhr (0)
Sy beim rauspflücken aus dem Code hab ich die Zeilen vergessen.Code:oFit = FalseCall oOptions.Add("TableName", oName)Call oOptions.Add("StartingCell", oStart)Call oOptions.Add("Template", oTemplate)Call oOptions.Add("AutoFitColumnWidth", oFit)Ja ich starte Excel mit dem Code.Hab grad mal visible auf true geschaltet.Bei Endung .xls wird das Blatt wie gewünscht geöffnet, bei .xlsx wird Excel geöffnet aber keine Datei geladen.Ach so ... Fehlermeldug:Dateiformat oder Dateierweiterung ist ungültig.Übigens mit d ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Apprentice Server
Rodario7 am 20.05.2014 um 16:23 Uhr (1)
Klasse , klappt wunderbar. vielen Dank.Nu habe ich nur noch ein Problem wie spreche ich im Apprentice Server eine Datei an die Parameter an die Baugruppe übergibt.Ich hatte das schon mal im VB.net - Forum angesprochen.Hier der Linkhttp://ww3.cad.de/foren/ubb/Forum465/HTML/000357.shtml[Diese Nachricht wurde von Rodario7 am 20. Mai. 2014 editiert.]
|
| In das Form Inventor VBA wechseln |
