Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Stücklistenexxport nach Excel

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Stücklistenexxport nach Excel (910 mal gelesen)
Rodario7
Mitglied
Maschinenbautechniker


Sehen Sie sich das Profil von Rodario7 an!   Senden Sie eine Private Message an Rodario7  Schreiben Sie einen Gästebucheintrag für Rodario7

Beiträge: 85
Registriert: 08.02.2013

Windows 7 64bit
Inventor 2013
Visual Basic 2010 Express

erstellt am: 26. Dez. 2015 13:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,
hat eig. schon jemand den Stücklisten export von Vba nach vb.net
umgeschrieben?
Ich bräuchte da ne Anschubshilfe wenn es sowas schon gibt

------------------
Gruß
Klaus

erledigt

[Diese Nachricht wurde von Rodario7 am 10. Jan. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Fiedel93felix
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Fiedel93felix an!   Senden Sie eine Private Message an Fiedel93felix  Schreiben Sie einen Gästebucheintrag für Fiedel93felix

Beiträge: 448
Registriert: 19.02.2014

Autodesk Inventor 2014
Microsoft Visual Basic 2010

erstellt am: 20. Apr. 2016 14:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rodario7 10 Unities + Antwort hilfreich

Hallo was meinst du mit Stücklistenexport?
Bzw. was möchtest du für Daten in excel haben?

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Martin_0103
Mitglied



Sehen Sie sich das Profil von Martin_0103 an!   Senden Sie eine Private Message an Martin_0103  Schreiben Sie einen Gästebucheintrag für Martin_0103

Beiträge: 181
Registriert: 05.02.2003

3,4 GHz - Quadro 4000 - 12 GB RAM - WIN7 - IV2010 SP3

erstellt am: 22. Apr. 2016 11:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rodario7 10 Unities + Antwort hilfreich

Hallo Klaus,
wir schreiben die Stückliste in eine Text-Datei.
Gruß Martin

Code:

Sub Stücklisten_Export_LN()
Dim oapp As Inventor.Application
Set oapp = ThisApplication
If oapp.ActiveDocument.DocumentType <> kDrawingDocumentObject Then
MsgBox "Funktion ist nur in Zeichnungen zulässig"
Exit Sub
End If

Dim oDrawDoc As Inventor.DrawingDocument
Set oDrawDoc = oapp.ActiveDocument

Dim sAuthor, sPath, sFilename, sTXTFileName As String
Dim oPropSet As PropertySet
Dim iProp As Property

'Pfad anpassen
sPath = "u:\XXX\XXX\"

If oDrawDoc.ActiveSheet.PartsLists.Count = 0 Then
    MsgBox "Keine Stückliste vorhanden!", vbCritical + vbOKOnly, "Stückliste fehlt"
    Exit Sub
ElseIf oDrawDoc.ActiveSheet.PartsLists.Count > 1 Then
    MsgBox "Es sind mehrere Stücklisten vorhanden!" & vbCrLf & "Es wird die erste Stückliste verwendet!", vbOKOnly + vbInformation, "Mehrere Stücklisten"
End If

Dim oPartslist As PartsList
Set oPartslist = oDrawDoc.ActiveSheet.PartsLists.Item(1)

Dim oRefedDoc As Document
Set oRefedDoc = oPartslist.ReferencedDocumentDescriptor.ReferencedDocument

sAuthor = oRefedDoc.PropertySets(1)("Author").Value

If sAuthor = "" Then
    MsgBox "iProp Author in Datei " & vbclf & oRefedDoc.FullDocumentName & vbCrLf & " ist leer. Abbruch", vbCritical, "leeres iProp"
    Exit Sub
End If

sFilename = sAuthor & ".txt"
sTXTFileName = sPath & sFilename

Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FolderExists(sPath) Then MkDir sPath


Call oDrawDoc.ActiveSheet.PartsLists.Item(1).Export(sTXTFileName, kTextFileTabDelimited)

If Err.Number = 0 Then
    MsgBox "Die Exportdatei der Stückliste wurde im Verzeichnis U:\XXX\XXX\ gespeichert"
    Else
    MsgBox "Fehler: " & Err.Description
    End If

End Sub


Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Canadabear
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Canadabear an!   Senden Sie eine Private Message an Canadabear  Schreiben Sie einen Gästebucheintrag für Canadabear

Beiträge: 919
Registriert: 30.06.2010

erstellt am: 23. Apr. 2016 00:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Rodario7 10 Unities + Antwort hilfreich

Hallo,

ich habe ein Programm in VB.Net geschieben welches die komplette Teilestruktur einer Baugrupper ausliest und in eine Excel-Datei schreibt.
Es wird dann in diverse Listen umgewandelt wie: struktuierte Liste, Bauteilliste, Baugruppenliste usw.

wenn du nach interesse hast kann ich dir mal das Programm zusenden und unter Umst5aenden auch den Quellcode.

Gruss
Ray

------------------
Barbarus hic ego sum, quia non intellegor ulli!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz