Get workbook format : Workbook « Excel « VBA / Excel / Access / Word

Get workbook format

 
Sub GetFileFormat()
    Dim lFormat As Long
    Dim sFormat As String
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    
    lFormat = wb.FileFormat
    Select Case lFormat
        Case xlAddIn: sFormat = "Add-in"
        Case xlCSV: sFormat = "CSV"
        Case xlCSVMac: sFormat = "CSV Mac"
        Case xlCSVMSDOS: sFormat = "CSV MS DOS"
        Case xlCSVWindows: sFormat = "CSV Windows"
        Case xlCurrentPlatformText: sFormat = "Current Platform Text"
        Case xlDBF2: sFormat = "DBF 2"
        Case xlDBF3: sFormat = "DBF 3"
        Case xlDBF4: sFormat = "DBF 4"
        Case xlDIF: sFormat = "DIF"
        Case xlExcel2: sFormat = "Excel 2"
        Case xlExcel2FarEast: sFormat = "Excel 2 Far East"
        Case xlExcel3: sFormat = "Excel 3"
        Case xlExcel4: sFormat = "Excel 4"
        Case xlExcel4Workbook: sFormat = "Excel 4 Workbook"
        Case xlExcel5: sFormat = "Excel 5"
        Case xlExcel7: sFormat = "Excel 7"
        Case xlExcel9795: sFormat = "Excel 97/95"
        Case xlHtml: sFormat = "HTML"
        Case xlIntlAddIn: sFormat = "Int'l AddIn"
        Case xlIntlMacro: sFormat = "Int'l Macro"
        Case xlSYLK: sFormat = "SYLK"
        Case xlTemplate: sFormat = "Template"
        Case xlTextMac: sFormat = "Text Mac"
        Case xlTextMSDOS: sFormat = "Text MS DOS"
        Case xlTextPrinter: sFormat = "Text Printer"
        Case xlTextWindows: sFormat = "Text Windows"
        Case xlUnicodeText: sFormat = "Unicode Text"
        Case xlWebArchive: sFormat = "Web Archive"
        Case xlWJ2WD1: sFormat = "WJ2WD1"
        Case xlWJ3: sFormat = "WJ3"
        Case xlWJ3FJ3: sFormat = "WJ3FJ3"
        Case xlWK1: sFormat = "WK1"
        Case xlWK1ALL: sFormat = "WK1ALL"
        Case xlWK1FMT: sFormat = "WK1FMT"
        Case xlWK3: sFormat = "WK3"
        Case xlWK3FM3: sFormat = "WK3FM3"
        Case xlWK4: sFormat = "WK4"
        Case xlWKS: sFormat = "WKS"
        Case xlWorkbookNormal: sFormat = "Normal workbook"
        Case xlWorks2FarEast: sFormat = "Works 2 Far East"
        Case xlWQ1: sFormat = "WQ1"
        Case xlXMLSpreadsheet: sFormat = "XML Spreadsheet"
        Case Else: sFormat = "Unknown format code"
    End Select
    Debug.Print sFormat
End Sub

Related examples in the same category

1.	Center workbook
2.	Create a new workbook
3.	Creates a new workbook and adds it to the collection, reads the number of workbooks into a variable, and selects all worksheets in the active workbook:
4.	To close all open workbooks, use the Close method of the Workbooks collection object.
5.	To close a single workbook, use the Close method of the Workbook object. The Close method accepts three optional arguments (SaveChanges, FileName, and RouteWorkbook).
6.	To save a workbook from a VBA program, use either the Save methods of the Workbook object.
7.	To select the last Workbook object in the collection
8.	Activate work book
9.	Use a String rather than an index value to reference a workbook
10.	Save workbook and close
11.	The Workbooks property is a member of the Application object and returns a reference to the Workbook object specified by the index value given in the parentheses.
12.	Open workbook by name
13.	Close a workbook and save it
14.	Create a workbook and save it as a new file
15.	The distinction between the Workbook and Window objects lies in an additional method that can be used to create a Window object
16.	Open a workbook and then size it to fit just within the application window
17.	Use Application object to save a workbook as a new file
18.	Add a new workbook and save it
19.	arranges the open workbooks in a tiled configuration
20.	maximizes any workbook when it is activated
21.	places the username in the footer of each sheet printed:
22.	Check Whether a Workbook Is Open
23.	Check Whether a Sheet in an Open Workbook Exists
24.	Count the Number of Workbooks in a Directory
25.	Controlling Worksheet Visibility