WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE with Excel
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Determine Excel File Format Type

 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