---

Hallo VBA-Forum,

benötige eure Unterstützung.
Ich will in Inventor Baugruppen (IAM) aus einem bestimmten Verzeichnis öffnen, speichern und im Anschluss wieder schließen.

Habt ihr vielleicht eine Idee und könnt mir dabei helfen.

Danke und Gruß
Verena

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

---

Alle .iam aus dem Verzeichnis? Unterverzeichnisse? Ist das Verzeichnis immer das Gleiche?

------------------
MFG

Chris

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

---

Hallo Chris,

die IAMŽs liegen alle in einem Verzeichnis ohne Unterverzeichnisse.

Gruß Verena

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

---

Wie kommst du an das Verzeichnis? Ist das immer ein anderes?

------------------
MFG

Chris

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

---

Code:

---

          
Private Sub OpenSaveClose()

        Dim Pfad as String
        Pfad = InputBox("Bitte Pfad angeben")

        Dim oDoc as Document
        Dim FSO As Object
        Dim fld As Object
        Dim fl As Object
        Dim Mask As String
        FSO = CreateObject("scripting.FileSystemObject")
        fld = FSO.GetFolder(Pfad)
        Mask = "*.iam"
     
        For Each fl In fld.Files
            If fl.Name Like Mask Then

              set oDoc =ThisApplication.Documents.Open(fl.Path,true)
              Call oDoc.save2
              Call oDoc.close
            End If
        Next
    End Sub

---

------------------
MFG

Chris

[Diese Nachricht wurde von Chris 31 am 27. Apr. 2015 editiert.]

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

---

Hallo Chris,

Danke schon mal für den Programm Code.
Das Verzeichnis könnte sich ändern, aber ist ja dem Programm möglich.
Habe das Programm gestartet, Verzeichnis eingetragen.
Dann kam leider eine Debugmeldung in dieser Zeile:

FSO = CreateObject("scripting.FileSystemObject")

Muss das Verzeichnis in einer bestimmten Form geschrieben werden?
Habe diese Variante gewählt:
C:\Arbeit\

Indem Verzeichnis liegen dann die IAMŽs.

Viele Grüße
Verena

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

---

Hallo

Dir fehlt vermutlich der Verweis aus die Microsoft Scripting Runtime. Schau mal unter Extras --> Verweise im VBA-Editor.
Btw. Wozu ist dieses Öffnen, Speichern, Schließen gedacht? Inventor speichert nur wenn er eine Änderung an der Datei feststellt.

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

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

---

fehlt nicht ein "Set" in dem Vorschlag von Chris? (was dann zu dem Fehler führt, wie Verena schreibt)

Code:

---

...
set FSO = CreateObject("scripting.FileSystemObject")
...

---

Gruß
KraBBy

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

---

Zitat:

---

Original erstellt von KraBBy:
fehlt nicht ein "Set" in dem Vorschlag von Chris? (was dann zu dem Fehler führt, wie Verena schreibt)

Code:

---

...
set FSO = CreateObject("scripting.FileSystemObject")
...

---

Gruß
KraBBy

---

Hallo,

ich bin über die Suche auf diesen Beitrag gekommen.

Ich suche ebenfalls einen Code, bei dem die Dateien eines bestimmten Typs eines Verzeichnisses ausgelesen werden. Danach möchte ich für jede einzelne Datei eine bestimmte Aktion ausführen.

Leider bekomme ich ebenfalls die o.g. Fehlermeldungen. Hat jemand eine Lösung für das Problem gefunden?

Ich vewende nun den Code von hier.

Gruß
SKYSURFER

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

---

Zitat:

---

Original erstellt von rkauskh:
Hallo

Dir fehlt vermutlich der Verweis auf die Microsoft Scripting Runtime. Schau mal unter Extras --> Verweise im VBA-Editor.
BTW. Wozu ist dieses Öffnen, Speichern, Schließen gedacht? Inventor speichert nur wenn er eine Änderung an der Datei feststellt.

---

Hast du den Rat von Ralf denn schon befolgt?

------------------
MFG

Chris

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

---

Zitat:

---

Original erstellt von Chris 31:

Hast du den Rat von Ralf denn schon befolgt?

---

Ja, den Haken habe ich gesetzt. Ändert aber leider nichts.
Mit dem anderen Code klappt es nun wie gewünscht.

Gruß
SKYSURFER

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

---

Und was hast du nun geändert, dass es klappt?

------------------
MFG

Chris

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