Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eigenschaften in geschloss. Datei schreiben

Eigenschaften in geschloss. Datei schreiben
08.10.2013 14:10:54
Peter
Hallo,
ich lese mittels VBA (shell32) .GetDetailsOf diverse Dateieigenschaften aus.
Das klappt gut.
Wie kann ich einen beliebigen Text (bei geschlossener Datei) in z.B. 34 Dateibeschreibung ablegen.
Meiner Ansicht müsste dies gehen, denn mittels Explorer kann man solche Eigenschaften auch ändern.
In Voraus besten Dank.
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eigenschaften in geschloss. Datei schreiben
08.10.2013 21:28:03
Werner
Hi Peter
ich hoffe sehr, dass Du diese Manipulation nur im eigenen Sinne machst
http://michael-schwimmer.de/xlMain.htm
Dateiattribute ohne FSO setzen
Gruss
Werner

AW: Eigenschaften in geschloss. Datei schreiben
09.10.2013 14:26:24
Peter
Hallo Werner,
der Hinergrund ist ein anderer als vermutet:
Ich habe Bilddateien aus mehreren Digitalkameras und jede Kamera hat ihre eigene Dateinamen-Serie.
Um die Bilder vergleichbar in zeitliche Reihenfolge zu bringen, verwende ich .GetDetailsOf und bilde daraus einen neuen Dateinamen in Form JJMMTT hhmmss.
Ich möchte jetzt jedoch zusätzlich den ursprünglichen Dateinamen im Header der Datei in einer Eigenschaft, z.B. 34 Dateibeschreibung, aufheben.
Mit den üblichen Mitteln (thisworkbook.title oder builtindocumentproperties(n)) kann ich bei JPG nicht landen und suche nach dem 'umgekehrten' Weg für GetDetails.
Vielleicht weißt Du weiter. Danke.

Anzeige
Eigenschaften in geschloss. Datei schreiben
09.10.2013 17:52:12
Anton
Hallo Peter,
bilde daraus einen neuen Dateinamen in Form JJMMTT hhmmss.
was spricht dagegen, dass die Dateinamen die ursprünglichen Dateinamen beibehalten? Etwa so:
Code:

Sub b()
  Dim objShell, objFolder
  Dim BrowseDir, varName
  Set objShell = CreateObject("Shell.Application")  
  Set BrowseDir = objShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)  
  If Not BrowseDir Is Nothing Then    
    Set objFolder = objShell.Namespace(BrowseDir.Self.Path)
    For Each varName In objFolder.items  
      If objFolder.GetDetailsOf(varName, 2) <> "Dateiordner" Then  
        varName.Name = Format(varName.ModifyDate, "YYYY_MM_DD_hh_mm_ss_") & varName.Name  
      End If  
    Next
    Set objFolder = Nothing  
  End If  
  Set objShell = Nothing  
End Sub  


mfg Anton
Anzeige

172 Forumthreads zu ähnlichen Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
CSV-Datei öffnen Daten schreiben!?
Tobsen

Hallo
Habe in einer Function folgendes:
Open "C:\test\werte.csv" For Append As #1
...
In der Datei werden einmal am Tag Werte geschrieben. In der ersten Zeile sollen Datum, Erklärung Wert1,...
usw. stehen. Dann ab der zweiten Zeile die Werte.
Um die Werte in die Datei z...
27.01.2009 14:57:00
Thread-ID: 1044256
11 Beiträge
Anzeige
VBA Profis: Leerzeile in Textdatei löschen
Joe

Hallo,
habe folgendes Makro "ZeileLöschenLangsam" gefunden um leere Zeilen in einer Textdatei zu löschen.
Das ganze funktioniert, aber dauert bei großen TextDateien (>20.000 Zeilen) extrem lange.
Ich habe deshhalb das Makro "ZeileLöschenSchnell" geschrieben welches nur wenige Se...
11.02.2010 23:36:52
Thread-ID: 1137630
2 Beiträge
VBA einzelne Jahre schreiben
manu

Hallo zusammen,
ich hätte heute mal eine Frage bezüglich VBA und das jährliche Ausschreiben einer Anzahl von Jahren.
Klingt etwas verwirrend, daher hier gleich die Datei zum Verständnis:
Die Datei https://www.herber.de/bbs/user/68058.xls wurde aus Datenschutzgründen gelöscht
Es...
17.02.2010 10:29:25
Thread-ID: 1139150
4 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
per VBA in MySQL-Tabelle schreiben
André

Moin,
ich hätte da mal wieder ein Problem.
Daten aus einer MySQL-Datenbank bekomme ich problemlos in meine Excel-Tabellen. Dies bekomme ich auch per VBA gesteuert. Hierzu habe ich eine ODBC-Verbindung erstellt. In der Excel-Tabelle erstelle ich dann eine neue Datenverbindung, die ich da...
20.04.2010 14:29:30
Thread-ID: 1152882
5 Beiträge
VBA Textdatei beschreiben
Stevie

Hi zusammen,
ich wieder :)
Ich benötige einen Ansatz für folgendes Problem:
In einem Makro habe ich folgende Variablen definiert:
Nummer, Name, Ort, IZaehler, Von
diese Variablen würde ich gerne in eine Textdatei schreiben, bzw die Platzhalter in der Textdatei durch die Vari...
03.05.2010 19:09:42
Thread-ID: 1155173
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
4
10
2
1
3
6
4
2
12
5
4
5
5
2
2
9
2
2
4
4
3
2
2