Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auslesen der Bildgröße einer avi-Datei

Auslesen der Bildgröße einer avi-Datei
16.10.2005 11:17:03
Guido
bin neu hier und komme natürlich gleich mit nem groooooßen Problem, zumindest von meiner Seite aus gesehn
Also folgendes:
würde gerne, wenn ich in Excel arbeite, Dateiinformationen von AVI - Dateien ins excel einlesen. Die Information des Registerblattes "Allgemein" kann ich mit VBA integrierten Befehlen wie zb.: dateigroesse = FileLen(filetoopen) bewältigen.
Jedoch im Registerblatt "Dateiinfo", bei Breite, Höhe, Dauer, ... , geht das nicht mehr so einfach. Hab ein wenig im Netz gestöbert und den begriff API aufgeschnappt, könnte man dieses Problem damit irgendwie bewältigen wenn ja wie ?
wäre für jeden Tip dankbar.
mfg und noch nen schönen Sonntag

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auslesen der Bildgröße einer avi-Datei
16.10.2005 13:19:12
Nepumuk
Hi,
mal ein Anfang, ich hab jetzt keine Zeit mehr.
Public Sub Dateieigenschaften()
    'von K.Rola
    Const STRFOLDER As String = "D:\Eigene Dateien\Eigene Videos"
    Dim objShell As Object, objFolder As Object
    Dim bytIndex As Byte, intColumn As Integer, lngRow As Long
    Dim varName, arrHeaders(37)
    If Dir(STRFOLDER, 16) = "" Then
        MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!", 64, "Hinweis"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(STRFOLDER)
    intColumn = 1
    For bytIndex = 0 To 37
        arrHeaders(bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
        Cells(1, intColumn + bytIndex) = arrHeaders(bytIndex)
    Next
    Rows(1).Font.Bold = True
    lngRow = 2
    For Each varName In objFolder.Items
        For bytIndex = 0 To 37
            Cells(lngRow, intColumn + bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
        Next
        lngRow = lngRow + 1
    Next
    Columns.AutoFit
    Application.ScreenUpdating = True
End Sub
Gruß
Nepumuk
Anzeige
Super Nepomuk owT
16.10.2005 13:33:02
Herbert
owt
AW: Auslesen der Bildgröße einer avi-Datei
16.10.2005 19:38:49
Guido
Hallo,
erstmal danke für die rasche Antwort, großes LOB an Nepumuk.
Hab das Programm mal probiert, jedoch bekomme ich immer in der folgender Zeile :
Set objFolder = objShell.Namespace(STRFOLDER) den Laufzeitfehler 91. Denke das
"objShell" nichts zugewiesen wurde und deshalb in dieser Zeile nichts funktionert.
Wie kann ich das Problem beheben ?
mfg
Guido
AW: Auslesen der Bildgröße einer avi-Datei
16.10.2005 19:38:58
Guido
Hallo,
erstmal danke für die rasche Antwort, großes LOB an Nepumuk.
Hab das Programm mal probiert, jedoch bekomme ich immer in der folgender Zeile :
Set objFolder = objShell.Namespace(STRFOLDER) den Laufzeitfehler 91. Denke das
"objShell" nichts zugewiesen wurde und deshalb in dieser Zeile nichts funktionert.
Wie kann ich das Problem beheben ?
mfg
Guido
Anzeige
AW: Auslesen der Bildgröße einer avi-Datei
16.10.2005 20:34:14
Herbert
Hi,
hast du den Pfad angepasst?
Const STRFOLDER As String = "D:\Eigene Dateien\Eigene Videos"
mfg herbert
AW: Auslesen der Bildgröße einer avi-Datei
17.10.2005 11:56:16
Guido
Hallo,
ja hab ich gemacht, auch unterschiedliche Verzeichnisse ausprobiert, aber leider bekomm ich immer diesen Laufzeitfehler 91 an der besagten Stelle. Hab auch versucht nur mal über shell ne application zu starten, also unabhänglig von diesem Programm, jedoch mit dem selben Fehler. Hab dann die shell32.dll in die Verweise importiert, aber leider wieder ohne Erfolg.
ich denke das mit shell was nicht passt, aber was ?
mfg
Guido
AW: Auslesen der Bildgröße einer avi-Datei
17.10.2005 12:08:29
Guido
Hallo,
ja hab ich gemacht, auch unterschiedliche Verzeichnisse ausprobiert, aber leider bekomm ich immer diesen Laufzeitfehler 91 an der besagten Stelle. Hab auch versucht nur mal über shell ne application zu starten, also unabhänglig von diesem Programm, jedoch mit dem selben Fehler. Hab dann die shell32.dll in die Verweise importiert, aber leider wieder ohne Erfolg.
ich denke das mit shell was nicht passt, aber was ?
mfg
Guido
Anzeige
AW: Auslesen der Bildgröße einer avi-Datei
17.10.2005 15:20:46
Herbert
Hi,
das kann sich nur um einen Schreibfehler handeln, der Code funktioniert auch mit
AVI-Dateien einwandfrei.
mfg Herbert
AW: Auslesen der Bildgröße einer avi-Datei
17.10.2005 17:50:05
Guido
Hallo,
hab das Problem nun gelöst, man wird es nicht glauben die Lösung ist so einfch.
Hab Kaspersky Antivirus installiert und genau dieser ist anscheinend schuld das die shell funktion nicht funktioniert.
Also nochmals recht herzlichen Dank an Euch beiden für die Hilfe.
mfg
Guido

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4