<div>
If you don't want to open the file first, you can get its file type (as text) from the FileSystemObject:<br />

<pre><code id="code-20-37750394-1">Function FileType(filePathAndName As String) As Integer
Dim fs, f, s
Set fs = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set f = fs.GetFile(filePathAndName)
s = UCase(f.Name) &amp; &quot; is a &quot; &amp; f.Type
MsgBox s
End Function</code></pre>
</div>


If you don't want to open the file first, you can get its file type (as text) from the FileSystemObject:


Function FileType(filePathAndName As String) As Integer
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filePathAndName)
s = UCase(f.Name) & " is a " & f.Type
MsgBox s
End Function

<div>
<div class="content wysiwyg-content">
I am writing an application (in Access 2010) that works with Excel workbooks. These workbooks may be from any version of Excel (i.e. Excel 200. 2003, 2007, etc.). In order to work with these files I need to know the appropriate xlfileformat value to use.<br />
I am looking for a function/procedure that will examine the file and return its xlfileformat. <br />
I've seen suggestions of looking at the extension and using a series of Select/Case statements, but this would seem to be an incomplete solution at best. I would like to be using a function that I don't have to update with a new Case statement every time a new release of Office comes out. Is the xlfileformat value or something that readily translates to it stored as an attribute of the Excel file? In the metadata perhaps?
</div>
</div>


I am writing an application (in Access 2010) that works with Excel workbooks. These workbooks may be from any version of Excel (i.e. Excel 200. 2003, 2007, etc.). In order to work with these files I need to know the appropriate xlfileformat value to use.
I am looking for a function/procedure that will examine the file and return its xlfileformat. 
I've seen suggestions of looking at the extension and using a series of Select/Case statements, but this would seem to be an incomplete solution at best. I would like to be using a function that I don't have to update with a new Case statement every time a new release of Office comes out. Is the xlfileformat value or something that readily translates to it stored as an attribute of the Excel file? In the metadata perhaps?

Determine xlfileformat of Excel workbook using VBA

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.