Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: FileFormat Excel File Format Type CSV XML
;Winbatch 2011B - lookups to determine Excel File Type ; ;Stan Littlefield June 28, 2012 ;///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ;format enum xlformats="xlAddIn,xlAddIn8,xlCSV,xlCSVMac,xlCSVMSDOS,xlCSVWindows," xlformats=xlformats:"xlCurrentPlatformText,xlDBF2,xlDBF3,xlDBF4,xlDIF,xlExcel12," xlformats=xlformats:"xlExcel2,xlExcel2FarEast,xlExcel3,xlExcel4,xlExcel4Workbook,xlExcel5," xlformats=xlformats:"xlExcel7,xlExcel8,xlExcel9795,xlHtml,xlIntlAddIn,xlIntlMacro," xlformats=xlformats:"xlOpenDocumentSpreadsheet,xlOpenXMLAddIn,xlOpenXMLTemplate,xlOpenXMLTemplateMacroEnabled,xlOpenXMLWorkbook,xlOpenXMLWorkbookMacroEnabled," xlformats=xlformats:"xlSYLK,xlTemplate,xlTemplate8,xlTextMac,xlTextMSDOS,xlTextPrinter," xlformats=xlformats:"xlTextWindows,xlUnicodeText,xlWebArchive,xlWJ2WD1,xlWJ3,xlWJ3FJ3," xlformats=xlformats:"xlWK1,xlWK1ALL,xlWK1FMT,xlWK3,xlWK3FM3,xlWK4," xlformats=xlformats:"xlWKS,xlWorkbookDefault,xlWorkbookNormal,xlWorks2FarEast,xlWQ1,xlXMLSpreadsheet" xlformatnum="18,18,6,22,24,23," xlformatnum=xlformatnum:"-4158,7,8,11,9,50," xlformatnum=xlformatnum:"16,27,29,33,35,39," xlformatnum=xlformatnum:"39,56,43,44,26,25," xlformatnum=xlformatnum:"60,55,54,53,51,52," xlformatnum=xlformatnum:"2,17,17,19,21,36," xlformatnum=xlformatnum:"20,42,45,14,40,41," xlformatnum=xlformatnum:"5,31,30,15,32,38," xlformatnum=xlformatnum:"4,51,-4143,28,34,46" ;valid file extensions filetypes="Excel File|*.xlsx;*.xls;*.xlsm;*.xla;*.xlam;*.xlb;*.xlc;*.xll;*.xlm;*.xlsb;" filetypes=filetypes:"*.xlt;*.xltm;*.xltx;*.xlw;*.xsf" cXLS="" cXLS = AskFilename("Select Appropriate Excel Workbook", DirScript(),filetypes, "", 1) If ! FileExist(cXLS) Then Exit oXL = CreateObject("Excel.Application") If oXL == 0 Then Exit oXL.Visible = 1 ;set to 0 to not display Excel oXL.ScreenUpdating = 0 oXL.UserControl = 0 oXL.DisplayAlerts = 0 oXL.WorkBooks.Open(cXLS) n=StrReplace(oXL.ActiveWorkbook.FileFormat,".0","") ;quickly close Excel oXL.Quit() oXL=0 fmat="Format Not Found" n1=ItemLocate(n,xlformatnum,",") If n1>0 Then fmat=ItemExtract(n1,xlformats,",") Pause("Current Excel File Format",n:@CRLF:fmat) Exit :CANCEL Exit
Article ID: W18103
Filename: Determine Excel File Format Type.txt
File Created: 2012:06:28:10:02:42
Last Updated: 2012:06:28:10:02:42