Access-VBA-wie man deterine, wenn die Datei im Excel-Format?

Ich hatte noch nie ein Problem, wenn eine Excel-Datei kann nicht direkt bestimmt werden, durch die Erweiterung, aber wenn ich zu tun hatte, ist die erste Sache, die kommt sich zu kümmern, ist das UNIX-Dienstprogramm file, die identifiziert eine Datei geben, die von der Betrachtung seiner Inhalte. Er erkennt eine sehr große Anzahl von Dateitypen.

Benutze ich Cygwin für Windows, die im wesentlichen aus einer UNIX-Umgebung unter Windows.

Wenn ich den file Befehl in Cygwin auf einem Excel 2010 (xlsx) - Datei hab ich umbenannt in '.csv -', ich:

$ file afile.csv
afile.csv: Microsoft Excel 2007+

Es ist eine etwas ungeschickte Lösung, aber in deinem VBA könnte man eine Gabel C:\cygwin\bin\file.exe Prozess mit Windows Script Host, und erfassen Sie die Ausgabe für jede Datei.

Wenn Sie den code der Pfad zu der Excel-Datei mit einzelnen ticks um es (D. H. 'C:\path\to\file'), Cygwin sollte es korrekt interpretieren zu können (Cygwin utilities zu erwarten, dass ein unix-like path: /Pfad/zur/Datei). Ich habe gerade überprüft, dieses in einer normalen Windows-Eingabeaufforderung, und es funktionierte:

c:\>c:\cygwin\bin\file.exe 'C:\path\to\afile.csv'
C:\path\to\afile.csv: Microsoft Excel 2007+

Gibt es auch eine native Windows-binary von file im GnuWin32 SourceForge-Projekt, aber es scheint ein wenig veraltet; ich habe es nicht ausprobiert, aber es kann immer noch erkennen, moderne Excel-Versionen.

Wenn Sie eine Excel-Lösung -- ich bin nicht ganz sicher, aus der Spitze von meinem Kopf; ich hoffe, jemand anderes hat dies getan, bevor.

Einige Hinweise auf einen möglichen Ansatz, mithilfe von ADOX

Sub SortFiles()
''Library reference: Windows Script Host Object Model
Dim fs As New FileSystemObject
Dim ts As TextStream
Dim sType As String
Dim sFile As File

For Each sFile In fs.GetFolder("Z:\Docs\").Files
    sType = sFile.Type

    If InStr(sType, "Microsoft") = 0 Then
        sList = ListTables(sFile.Name)
        If sList = "Error: Not Excel" Then
            ''Move to suitable folder
        Else
            Debug.Print sList
            Stop
            ''This can be read as Excel, most likely
        End If

    ElseIf sType Like "*Excel*" Then
       ''Includes CSV
        sFile.Move "z:\docs\Excelfiles\"
    Else
        sFile.Move "z:\docs\OtherMS\"
    End If
Next

End Sub

Function ListTables(sFile As String) As String
''Library reference: Microsoft ADO Ext. x.x for DDL and Security
Dim cat As New ADOX.Catalog
Dim scn As String
Dim t As ADOX.Table
Dim cn As New ADODB.Connection
Dim sList As String

On Error GoTo Handle_Err:

    scn = "Provider=Microsoft.ACE.OLEDB.12.0;" _
    & "Data Source=" & sFile & ";Extended Properties=""Excel 8.0;HDR=No"""

    cn.Open scn

    cat.ActiveConnection = cn

    For Each t In cat.Tables
        sList = sList & vbCrLf & t.Name
    Next t

    ListTables = sList

Exit_Proc:
Set cn = Nothing
Set cat = Nothing
Exit Function

Handle_Err:
    If Err.Number = -2147467259 Then
        ''External table is not in the expected format.
        ListTables = "Error: Not Excel"
        Err.Clear
        Resume Exit_Proc
    Else
        Debug.Print Err.Number, Err.Description
    End If

End Function