---

Hallo zusammen,

ich habe mir ein Macro mit Hilfe der Foreneinträge erstellt, das mir eine Stückliste von der .idw als .xls extrahiert und auf einem von mir vordefinierten Pfad abspeichert.

Nun versuche ich schon seit Stunden es hin zu bekommen, dass er den Dateipfad der .idw ausliest und die .xls-Datei am selben Pfad abspeichert. Aber ich bekomme es leider nicht hin. Bin leider auch kein Programmierer.

Ich hoffe mir kann irgendwer hier helfen.

Gruß Chris

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

---

Hallo

Code:

---

strFile=ActiveDocument.FullDocumentName

---

liefert dir den vollen Pfad deiner IDW. Mit

Code:

---

strFile = Left(strFile, Len(strFile) - InStr(strFile, ".") - 2) & xls

---

sollte der Pfad samt Name der IDW und Endung xls entstehen.

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

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

---

Hallo Ralf,

Zitat:

---

Original erstellt von rkauskh:

Code:

---

strFile=ActiveDocument.FullDocumentName

---

[/B]

---

Gibt mir leider immer nur eine Fehlermeldung : Fehler 424 object required  muss ich dazu irgendwas beachten, wenn ich den einbaue?

Gruß Chris

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

---

Moin

Dann mach daraus:

Code:

---

strFile=ThisApplication.ActiveDocument.FullDocumentName

---

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

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

---

Oh, danke...

Jetzt funktioniert das abrufen des vollständigen Pfades und Dateinamen. Aber beim Speichern sagt er der Pfad wäre nicht verfügbar, weil er ihn in der Mitte abbricht.

so sollte der Pfad eigentlich aussehen:  G:\_PRM\001\13\A 13-32714\08 Planunterlagen-Terminpläne\8.2-Inventor\NEU\Decke\Decke EG.idw
so sieht er beim Speichern aus: G:\_PRM\001\13\A 13-32714\08 P
Hat das was mit der Zeichenbegrenzung zu tun?

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

---

Versuch das noch so mache ich es bei mir ist aber das gleiche was du bezwecken willst

Ersetze Dateiname_mit_Pfad durch strFile da du das ja schon hast

Code:

---

                        Länge_Dateiname_mit_Pfad = Len(Dateiname_mit_Pfad)
                        Dim endung As Integer
                        'Endung = 0 'mit .ipt usw.
                        endung = 4 ' ohne .ipt usw
                        Name_Pfad = Mid(Dateiname_mit_Pfad, 1, Länge_Dateiname_mit_Pfad - 4)
                        Länge_String = Len(Name_Pfad)
                       
                        Dim i As Integer
                        i = 1
                        Do Until Mid(Name_Pfad, Länge_String - i, 1) = "\"
                          i = i + 1
                        Loop
                        'MsgBox i 'Anzahl der Buchstaben vom Dateinamen
                        Dateiname = Right(Name_Pfad, i)
                        Name_Pfad = Mid(Dateiname_mit_Pfad, 1, Länge_Dateiname_mit_Pfad - i - endung)

---

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

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

---

Stucklistenexport.txt

Hallo Philipp,

zuerst mal Grüße nach Wien von kurz hinter der Grenze zu Österreich.  

Leider funktioniert es nicht wie gewünscht. Er gibt zwar die Fehlermeldung nicht aus, aber er speichert es auch nicht an der gewünschten Stelle. Ich kann nicht mal sagen, ob er überhaupt irgendwas speichert. Er macht zwar irgendwas, aber was genau kann ich leider nicht nachvollziehen.

Ich hänge mal den Code an, dann fällt ja vll jemandem mein Fehler auf.

Grüße aus Niederbayern

Chris

[Diese Nachricht wurde von Chris 31 am 20. Nov. 2013 editiert.]

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

---

"Er macht zwar irgendwas" Sollte nicht vorkommen.
Du bist ja der der das Programm schreibt 

Gib dir mal die Variablen aus in MsgBox en
Name_Pfad dürfte ganz interesannt sein

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

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

---

Ah, danke für den Tipp!

Der Fehler war in Name_Pfad. Der hat den Dateinamen nicht mit erfasst, sondern nur den Ordner angegeben.
Jetzt läuft das Programm durch, gibt die Fehlermeldung, dass die Datei nicht gefunden werden kann und speichert mir dann die nicht gefundene Datei im richtigen Ordner ab.

Finde zwar gerade den Grund für die Fehlermeldung nicht, aber Hauptsache das Programm funktioniert erstmal grundsätzlich. Danke schonmal dafür!

Gruß Chris

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