---

Hallo,

ich bräuchte dringend Hilfe!

Mein VBA Skript für Inventor soll, dank einer EXCEL Tabelle, bestimmte Artikel aus einem Verzeichnis öffnen, ausrichten und als JPG abspeichern.
Vlt weiß einer Rat und kann mir den Befehl in das VBA Skript schreiben  

Vielen Dank!!! 

Lg
Starbuzz

[Diese Nachricht wurde von Starbuzz am 13. Apr. 2015 editiert.]

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

---

Die Namen der Artikel sollen aus der Exceltabelle kommen?

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

Chris

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

---

Yep. Aus einer EXCEL Tabelle oder einer einfacher txt. Datei

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

---

Könnte man so machen:

Code:

---

Sub Excel()

Dim Exapp As Excel.Application
Set Exapp = GetObject(, "Excel.Application")
Dim oWorkbook As Excel.workbook
Set oWorkbook = Exapp.ActiveWorkbook
Dim Zeile As Integer
Zeile = 1 'Startzeile
Dim Spalte As Integer
Spalte = 1
Dim sFilename As String
sFilename = "Start"

Do

With oWorkbook.ActiveSheet
sFilename = .Cells(Zeile, Spalte).Value  'Zeile und Spalte durch deine ersetzen
Zeile = Zeile + 1
End With

If sFilename <> "" Then
Call iam2jpg(sFilename)
End If

Loop While sFilename <> ""

End Sub

Sub iam2jpg(ByVal sFilename As String)

---

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

Chris

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

---

Vielen Dank für die Hilfe.

Weiß aber einer noch den Befehl,um Dateien aus einem Netzwerkpfad zu öffnen? Dann wäre das Skript soweit fertig.

Liebe Grüße

Starbuzz

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

---

Ist doch der gleiche Befehl, wie wenn du von lokal öffnest.

Code:

---

Dim Path as String
Path = "G:HIER DER PFAD\UND DIE DATEI.IRGENDWAS"

---

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

Chris

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

---

Leider eben nicht.

Ich kann aus dem Netzwerkpfad die Dateien manuell öffnen, oder auch von Inventor aus. Aber das VBA will einfach nicht die Dateien aus dem Pfad nehmen.
Woran kann das liegen?

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

---

Welche Fehlermeldung kommt denn, wenn du versuchst die Datei aus dem Netzwerkpfad über VBA zu öffnen?

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

Chris

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

---

Die Datenbank in XXXX\XXX\X\X.iam konnte nicht geöffnet werden.
Manuell oder das Öffnen von Inventor aus klappt ohne Probleme.

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

---

Das ist aber komisch.
Kannst du eventuell mal einen screenshot geben von der Fehlermeldung?
Ich gehe sonst nämlich genau so vor, wie ich dir geschrieben habe.
Der Netzwerkpfad wird genauso behandelt, wie der lokale Pfad.

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

Chris

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

---

Zitat:

---

Original erstellt von Starbuzz:
Leider eben nicht.

Ich kann aus dem Netzwerkpfad die Dateien manuell öffnen, oder auch von Inventor aus. Aber das VBA will einfach nicht die Dateien aus dem Pfad nehmen.
Woran kann das liegen?

---

...UNC-Pfad??? Lies mal das hier bzw. such im WWW nach 'VB6 UNC Pfad ermitteln':
http://classic.vb-faq.de/knowlib/uncpaths/

HTH

------------------
Grüsse, Paul

Inventor-Programmierung
Online 3D-Ersatzteilkataloge - CAD Toolkit released...
Kostenmanagement mittels NLPP Analyse

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