wie kann ich per VBA vor oder nach dem Öffnen einer Datei den Dateityp auslesen (Text- Csv- xls-Dateien)?
Gruß Ulrich
Sub OpenCSV_Or_XLS()
Dim myCSV As String
myCSV = "C:\Demo.xls"
Application.Workbooks.Open myCSV, local:=True
If InStr(1, Cells(1, 1), ";") > 0 Then
Columns("A:A").TextToColumns Destination:=Range("A1"), Semicolon:=True
End If
End Sub