---

Wie ist es möglich die Stückliste zu exportieren eh wie normal RMB auf die Stückliste -> Export

Das durch VBA automatisiert?
Bzw auch das Excel Dokument Formatiert (Parameter übergibt)?

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

---

Die Fragestellung ist leider nicht ganz klar...

Exportieren kannst Du die Stückliste mit:

Code:

---

Call odoc.Sheets(1).PartsLists.Item(1).Export("C:\test.xls", kMicrosoftExcel)

---

Die anderen Fragen bitte etwas spezifizieren.

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

---

Ok habs jz nicht probier aber danke schonmal dafür.

Ich hätte gerne die .iam/.ipt Bezeichnung zb als Blattname oder irgendwo im excel stehen.
Was halt möglich ist...

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

---

Möglich ist so gut wie alles.

Wenn Du den Namen als Sheet- Namen haben möchtest, würde ich die
Datei am Ende nochmal aufrufen und den Namen der ersten Tabelle ändern...

z.B. über

Code:

---

Dim oxls As Object
Set oxls = CreateObject("Excel.Application")
'oxls.Visible = True
Dim oxlsdoc As Excel.Workbook
Set oxlsdoc = oxls.Workbooks.Open("C:\test.xls")

oxlsdoc.Sheets(1).Name = odoc.DisplayName
oxlsdoc.Save
oxlsdoc.Close
oxls.Quit

---

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

---

excel.png

Ich will jetzt nicht unverschämt rüber kommen aber kann man auch zb "Zeile einfügen" und dann bestimmen das z.B.: in A2-A5 eine Variable von der .ipt geschrieben wird?

[Diese Nachricht wurde von axi92 am 23. Sep. 2013 editiert.]

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

---

Geht auch....

Code:

---

oxlsdoc.Sheets(1).Rows(1).Insert  'Zeile einfügen

' Variablen 1-5 in der ersten Zeile eintragen
With oxlsdoc.Sheets(1)
    .Cells(1, 1).Value = "Deine 1. Variable"
    .Cells(1, 2).Value = "Deine 2. Variable"
    .Cells(1, 3).Value = "Deine 3. Variable"
    .Cells(1, 4).Value = "Deine 4. Variable"
    .Cells(1, 5).Value = "Deine 5. Variable"
End With

---

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

---

excel.png

Oh cool danke

Leider bekomme ich den Error (Siehe Bild) Bitte um Hilfe

[Diese Nachricht wurde von axi92 am 23. Sep. 2013 editiert.]

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

---

References.jpg

Im VBA- Editor unter:
Tools - References
Die Excel- Library aktiviert?

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

---

Ah ok danke das kannte ich noch gar nicht.
Eines wäre noch interessant wie kann ich dir anzahl der Positionsnummern auslesen?

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

---

Hm... Auf die Schnelle:

Code:

---

odoc.DrawingBOMs.Item(1).DrawingBOMRows.Count

---

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

---

Zitat:

---

Original erstellt von noctis79:
Hm... Auf die Schnelle:

Code:

---

odoc.DrawingBOMs.Item(1).DrawingBOMRows.Count

---

---

Super! Eine Kleinigkeit bräuchte ich noch das er nur die Sichtbaren zählt da ich manche ausgeblendet habe

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

---

Ok... Da würde ich dann anders rangehen...

Code:

---

Dim item As PartsListRow
Dim counter As Integer
counter = 0

For Each item In odoc.Sheets(1).PartsLists.item(1).PartsListRows

    If item.Visible = True Then
        counter = counter + 1
    End If

Next

---

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

---

Danke jetzt klappt der export so wie er soll 

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

---

saveas.png

Ich habe das Makro gerade aufgerufen (Excel export von Stückliste) und bekomme die Meldung:

Zitat:

---

Die SaveAs-Methode des Workbook-Objektes konnte nicht ausgewührt werden.

---

Was ist das?
Edit: google hat mir bis jetzt nicht geholfen, bzw konnte ich daraus noch nicht schlau werden.

------------------
Grüße aus Wien
Philipp

[Diese Nachricht wurde von axi92 am 17. Okt. 2013 editiert.]

[Diese Nachricht wurde von axi92 am 18. Okt. 2013 editiert.]

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

---

Hallo axi92

speicher mal die Zeichnung ab könnte daran liegen.
Eventuell IV neu starten kann auch helfen.

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

---

Tatsächlich jetzt geht es wieder danke!

------------------
Grüße aus Wien
Philipp

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