|
INVENTOR VBA : Excel Problem
startrek am 09.06.2006 um 11:19 Uhr (0)
hmmm, schliess mal Excel und dann guck mal vorsichtshalber,ob da nicht noch ein-zwei Excel-Prozesse am Laufen sind.So als letzte Idee noch ...;-)lg Nancy
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Den Text in i Properties als Variable eintragen
startrek am 22.01.2005 um 15:15 Uhr (0)
Hi Kristof, gibts in der OnlineHilfe zu IV kein Beispiel zur Interaktion mit Excel? Also sowas in der Art: Code: dim excelapp as Excel.application dim xlwb as workbook set excelapp = New Excel.application set xlwb = excelapp.workbooks.open( Pfad+Filename ) with xlwb.sheets( Tabelle1 ) .cells(1,1)= ....iProperties(?).text keine Ahnung wie das heisst . usw end with Gruss Nancy
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Excel Problem
startrek am 09.06.2006 um 10:47 Uhr (0)
Dann lass mal das as new Excel.Application weg,und nimm nur:Code:Dim oExl as ObjectAchja und schalt zum testen auch mal das On Error resume next aus;-)[edit] bzw. mach nach dem Get/CreateObject-Test ein: On error goto 0[/edit]Gruss Nancy[Diese Nachricht wurde von startrek am 09. Jun. 2006 editiert.]
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Den Text in i Properties als Variable eintragen
startrek am 23.01.2005 um 15:19 Uhr (0)
Hi Kristof, sorrysorry, da hab ich dich total falsch verstanden ;-( Ich dachte Du willst von IV nach Excel schreiben und nicht umgekehrt ... In dem Falle brauchst Du Excel nicht zu instanzieren, startest ja daraus, aber für die Diva musste es tun. Allerdings kann ich dir da nun garnich helfen, ... isch abe gar kein Inventor ;-) Könnte vielleicht so ausschauen, keine Ahnung: Code: dim Diva as Inventor.application dim IVDoc as Document set Diva = New Inventor.application set IVDoc = Diva.Documents.open( P ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Combobox Liste aus Excel
startrek am 28.11.2011 um 21:56 Uhr (0)
Hi Christian,und welcome auf cad.de Zu deinem Anliegen:hier mal ein ungetester Code als Grundgerüst,der hat aber Nullkommanix mit Inventor zu tun, weil isch abe gar kein Inventür;-)Code:Sub grundgeruest() Dim xlApp As Object, xlWB As Object, i& On Error Resume Next Set xlApp = GetObject(, "Excel.Application") If Not xlApp Is Nothing Then Set xlWB = GetObject("e:Mappe1.XLS") If xlWB Is Nothing Then xlApp.workbooks.Open ("e:Mappe1.XLS") End If Else Set xlApp = CreateObject("Excel.Application ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Fenster immer im Vordergrund
startrek am 14.02.2005 um 13:02 Uhr (0)
Mit AppActivate aktivierst Du die gesamte Mutteranwendung , in dem Falle den IV, da die UF ein Element von Inventor ist. Das heisst Du müsstest es umgekehrt machen, die UF unter Excel einbinden und von der XL-Userform aus mit der Diva kontaktieren, oder zwei Userforms, eine IV und eine XL, oder so, ansonsten no Idea ... Gruss Nancy
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Excel Problem
startrek am 09.06.2006 um 10:32 Uhr (0)
Moin Rene,mal fix auf die Schnelle eine Sache die mir auffiel:oExl.Workbooks.Open "x:xxx.xls"!!!oExl.ActiveWorkbook.Sheets("Tabelle1").Select!!!oExl.ActiveSheet.Cells(2, 2).Value = breite_anliegend(z)!!!oExl.ActiveWorkbook.Close SaveChanges:=Trueoder:Code:with oExl.activeworkbook .Sheets("Tabelle1").cells(2,2)= breite_anliegend(z) .close 1end withGruss Nancy
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : mehrdimensionales Datenfeld
startrek am 09.06.2005 um 14:36 Uhr (0)
Schreib ich mir halt selber was ;-) vielleicht ne kleine Spielerei am Rande? Klassischerweise brauch ich hier ein zweifaches for-next um den string zu verketten. Gehts auch auf einen Hieb? ZB mit Join() Ein join() benötigt ja was eindimensionales. Mit x=array(a) erhalte ich auch als Unter-Unter-Element nen string(1 to 10). Preisfrage: Blos wie zum Geier komm ich denne da dran? Code: Sub question() Dim a$(1 To 3, 1 To 10), r%, c%, x For r = 1 To 3 For c = 1 To 10 a(r, c) = CStr(r) ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Migration INV 7 - INV 9 Makros auslesen
startrek am 10.08.2005 um 21:05 Uhr (0)
Hallo,keine Ahnung von Inventor ...;-)Aber es läuft ja wohl darauf hinaus, alle hinterlegten [Code]Module oder Codelinesin den Files zu exxen.Händisch geht das eigentlich in dem man das betreffende File offnet, in die VBA-Umgebung [Alt+F11] ???wechselt und im Projektexplorer das komplette Modul entfernt/löscht [via RMT].Dies zu automatisieren ..., ja da brauchts dann wahrscheinlich wieder ein Makro;-)Also eine Art Selbstmordanschlagmakro, was erst alle Codes löscht und dannach sich selber oder so.Weiss nic ...
|
| In das Form INVENTOR VBA wechseln |
