---

Hallo zusammen,
ich habe folgendes Anliegen.
Ich habe ein funktionierendes Programm geschrieben um eine Teileliste nach Excel zu exportieren.(nat. mit sehr viel Vorgaben aus diesem Forum).
Ich habe aber meine Teileliste immer auf Blatt 2 liegen, welches nicht gezählt un gedruckt wird.

Kann ich die Teileliste für das Programm temporär auf Blatt 1 kopieren und dann wieder löschen?
Wenn ja wie?^^
Ich möchte mein Programm von Blatt 1 aus starten.

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

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

---

Hallo

Dann schau dir doch mal die CopyTo-Methode der PartsList an.

Code:

---

Private Sub PartsListCopy()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oPartsList As PartsList
Set oPartsList = oDrawDoc.Sheets.Item(2).PartsLists.Item(1)

Call oPartsList.CopyTo(oDrawDoc.Sheets.Item(1))

End Sub

---

------------------
MfG
Ralf

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

---

Hallo Ralf,
Danke für die schnelle Antwort.
Das mit dem reinkopieren klappt super.
Was unschön ist, die Stückliste wird während des Vorgangs mitten auf die Zeichenfläche abgesetzt.
Kann man sie außerhalb platzieren?
Und wie lösche ich sie wieder?

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

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

---

Hallo

Die Teileliste wird exakt an den Koordinaten der Originalteileliste eingefügt. Du mußt sie anschließend selbst verschieben.

Code:

---

Private Sub PartsListCopy()

Dim oPartsList As PartsList
Set oPartsList = ThisApplication.ActiveDocument.Sheets.Item(2).PartsLists.Item(1).CopyTo(ThisApplication.ActiveDocument.Sheets.Item(1))

Dim oPoint As Point2d
Set oPoint = ThisApplication.TransientGeometry.CreatePoint2d(0, 0)

oPartsList.Position = oPoint

'hier den Export durchführen

Call oPartsList.Delete

End Sub

---

------------------
MfG
Ralf

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

---

Hallo Ralf,
das mit dem einfügen an 0,0 klappt super.
Nur der Lösch-Befehl haut mir falsche Stückliste weg, also die aus Blatt2.
Haste da ne Idee?

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

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

---

Hallo

Nö, bei mir löscht er die auf Blatt 1 wieder. 
Setzt du im Export oPartsList neu?

------------------
MfG
Ralf

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

---

Hallo
Habs so gelöst:
Call oPartsList.CopyTo(odoc.Sheets.Item(1))
Dim oPartslist2 As PartsList
Set oPartslist2 = odoc.Sheets.Item(1).PartsLists.Item(1)
Call oPartslist2.Delete

nu funzt es
Danke dir

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

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