Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Set InsuredForm = Application.Workbooks.Open(TxtInsuredForm1.Text)
Public Sub InsuredFormBrowse1_Click() Dim Filex1 As Variant 'SET INITIAL PATH FOR OPEN FILE DIALOG. sPath = "H:\" ChDrive sPath ChDir sPath 'OPEN FILE DIALOG. Filex1 = Application.GetOpenFilename _ (FileFilter:="Excel Worksheets(*.xls; *.xlsx; *.ods), *.xls; *.xlsx; *.ods", _ Title:="Please select the Insured Form.", MultiSelect:=False) 'SHOW SELECTED FILE IN TEXTBOX. If Filex1 <> False Then TxtInsuredForm1 = Filex1 End If End Sub Public Sub ContinueButton1_Click() Dim InsuredForm As Workbook Application.ScreenUpdating = False Application.EnableEvents = False 'OPEN THE FORM. Set InsuredForm = Application.Workbooks.Open(TxtInsuredForm1.Text) If InsuredForm.FileFormat = 51 Or InsuredForm.FileFormat = 56 Then Set sourceSheet = InsuredForm.Sheets("Inventory Form") ElseIf InsuredForm.FileFormat = 60 Then Set sourceSheet = InsuredForm.Sheets("Inventory_Form") Else WorksheetError.Show End If End Sub
"Excel found unreadable content in 'Insured Form.ods'. Do you want to recover the contents of this workbook? If you trust the source of this workbook, click Yes."I'll click 'ok' and Excel is able to open the workbook and tells me that some parts of the workbook may have been repaired or discarded, but everything looks intact. In the running to win "most useless error log of the year" award is the xml log listing the repairs made to the file:
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?> - <recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"> <logFileName>error031280_01.xml</logFileName> <summary>Errors were detected in file 'C:\Documents and Settings\emmonsad\Desktop\Insured Form 20011644.ods'</summary> - <additionalInfo> <info>Excel completed file level validation and repair. Some parts of this workbook may have been repaired or discarded.</info> </additionalInfo> </recoveryLog>
Join the community of 500,000 technology professionals and ask your questions.