Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks Enterprise PDM
  VBA Datei holen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Planen, Verwalten, Kostenoptimieren: Effizienter Layoutentwurf Ihrer Industrieanlagen mit Draftsight
Autor Thema:  VBA Datei holen (1382 mal gelesen)
maweb
Mitglied



Sehen Sie sich das Profil von maweb an!   Senden Sie eine Private Message an maweb  Schreiben Sie einen Gästebucheintrag für maweb

Beiträge: 11
Registriert: 28.06.2018

SolidWorks 2014 SP5
PDM Professional 2016

erstellt am: 28. Jun. 2018 10:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

aus dem PDM habe ich mir eine Stückliste erstellt, möchte die mit einem Makro nach gewissen Kriterien durchsuchen und eine Kopie von gewissen Dateien an einem gewünschten Ordner speichern.

Das Makro funktioniert solange ich eine lokale Kopie der Datei auf meinem PC habe.

Wie muss der VBA Code aussehen um eine lokale Kopie der Dateien zu bekommen?

Ich weiß den Dateinamen und den Speicherpfad.
Außerdem habe ich schon herausgefunden, dass ich mich auf dem Tresor anmelden muss...(Ich hoffe es ist so richtig)

Vereinfacht sieht der Code so aus:

Dim Quellpfad As String
Dim Zielpfad As String
Dim Dateiname As String

Dim vaultName As String
Dim vault As EdmVault5


    vaultName = "Mein_PDM"
    Set vault = New EdmVault5
    vault.LoginAuto vaultName, 0

Zielpfad = "D:\Test\"
Dateiname = "12345.sldprt"
Quellpfad = "D:\Mein_PDM\Ordner\"

    FileCopy Quellpfad & Dateiname, Zielpfad & Dateiname

Vielen Dank schonmal in Voraus.

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

Carsten1210
Mitglied
staatl. geprüfter Holztechniker


Sehen Sie sich das Profil von Carsten1210 an!   Senden Sie eine Private Message an Carsten1210  Schreiben Sie einen Gästebucheintrag für Carsten1210

Beiträge: 1358
Registriert: 24.07.2002

AutoCAD ACA 2019
Solidworks 2019 Sp1
Enterprise PDM 2019 Sp1
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell T3620
Intel Core i7-7700K
16 GB Arbeitsspeicher
2x Samsung S24C650
Dell M4800

erstellt am: 28. Jun. 2018 12:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für maweb 10 Unities + Antwort hilfreich

Hi,

Schau mal in der EPDM Hilfe nach "GetFileCopy", damit kannst du die Dateien auf deinen Rechner holen wenn die noch nicht gecached sind.

Gruss, Carsten

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

maweb
Mitglied



Sehen Sie sich das Profil von maweb an!   Senden Sie eine Private Message an maweb  Schreiben Sie einen Gästebucheintrag für maweb

Beiträge: 11
Registriert: 28.06.2018

SolidWorks 2014 SP5
PDM Professional 2016

erstellt am: 28. Jun. 2018 13:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi,

das habe ich schon, werde aber nicht ganz schlau draus.
Bin leider nicht so fit in VBA.

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

Carsten1210
Mitglied
staatl. geprüfter Holztechniker


Sehen Sie sich das Profil von Carsten1210 an!   Senden Sie eine Private Message an Carsten1210  Schreiben Sie einen Gästebucheintrag für Carsten1210

Beiträge: 1358
Registriert: 24.07.2002

AutoCAD ACA 2019
Solidworks 2019 Sp1
Enterprise PDM 2019 Sp1
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell T3620
Intel Core i7-7700K
16 GB Arbeitsspeicher
2x Samsung S24C650
Dell M4800

erstellt am: 28. Jun. 2018 13:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für maweb 10 Unities + Antwort hilfreich

Hi,

den kompletten Pfad der Datei hast du also.

Habs nur als .Net Schnipsel hier sollte aber sicher auch in VBA gehen:

Code:
Dim folder As IEdmFolder5 'Ordner
Dim file As IEdmFile5    'Datei
Dim v As New EdmVault5    'Tresor
folder = v.GetFolderFromPath(Ordnerpfad)
file = folder.GetFile(Dateiname)
file.GetFileCopy(0, 0, folder.ID)

Gruss, Carsten

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

maweb
Mitglied



Sehen Sie sich das Profil von maweb an!   Senden Sie eine Private Message an maweb  Schreiben Sie einen Gästebucheintrag für maweb

Beiträge: 11
Registriert: 28.06.2018

SolidWorks 2014 SP5
PDM Professional 2016

erstellt am: 28. Jun. 2018 14:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hey vielen Dank!
Mit den Hinweisen und etwas Googlen hat es dann geklappt.

Komplett sieht es dann so aus:

Dim Quellpfad As String
Dim Zielpfad As String
Dim Dateiname As String
Dim vaultName As String
Dim vault As EdmVault5    'Tresor
Dim folder As IEdmFolder5 'Ordner
Dim file As IEdmFile5    'Datei


    vaultName = "Mein_PDM"
    Set vault = New EdmVault5
    vault.LoginAuto vaultName, 0

  Zielpfad = "D:\Test\"
  Dateiname = "12345.sldprt"
  Quellpfad = "D:\Mein_PDM\Ordner\"

    Set folder = vault.GetFolderFromPath(Quellpfad)
                Set file = folder.GetFile(Dateiname)
                file.GetFileCopy 0, 0, , folder.ID

    FileCopy Quellpfad & Dateiname, Zielpfad & Dateiname

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz