Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Benutzerdefiniterte Eigenschaften auslesen |
02.11.2019 17:41:11 |
Markus |
|
|
|
02.11.2019 17:49:49 |
Markus |
|
|
|
02.11.2019 18:12:13 |
Gast68295 |
|
|
|
02.11.2019 18:24:58 |
Markus |
|
|
|
02.11.2019 18:38:08 |
Gast36715 |
|
|
|
02.11.2019 18:56:26 |
Markus |
|
|
|
02.11.2019 19:44:39 |
Gast79608 |
|
|
|
02.11.2019 19:55:25 |
Markus |
|
|
|
02.11.2019 20:46:14 |
Gast8118 |
|
|
|
02.11.2019 20:51:33 |
Gast13261 |
|
|
|
02.11.2019 20:56:24 |
Gast75949 |
|
|
|
02.11.2019 21:03:01 |
Markus |
|
|
|
02.11.2019 21:21:51 |
Gast82059 |
|
|
|
02.11.2019 21:33:28 |
Markus |
|
|
|
02.11.2019 21:36:02 |
Gast79453 |
|
|
|
02.11.2019 21:38:16 |
Gast73429 |
|
|
|
02.11.2019 21:49:19 |
Markus |
|
|
|
02.11.2019 22:37:00 |
Gast497 |
|
|
|
02.11.2019 22:47:12 |
Markus |
|
|
|
03.11.2019 06:34:27 |
Gast80606 |
|
|
|
03.11.2019 06:44:38 |
Gast52688 |
|
|
|
03.11.2019 06:50:23 |
Gast86661 |
|
|
|
03.11.2019 09:49:36 |
Gast509 |
|
|
Von:
Markus |
Datum:
02.11.2019 17:41:11 |
Views:
864 |
Rating:
|
Antwort:
|
Thema:
VBA Benutzerdefiniterte Eigenschaften auslesen |
Hallo liebe Leser,
ich habe die Aufgabe ein VBA Skript zu schreiben, welches einen spezifischen Pfad durchläuft und alle Word Dokumente auf spezifische eigen eingefügte "Benutzerdefiniterte Eigenschaftsfelder" zu filtern und diese dann anschließend in eine Log Datei notieren und löschen.
Ich habe bereits folgenden Code zusammen geschuster, aber das läuft bei mir leider vor und hinten nicht. Vor allem habe ich ein Problem mit dem Auslesen der benutzerdefiniteren Eigenschaftsfelder. Die "normalen" Felder wie Kategorie Name Titel etc.. kriege ich ausgelesen, aber spezifische aus dem "Panel Anpassen" unten im Eigenschaften bei Word leider nicht. Dort liegt z.b eine Eigenschaft "PUNT" diese kann ich nicht auslesen.
Option Explicit
Sub main()
LoopThroughFolder "C:\tmp\", Split(".docx", ",") 'such in C:\YourFolder nach xls, xlsx oder xlsm
End Sub
Public Sub LoopThroughFolder(path As String, Filter As Variant)
Dim fso, oFolder, oSubFolder, oFile, queue As Collection
On Error Resume Next 'Falls Permission denied nächsten Folder/File nehmen (quick n dirty)
Set fso = CreateObject("Scripting.FileSystemObject")
Set queue = New Collection
queue.Add fso.GetFolder(path)
Dim counter As Integer
counter = 0
Dim feld() As Collection
Do While queue.Count > 0
Set oFolder = queue(1)
queue.Remove 1
For Each oSubFolder In oFolder.SubFolders
If oSubFolder <> vbEmpty Then queue.Add oSubFolder
Next
For Each oFile In oFolder.Files
If oFile <> vbEmpty Then
If IsInArray(fso.GetExtensionName(oFile.path), Filter) Then
'Debug.Print oFile.path & " Gefunden" 'mach was mit der Datei
'Dim AppWD As Object
'Set AppWD = CreateObject("Word.Application") 'Word als Object starten
'AppWD.Visible = False
'AppWD.Documents.Open oFile.path, ReadOnly:=False
'Set Eigenschaft = ActiveDocument.BuiltInDocumentProperties
'Debug.Print Eigenschaft.LinkToContent
'AppWD.Quit
End If
End If
Next
Loop
End Sub
Function IsInArray(str As String, arr As Variant) As Boolean
IsInArray = (UBound(Filter(arr, str)) > -1)
End Function
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Benutzerdefiniterte Eigenschaften auslesen |
02.11.2019 17:41:11 |
Markus |
|
|
|
02.11.2019 17:49:49 |
Markus |
|
|
|
02.11.2019 18:12:13 |
Gast68295 |
|
|
|
02.11.2019 18:24:58 |
Markus |
|
|
|
02.11.2019 18:38:08 |
Gast36715 |
|
|
|
02.11.2019 18:56:26 |
Markus |
|
|
|
02.11.2019 19:44:39 |
Gast79608 |
|
|
|
02.11.2019 19:55:25 |
Markus |
|
|
|
02.11.2019 20:46:14 |
Gast8118 |
|
|
|
02.11.2019 20:51:33 |
Gast13261 |
|
|
|
02.11.2019 20:56:24 |
Gast75949 |
|
|
|
02.11.2019 21:03:01 |
Markus |
|
|
|
02.11.2019 21:21:51 |
Gast82059 |
|
|
|
02.11.2019 21:33:28 |
Markus |
|
|
|
02.11.2019 21:36:02 |
Gast79453 |
|
|
|
02.11.2019 21:38:16 |
Gast73429 |
|
|
|
02.11.2019 21:49:19 |
Markus |
|
|
|
02.11.2019 22:37:00 |
Gast497 |
|
|
|
02.11.2019 22:47:12 |
Markus |
|
|
|
03.11.2019 06:34:27 |
Gast80606 |
|
|
|
03.11.2019 06:44:38 |
Gast52688 |
|
|
|
03.11.2019 06:50:23 |
Gast86661 |
|
|
|
03.11.2019 09:49:36 |
Gast509 |
|
|