Bitte um VBA Makro Hilfe!
Wie kann ich aus dem Verzeichnis D:\HLM\Messdaten
die mit dynamischen Namen abgelegte .xls Datei öffnen?
Wenn keine Datei abgelegt ist, sollte eine entsprechende Meldung erfolgen!
Vielen Dank für Eure Hilfe
Gruß Gerhard
Sub gfgf()
Dim Verz As String, Datei As String
Verz = "C:\Temp\"
Datei = Range("A1") ' z.B. Testdatei
If Dir(Verz & Datei & ".xls") = "" Then
MsgBox "Datei nicht vorhanden"
Else
Workbooks.Open Filename:=Verz & Datei & ".xls"
End If
'Weiter mit deinem Makro
End Sub
Sub Starten()
Dim Verz As String, Datei As String, Ext As String
Verz = "D:\HLM\MessdatenDatei\"
Ext = "*.xls"
Datei = Dir(Verz & Ext)
If Datei = "" Then
MsgBox "Keine Datei vorhanden"
Exit Sub
End If
Do While Datei <> ""
Workbooks.Open Filename:=Verz & Datei
Datei = Dir() ' nächste Datei
Loop
End Sub
Sub Schließen()
Dim Verz As String, Datei As String
Verz = "D:\HLM\MessdatenDatei\"
Datei = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:=Verz & "done\" & Datei, _
FileFormat:=xlExcel8
ActiveWorkbook.Close
Kill Verz & Datei
End Sub
LG UweDSub Schließen()
Dim Verz As String, Datei As String
Verz = "D:\HLM\MessdatenDatei\"
Datei = ActiveWorkbook.Name
Msgbox Datei & ": ist jetzt die aktive Datei"
ActiveWorkbook.SaveAs Filename:=Verz & "done\" & Datei, _
FileFormat:=xlExcel8
ActiveWorkbook.Close
Kill Verz & Datei
End Sub
Gruß UweD