Datei öffnen aber ohne

Thomas · 2025-01-05T12:19:30+01:00

Guten Morgen, ich bin neu hier und wünsche allen gesundes neues Jahr ! Ich habe diese Zeile zum öffnen einer Datei, aufgezeichnet. Workbooks.Open Filename:= _ "D:\Firma\Lagerlisten\Datenbank Vers. 01.00.xlsm" mein Problem: wenn ich eine neuere Datei mit einer neueren Version habe, kann ich diese nicht öffnen. Was muss ich tun damit immer die neuere Datei also z.B. Vers. 1.01 geladen wird. mf Thomas

Hallo Thomas

@Case - interessant mit Dir zu arbeiten, damit könnte man auch Ordner + Unterordner auflisten.
Kleines Problem, Dateien mit Umlauten ä, ü, ö werden nicht korrekt angezeigt!
Woran erkenne ich bei deinem Code wieviele Dateien sich in dem Ordner befinden??
Wie kann man den Ordner auf Ordner + Unterordner mit File Len und Save Datum erweitern?
Hast du eine komplette Dir Liste mit allen Erklärungen der Buchstaben und ihrer Funktionen?

@Thomas
ich bin etwas verwundert das du eine UserForm erstellen kannst, dir aber mein Code zu kompliziert ist??
Ich habe deinen Code mal etwas geändert. Siehe unten. Vielleicht hilft dir das ja weiter??
Bei Option Button sollten alle anderen auf Null stehen, wenn z.B. Button1 gedrückt ist.

Die bessere Alternative ist der Code von Case, der findet ja die letzten Dateien, aber ob du den verstehst??
Um ihn dir zu erklären habe ich ihn mal auf meine -Excel Heute Datei- umgeschrieben, kann 4 Dateien auslesen.
Das auslesen der Dateien geschieht über "i" mit (i) am Ende des Codes von Case.

mfg Piet



Public Sub OptionButton1_Click()

Dim Version As String

If Me.OptionButton1 = True Then Version = "01.00.xlsm"

If Me.OptionButton2 = True Then Version = "01.01.xlsm"

If Me.OptionButton3 = True Then Version = "01.02.xlsm"

If Me.OptionButton4 = True Then Version = "01.03.xlsm"

    Unload Me

    Workbooks.Open Filename:= _

        "D:\Firma\Lagerlisten\Datenbank Vers. " & Version

End Sub



Sub Units_auslesen()

On Error Resume Next

For i = 0 To 4   '(i) gibt den Index der Datei an!

    MsgBox "E:\Excel Heute\" & Split(CreateObject("Wscript.Shell").ExEc("cmd /C DIR """ & "E:\Excel Heute\" & "*.xls*"" /B/O-D").stdout.readall, vbCrLf)(i)

Next i

End Sub

Moin, :-)

... mit den Umlauten kannst du so vorgehen: ;-)

Option Explicit

Private Declare PtrSafe Function OemToCharA Lib "user32.dll" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Public Function ASCIItoANSI(ByVal strTMP As String) As String

    Call OemToCharA(strTMP, strTMP)

    ASCIItoANSI = strTMP

End Function

Public Sub Los()

    Workbooks.Open ASCIItoANSI("C:\Temp\" & Split(CreateObject("Wscript.Shell").Exec("cmd /C DIR """ & "C:\Temp\" & "*.xlsm"" /B/O-D").StdOut.ReadAll, vbCrLf)(0))

End Sub

Mir ist das eigentlich nie aufgefallen, da ich nie auf die Idee gekommen bin Umlaute oder ein"ß" oder, oder... in Datei- bzw. Ordnernamen zu verwenden. ;-)

Fündig wurde ich damals hier: ;-)
https://www.vbarchiv.net/tipps/tipp_490-ansi-zeichensatz-nach-dos-und-umgekehrt.html

Habe früher sehr viel mit DOS (auch und gerade über VBA) gemacht. Z. B. WMIC:
https://learn.microsoft.com/de-de/windows/win32/wmisdk/wmic

Ist heute durch PowerShell praktisch ersetzt. Funktioniert aber noch und ist sehr mächtig. ;-)

Servus
Case

Forumthread: Datei öffnen aber ohne

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Datei öffnen aber ohne

Forumthread: Datei öffnen aber ohne

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread