Mega Code Archive

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