gimli3311
Mar 02, 2015, updated at 14:00:39 (UTC)
view20716
view9
0
Goto Top

VBA Dateieigenschaften auslesen

GermansolvedQuestionVB for ApplicationsDevelopment
Guten Morgen Zusammen,

ich brauch mal wieder eure Hilfe.

Mein Vorhaben ist das ich bei allen gefundenen Excel Dateien die Dateieigenschaft Titel, Autor, Erstelldatum und Letzte Änderung herauslese und in die Vorgesehen Spalten schreibe. (C2:F2). Ich habe einen Code gefunden nur das Problem ist das er mir immer mein aktives Dokument ausließt und nicht die gefundenen. Ich weiß auch ehrlich gesagt nicht wie ich des hinbekommen soll. Gibt es die Möglichkeit die Gefundenen Dateien geschlossen zu haben und trotzdem an die Eigenschaften dran zu kommen?
Für Tipps wäre ich sehr Dankbar.

Hier ist noch mein Quellcode:

Auslesen der Datei Eigenschaften versuche ich in der Sub ReadDocumentProperties()

Option Compare Text 'benötigt für einen 'like' Vergleich  

Dim fso As Object 'Variable ganz am Anfang des Codefensters stehen lassen !  
Dim objFoundFiles As New Collection

Sub SearchForAll()
'Variablen Deklarieren  
Dim strFolderPath As String

Dim lngRow As Long, lngRet As Long, lngCounter As Long, lngBreak As Long, lngMaxData As Long
Dim f As Variant
Dim rngOut As Range

'Werte setzten  
 lngCounter = 0
 lngBreak = 50000
 
'FilesystemObject erstellen  
Set fso = CreateObject("Scripting.Filesystemobject")  
    'Sheet Output wechseln  
    Worksheets("Output").Activate  
    With ActiveSheet
        'erste Ausgabezelle in neuer .xlsx-Datei festlegen  
        Set rngOut = .Range("A2")  
        
        'Sheet ab Range-Paste vor Import gegebenenfalls bereinigen  
        If .UsedRange.Rows.Count >= rngOut.Row Then
            .Rows(rngOut.Row & ":" & .UsedRange.Rows.Count + 1).Clear  
        End If
    End With
'Headline erstellen Subaufruf  
Call headline

'Button erstellen  

'Ordner Verzeichnis auswählen  
 strFolderPath = fncBrowseForFolder

'Suche Dateien mit passenden Namen  
    enumFiles fso.GetFolder(strFolderPath), objFoundFiles
    
    ' Prüfen ob Daten gefunden wurden  
    If objFoundFiles.Count > 0 Then
        'Max Daten Wert zuordnen  
        lngMaxData = objFoundFiles.Count
        'Worksheet Tabelle auswählen  
        Worksheets("Output").Activate  
   'Für jede gefundene Datei in der Collection  
        For Each f In objFoundFiles
            strPathName = fso.GetParentFolderName(f)
            strFileName = fso.GetFileName(f)
            'Sucht nächste Freie Zeile  
            lngRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            'Gibt die Datei informationen aus  
              Cells(lngRow, 1) = strPathName
              Cells(lngRow, 2) = strFileName
            'Regelt die Zähler und Abbruchkriterien  
            lngMaxData = lngMaxData - 1
            lngCounter = lngCounter + 1
            If lngCounter >= lngBreak Then
                If MsgBox("Sollen weitere Pfade Angezeigt werden?", vbYesNo) = vbYes Then  
                    lngBreak = lngBreak + 10
                Else
                    Exit For
                End If
            ElseIf lngMaxData = 0 Then
                MsgBox "Es sind keine Daten mehr vorhanden!"  
                Exit For
            End If
        Next
     'Dateieigenschaften  
     Call ReadDocumentProperties
    End If
End Sub

'Auslesen der Datei Eigenschaften  
Sub ReadDocumentProperties()
   Dim iRow As Integer
   'Neue Tabelle erstellen  
   'Worksheets.Add before:=Worksheets(1)  
   'Zeile = 1  
   
   On Error Resume Next
   'Aktuelle Tabelle  
   With ActiveWorkbook.BuiltinDocumentProperties
      iRow = 0
      'Solange zählen bis Eigenschaften durch sind  
      For Each f In objFoundFiles
        iRow = iRow + 1
        'Ausgabe der Eigenschaften in Entsprechender Zelle  
         Cells(iRow + 1, 3).Value = .Item(1).Value
         Cells(iRow + 1, 4).Value = .Item(3).Value
         Cells(iRow + 1, 5).Value = .Item(11).Value
         Cells(iRow + 1, 6).Value = .Item(12).Value
         'Fehlermeldung falls Err.Number ungleich 0 ist  
         'If Err.Number <> 0 Then  
          '  Cells(iRow + 3, 2).Value = CVErr(xlErrNA)  
           ' Err.Clear  
         'End If  
      Next
      
   End With
   On Error GoTo 0
   Set objFoundFiles = Nothing
End Sub

Gruß Gimli3311
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 264976

Url: https://administrator.de/contentid/264976

Printed on: April 18, 2024 at 17:04 o'clock

9 Comments
Latest comment
Goto Top
Mitglied: 114757
114757 Mar 02, 2015 at 08:58:52 (UTC)
Goto Top
Wie das ohne ein File zu öffnen geht, kannst du hier nachlesen:
VB Script gesucht um Videodateien auslesen zu können.

Gruß jodel32
Member: colinardo
Solution colinardo Mar 02, 2015, updated at Oct 13, 2016 at 12:20:28 (UTC)
Goto Top
Hallo Gimli3311,
wie @114757 bereits verlinkt hat lässt sich das ohne die Files zu öffnen machen:

Hier das Beispiel für deine oben genannten Datei-Eigenschaften:
'Benötigte Objekte  
Set objShell = CreateObject("Shell.Application")  
Set fso = CreateObject("Scripting.Filesystemobject")  

'Pfad der Datei  
strFilePath = "C:\temp\demo.xlsx"  

'Eigenschaften mit Funktion auslesen und Variablen zuweisen  
strAutoren = GetFileProperty(strFilePath,20)
strTitle = GetFileProperty(strFilePath,21)
strDateModified = GetFileProperty(strFilePath,3)
strDateCreated = GetFileProperty(strFilePath,4)

' Nur zur Demo die Eigenschaften ausgeben  
MsgBox strFilePath & vbNewLine & strAutoren & vbNewLine & strTitle & vbNewLine & strDateModified & vbNewLine & strDateCreated

Function GetFileProperty(strFile,intProperty)
	Set nsFolder = objShell.NameSpace(fso.GetParentFolderName(strFile))
	Set file = nsFolder.ParseName(fso.GetFileName(strFile))
	GetFileProperty = nsFolder.GetDetailsOf(file,intProperty)
End Function
Denke damit solltest du es problemlos in dein Script integrieren können.

Die Nummern der Dateieigenschaften können sich je nach Betriebssystem unterscheiden, ich habe dir hier mal die eines Windows 7 aufgelistet:
000 - Name
001 - Größe
002 - Elementtyp
003 - Änderungsdatum
004 - Erstelldatum
005 - Letzter Zugriff
006 - Attribute
007 - Offlinestatus
008 - Offline verfügbar
009 - Erkannter Typ
010 - Besitzer
011 - Art
012 - Aufnahmedatum
013 - Mitwirkende Interpreten
014 - Album
015 - Jahr
016 - Genre
017 - Dirigenten
018 - Markierungen
019 - Bewertung
020 - Autoren
021 - Titel
022 - Thema
023 - Kategorien
024 - Kommentare
025 - Copyright
026 - Titelnummer
027 - Länge
028 - Bitrate
029 - Geschützt
030 - Kameramodell
031 - Abmessungen
032 - Kamerahersteller
033 - Firma
034 - Dateibeschreibung
035 - Programmname
036 - Dauer
037 - Ist online
038 - Periodisch wiederkehrend
039 - Ort
040 - Adressen der optionalen Teilnehmer
041 - Optionale Teilnehmer
042 - Organisatoradresse
043 - Organisatorname
044 - Erinnerungszeit
045 - Adressen der erforderlichen Teilnehmer
046 - Erforderliche Teilnehmer
047 - Ressourcen
048 - Besprechungsstatus
049 - Status frei/besetzt
050 - Gesamtgröße
051 - Kontoname
052 - Aufgabenstatus
053 - Computer
054 - Jahrestag
055 - Name des Assistenten
056 - Telefonnummer des Assistenten
057 - Geburtstag
058 - Geschäftsadresse
059 - Ort (geschäftlich)
060 - Land/Region (geschäftlich)
061 - Postfach (geschäftlich)
062 - Postleitzahl (geschäftlich)
063 - Bundesland/Kanton (geschäftlich)
064 - Straße (geschäftlich)
065 - Fax (geschäftlich)
066 - Homepage (geschäftlich)
067 - Rufnummer (geschäftlich)
068 - Rückrufnummer
069 - Autotelefon
070 - Kinder
071 - Zentrale Firmenrufnummer
072 - Abteilung
073 - E-Mail-Adresse
074 - E-Mail2
075 - E-Mail3
076 - E-Mail-Liste
077 - E-Mail-Anzeigename
078 - Speichern unter
079 - Vorname
080 - Vollständiger Name
081 - Geschlecht
082 - Gegebener Name
083 - Hobbies
084 - Privatadresse
085 - Ort (privat)
086 - Land/Region (privat)
087 - Postfach (privat)
088 - Postleitzahl (privat)
089 - Bundesland/Kanton (privat)
090 - Straße (privat)
091 - Fax (privat)
092 - Rufnummer (privat)
093 - IM-Adressen
094 - Initialen
095 - Position
096 - Bezeichnung
097 - Nachname
098 - Adresse
099 - Zweiter Vorname
100 - Mobiltelefon
101 - Spitzname
102 - Bürostandort
103 - Weitere Adresse
104 - Andere Stadt
105 - Anderes Land/Region
106 - Anderes Postfach
107 - Andere Postleitzahl
108 - Anderes Bundesland bzw. Kanton
109 - Andere Straße
110 - Pager
111 - Persönlicher Titel
112 - Stadt
113 - Land/Region
114 - Postfach
115 - Postleitzahl
116 - Bundesland/Kanton
117 - Straße
118 - Primäre E-Mail
119 - Primäre Telefonnummer
120 - Beruf
121 - Ehepartner/Partner
122 - Suffix
123 - TTY/TTD-Telefon
124 - Telex
125 - Webseite
126 - Inhaltstatus
127 - Inhaltstyp
128 - Erfassungsdatum
129 - Archivierungsdatum
130 - Vollendungsdatum
131 - Gerätekategorie
132 - Verbindung hergestellt
133 - Erkennungsmethode
134 - Anzeigename
135 - Lokaler Computer
136 - Hersteller
137 - Modell
138 - Paarweise
139 - Klassifizierung
140 - Gerätestatus
141 - Clientkennung
142 - Mitwirkende
143 - Inhalt erstellt
144 - Zuletzt gedruckt
145 - Letzte Speicherung
146 - Hauptabteilung
147 - Dokument-ID
148 - Seiten
149 - Folien
150 - Gesamtbearbeitungszeit
151 - Wortanzahl
152 - Fällig am
153 - Enddatum
154 - Dateianzahl
155 - Dateiname
156 - Dateiversion
157 - Kennzeichnungsfarbe
158 - Kennzeichnungsstatus
159 - Freier Speicherplatz
160 - Bittiefe
161 - Horizontale Auflösung
162 - Breite
163 - Vertikale Auflösung
164 - Höhe
165 - Wichtigkeit
166 - Anlage?
167 - Ist gelöscht
168 - Verschlüsselungsstatus
169 - Kennzeichnung vorhanden
170 - Wurde beendet
171 - Unvollständig
172 - Lesestatus
173 - Freigegeben
174 - Ersteller
175 - Datum
176 - Ordnername
177 - Ordnerpfad
178 - Ordner
179 - Teilnehmer
180 - Pfad
181 - Nach Ort
182 - Typ
183 - Kontaktnamen
184 - Eintragstyp
185 - Sprache
186 - Letzter Besuch
187 - Beschreibung
188 - Verknüpfungsstatus
189 - Verknüpfungsziel
190 - URL
191 - Medium erstellt
192 - Veröffentlichungsdatum
193 - Codiert durch
194 - Produzenten
195 - Herausgeber
196 - Untertitel
197 - Benutzerweb-URL
198 - Texter
199 - Anlagen
200 - BCC-Adressen
201 - BCC
202 - CC-Adressen
203 - CC
204 - Unterhaltungs-ID
205 - Empfangsdatum
206 - Absendungsdatum
207 - Von Adressen
208 - Von
209 - Hat Anlagen
210 - Absenderadresse
211 - Absendername
212 - Speicher
213 - Empfängeradressen
214 - Arbeitstitel
215 - An
216 - Laufzeit
217 - Albuminterpret
218 - Album-ID
219 - Beats pro Minute
220 - Komponisten
221 - Ursprünglicher Schlüssel
222 - Bestandteil einer Kompilation
223 - Stimmung
224 - Teil eines Satzes
225 - Zeitraum
226 - Farbe
227 - Jugendschutz
228 - Grund für Jugendschutzeinstufung
229 - Verwendeter Speicherplatz
230 - EXIF-Version
231 - Ereignis
232 - Lichtwert
233 - Belichtungsprogramm
234 - Belichtungszeit
235 - Blendenzahl
236 - Blitzlichtmodus
237 - Brennweite
238 - 35mm Brennweite
239 - ISO-Filmempfindlichkeit
240 - Objektivhersteller
241 - Objektivmodell
242 - Lichtquelle
243 - Maximale Blende
244 - Messmodus
245 - Ausrichtung
246 - Personen
247 - Programmmodus
248 - Sättigung
249 - Abstand
250 - Weißausgleich
251 - Priorität
252 - Projekt
253 - Kanal
254 - Folgenname
255 - Untertitel (Closed Captions)
256 - Wiederholung
257 - Zweikanalton
258 - Sendungsdatum
259 - Sendungsbeschreibung
260 - Aufnahmezeit
261 - Senderrufzeichen
262 - Fernsehsendername
263 - Zusammenfassung
264 - Schnipsel
265 - Automatische Zusammenfassung
266 - Suchrelevanz
267 - Sensitivität
268 - Freigegeben für
269 - Freigabestatus
270 - Produktname
271 - Produktversion
272 - Supportlink
273 - Quelle
274 - Startdatum
275 - Abrechnungsinformationen
276 - Abgeschlossen
277 - Aufgabenbesitzer
278 - Gesamtdateigröße
279 - Marken
280 - Videokomprimierung
281 - Regisseure
282 - Datenrate
283 - Bildhöhe
284 - Einzelbildrate
285 - Bildbreite
286 - Gesamtbitrate
287 - 
288 - 
289 - 
290 - 
291 - CMYK Profile
292 - Primary color mode
293 - Colors
294 - Effects
295 - External bitmaps
296 - Fills
297 - Fonts used
298 - Fonts embedded
299 - Grayscale Profile
300 - Languages
Für alle die sich so eine Liste selber für Ihr OS generieren möchten hier ein kleines VB-Skript das eine Textdatei (Eigenschaften-Liste.txt) mit den Eigenschaftennamen und deren Nummern enthält:
Const LISTE = "Eigenschaften-Liste.txt"  
Set objShell = CreateObject("Shell.Application")  
Set nsFolder = objShell.NameSpace("C:\")  
strProps = ""  
For i = 0 To 400
	prop = nsFolder.GetDetailsOf(nsFolder.Items,i)
	If prop <> "" Then  
		strProps = strProps & Right("00" & i,3) & " - " & prop & vbNewLine  
	End If
Next
CreateObject("Scripting.FileSystemObject").OpenTextFile(LISTE,2,True).Write(strProps)
Grüße Uwe
Member: Gimli3311
Gimli3311 Mar 02, 2015 at 12:23:54 (UTC)
Goto Top
Danke Jodel32 für den Link und Danke Uwe für den Quellcode
Sitz jetzt glaub schon 3h dran und es geht immer noch nicht ^^ aber hab erst jetzt den Quellcode von dir Uwe gesehen.
Werde es nochmal versuchen und mein Ergebnis melden.

Danke face-smile
Member: Gimli3311
Gimli3311 Mar 02, 2015 updated at 12:39:18 (UTC)
Goto Top
So ich hab es mal zusammen gebastelt.

Bekomme in der Funktion GetFileProperty(strFile, intProperty) eine Fehlermeldung (Zeile 88): Objekt Fehlt
Könntet ihr mir weiterhelfen?


Option Compare Text 'benötigt für einen 'like' Vergleich  

Dim fso As Object 'Variable ganz am Anfang des Codefensters stehen lassen !  
Dim objFoundFiles As New Collection

Sub SearchForAll()
'Variablen Deklarieren  
Dim strFolderPath As String

Dim lngRow As Long, lngRet As Long, lngCounter As Long, lngBreak As Long, lngMaxData As Long
Dim f As Variant
Dim rngOut As Range
Dim objFile As Object
Dim objShell As Object


Set objShell = CreateObject("Shell.Application")  

'Werte setzten  
 lngCounter = 0
 lngBreak = 50000
 
'FilesystemObject erstellen  
Set fso = CreateObject("Scripting.Filesystemobject")  
    'Sheet Output wechseln  
    Worksheets("Output").Activate  
    With ActiveSheet
        'erste Ausgabezelle in neuer .xlsx-Datei festlegen  
        Set rngOut = .Range("A2")  
        
        'Sheet ab Range-Paste vor Import gegebenenfalls bereinigen  
        If .UsedRange.Rows.Count >= rngOut.Row Then
            .Rows(rngOut.Row & ":" & .UsedRange.Rows.Count + 1).Clear  
        End If
    End With
'Headline erstellen Subaufruf  
Call headline

'Button erstellen  

'Ordner Verzeichnis auswählen  
 strFolderPath = fncBrowseForFolder

'Suche Dateien mit passenden Namen  
    enumFiles fso.GetFolder(strFolderPath), objFoundFiles

    ' Prüfen ob Daten gefunden wurden  
    If objFoundFiles.Count > 0 Then
        'Max Daten Wert zuordnen  
        lngMaxData = objFoundFiles.Count
        'Worksheet Tabelle auswählen  
        Worksheets("Output").Activate  
   'Für jede gefundene Datei in der Collection  
        For Each f In objFoundFiles
            strPathName = fso.GetParentFolderName(f)
            strFileName = fso.GetFileName(f)
            strFullPathFileName = strPathName & "\" & strFileName  
            strAutoren = GetFileProperty(strFullPathFileName, 20)
            strTitle = GetFileProperty(strFullPathFileName, 21)
            strDataModified = GetFileProperty(strFullPathFileName, 3)
            strDataCreated = GetFileProperty(strFullPathFileName, 4)
            'Sucht nächste Freie Zeile  
            lngRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            'Gibt die Datei informationen aus  
              Cells(lngRow, 1) = strPathName
              Cells(lngRow, 2) = strFileName
            ' Nur zur Demo die Eigenschaften ausgeben  
            MsgBox strFilePath & vbNewLine & strAutoren & vbNewLine & strTitle & vbNewLine & strDateModified & vbNewLine & strDateCreated
            'Regelt die Zähler und Abbruchkriterien  
            lngMaxData = lngMaxData - 1
            lngCounter = lngCounter + 1
            If lngCounter >= lngBreak Then
                If MsgBox("Sollen weitere Pfade Angezeigt werden?", vbYesNo) = vbYes Then  
                    lngBreak = lngBreak + 10
                Else
                    Exit For
                End If
            ElseIf lngMaxData = 0 Then
                MsgBox "Es sind keine Daten mehr vorhanden!"  
                Exit For
            End If
        Next
     'Dateieigenschaften  
     Call ReadDocumentProperties
    End If
End Sub
Function GetFileProperty(strFile, intProperty)
    Set nsFolder = objShell.Namespace(fso.GetParentFolderName(strFile))
    Set file = nsFolder.ParseName(fso.GetFileName(strFile))
    GetFileProperty = nsFolder.GetDetailsOf(file, intProperty)
End Function

Gruß Gimli3311
Mitglied: 114757
Solution 114757 Mar 02, 2015 updated at 14:00:39 (UTC)
Goto Top
Du musst die Objekte objShell Global deklarieren und nicht lokal ! Also vor die SUB verschieben z.B. nach Zeile 5...
Sonst sind diese nur in der Sub und nicht in der Function verfügbar ... dort finden sie nämlich auch Verwendung ...

Option Compare Text 'benötigt für einen 'like' Vergleich  
Dim fso As Object, objShell as Object
Dim objFoundFiles As New Collection

Sub SearchForAll()
'Variablen Deklarieren  
Dim strFolderPath As String

Dim lngRow As Long, lngRet As Long, lngCounter As Long, lngBreak As Long, lngMaxData As Long
Dim f As Variant
Dim rngOut As Range
Dim objFile As Object

Set objShell = CreateObject("Shell.Application")  
Set fso = CreateObject("Scripting.Filesystemobject")  

'Werte setzten  
 lngCounter = 0
 lngBreak = 50000
 

    'Sheet Output wechseln  
    Worksheets("Output").Activate  
    With ActiveSheet
        'erste Ausgabezelle in neuer .xlsx-Datei festlegen  
        Set rngOut = .Range("A2")  
        
        'Sheet ab Range-Paste vor Import gegebenenfalls bereinigen  
        If .UsedRange.Rows.Count >= rngOut.Row Then
            .Rows(rngOut.Row & ":" & .UsedRange.Rows.Count + 1).Clear  
        End If
    End With
'Headline erstellen Subaufruf  
Call headline

'Button erstellen  

'Ordner Verzeichnis auswählen  
 strFolderPath = fncBrowseForFolder

'Suche Dateien mit passenden Namen  
    enumFiles fso.GetFolder(strFolderPath), objFoundFiles

    ' Prüfen ob Daten gefunden wurden  
    If objFoundFiles.Count > 0 Then
        'Max Daten Wert zuordnen  
        lngMaxData = objFoundFiles.Count
        'Worksheet Tabelle auswählen  
        Worksheets("Output").Activate  
   'Für jede gefundene Datei in der Collection  
        For Each f In objFoundFiles
            strPathName = fso.GetParentFolderName(f)
            strFileName = fso.GetFileName(f)
            strAutoren = GetFileProperty(f, 20)
            strTitle = GetFileProperty(f, 21)
            strDataModified = GetFileProperty(f, 3)
            strDataCreated = GetFileProperty(f, 4)
            'Sucht nächste Freie Zeile  
            lngRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            'Gibt die Datei informationen aus  
              Cells(lngRow, 1) = strPathName
              Cells(lngRow, 2) = strFileName
              Cells(lngRow, 3) = strAutoren
              Cells(lngRow, 4) = strTitle
              Cells(lngRow, 5) = strDataModified
              Cells(lngRow, 6) = strDataCreated
            'Regelt die Zähler und Abbruchkriterien  
            lngMaxData = lngMaxData - 1
            lngCounter = lngCounter + 1
            If lngCounter >= lngBreak Then
                If MsgBox("Sollen weitere Pfade Angezeigt werden?", vbYesNo) = vbYes Then  
                    lngBreak = lngBreak + 10
                Else
                    Exit For
                End If
            ElseIf lngMaxData = 0 Then
                MsgBox "Es sind keine Daten mehr vorhanden!"  
                Exit For
            End If
        Next
     'Dateieigenschaften  
     Call ReadDocumentProperties
    End If
End Sub
Function GetFileProperty(strFile, intProperty)
    Set nsFolder = objShell.Namespace(fso.GetParentFolderName(strFile))
    Set file = nsFolder.ParseName(fso.GetFileName(strFile))
    GetFileProperty = nsFolder.GetDetailsOf(file, intProperty)
End Function
Member: Gimli3311
Gimli3311 Mar 02, 2015 at 14:02:42 (UTC)
Goto Top
Ohje man merkt wir haben heut Montag ^^

Hätte des selber glaub nie gefunden :D Danke Jodel32 und Uwe

Gruß Gimli3311
Member: Gimli3311
Gimli3311 Mar 03, 2015 updated at 07:56:57 (UTC)
Goto Top
Zitat von @colinardo:

>
Die Nummern der Dateieigenschaften können sich je nach Betriebssystem unterscheiden, ich habe dir hier mal die eines Windows
7 aufgelistet:


Können sich die Zahlen auch mit der Version von Excel unterscheiden?
Ich hab auf meinem Rechner hier Windows 7 und Excel 2013
Auf der VM ist auch Windows 7 drauf aber das Excel 2010

Wenn ich jetzt auf der VM teste bekomme ich den Autoren und Titel nicht angezeigt.
Die anderen Eigenschaften: Erstelldatum und Änderungsdatum stimmen aber.

Vielleicht hast du eine Erklärung für face-smile

Gruß Gimli3311

PS: Es liegt wirklich an der Excel Version, konnte es grad mit dem 2013 auf der VM testen
Mitglied: 114757
114757 Mar 03, 2015 updated at 08:27:25 (UTC)
Goto Top
Zitat von @Gimli3311:
PS: Es liegt wirklich an der Excel Version, konnte es grad mit dem 2013 auf der VM testen
Nein, liegt nicht an der Excel-Version, sondern den installierten Patches, ist ein Bug
http://www.experts-exchange.com/Programming/Languages/.NET/Visual_Basic ...
Denn dann werden nur die ersten 8 Einträge zurückgegeben ...
Member: Gimli3311
Gimli3311 Mar 03, 2015 at 10:16:32 (UTC)
Goto Top
Also wenn ich es mit Excel 2013 mache bekomme ich mehr als die ersten 8 Einträge raus.
Aber das es ein Bug gibt glaub ich dir gerne, bin nur froh das es bei mir jetzt geht :D

Gruß Gimli3311
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 CommentjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker