| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Stücklisten mit VBA exportieren (1446 mal gelesen)
|
Fan-ME10
Mitglied
DV-Adminstrator, Konstrukteur
   Beiträge: 543
Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 20. Nov. 2003 13:28  <-- editieren / zitieren -->   Unities abgeben:          
Hallo IV-VBA Programmierer, ich möchte die Stückliste nicht nur gemäß IV-Standard nach Excel sondern auch zu einer PPS exportieren, zwecks Bestellung der Zukaufteile etc., muß also in ASCII-Dateien schreiben. Wie geht das? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PaulSchuepbach
Moderator
Programmierer
   
Beiträge: 1005
Registriert: 01.10.2003
|
erstellt am: 20. Nov. 2003 14:42 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10 
Hallo ME10-Fan, wenn Du problemlos nach Excel exportieren kannst, kannst Du doch gleich in deinem VBA Makro einen Verweis auf Excel erzeugen und das (temporaere) xls dann mittels SaveAs (in Excel) nach txt exportieren. Gruesse, Paul Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fan-ME10
Mitglied
DV-Adminstrator, Konstrukteur
Beiträge: 543
Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 20. Nov. 2003 14:55 <-- editieren / zitieren --> Unities abgeben:
Hallo Paul, ich brauche eigentlich nur den Export in ASCII in besonderer, für die PPS lesbarer Form. Das ganze möchte ich mit VBA programmieren. Was mir fehlt ist der Zugriff auf die Stücklistendaten. Wie man ASCII Dateien schreibt ist mir klar. Grüsse
Wilfried Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PaulSchuepbach
Moderator
Programmierer
Beiträge: 1005
Registriert: 01.10.2003
|
erstellt am: 20. Nov. 2003 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10
Hallo Fan (wie auch immer Du heisst), versuchs mal damit - ist halt nur mal schnell zusammengenagelt:
Public Sub PartListToFile()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oPartList As PartsList
Set oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
Open "C:\Test.txt" For Output As #1
Dim i As Long
For i = 1 To oPartList.PartsListRows.Count
Dim oRow As PartsListRow
Set oRow = oPartList.PartsListRows.Item(i)
Dim j As Long
For j = 1 To oPartList.PartsListColumns.Count
Dim oCell As PartsListCell
Set oCell = oRow.Item(j)
Print #1, CStr(i); ";"; oPartList.PartsListColumns.Item(j).Title; ";"; oCell.Value
Next
Print #1,
Next
Close #1
End Sub Gruesse, Paul Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PaulSchuepbach
Moderator
Programmierer
Beiträge: 1005
Registriert: 01.10.2003
|
erstellt am: 20. Nov. 2003 15:08 <-- editieren / zitieren --> Unities abgeben: Nur für Fan-ME10
Hallo Fan (wie auch immer Du heisst), Sorry, hatte erst im Nachhinein gelesen, dass Du Wilfried heisst - Tschuldigung... nicht's fuer ungut...
Sollte nur ein kleiner Wink sein an jene, die keinen Namen angeben...
Gruesse,
Paul Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Mitarbeiter für die Arbeitsvorbereitung (m/w/d) | Die Firma abopart ist einer der führenden Hersteller von mobilen Trennwänden in Deutschland. Sie beschäftigt ca. 80 Mitarbeiter am Standort Bad Zwischenahn bei Oldenburg (Oldb.). Der Einsatzbereich von Mobilwänden ist überall dort sinnvoll, wo flexible Raumlösungen benötigt werden wie z.B. in Hotels, Gemeindehäusern, Mehrzweckhallen, Kirchen, Casinos, Industriegebäuden, Versammlungs- und Besprechungsräumen.... | | Anzeige ansehen | Fertigung, Produktion |
|
Fan-ME10
Mitglied
DV-Adminstrator, Konstrukteur
Beiträge: 543
Registriert: 21.08.2001 Erare humanum est
|
erstellt am: 20. Nov. 2003 15:19 <-- editieren / zitieren --> Unities abgeben:
Hallo Paul, funktioniert 100%ig, das ist es was ich brauche! Die Formatierung u.ä. kann ich selber programmieren. 10 Unitities sind zu Dir gegangen. Das mit meinem Namen sehe ich nicht so eng. Mit zunehmendem alter nimmt man sich nicht mehr so wichtig. Gruß
Wilfried Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
