On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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>
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Get Started with Digital Signatures||4||23|
|Excel 2013 Find and copy duplicates depending of qty values||7||32|
|Conditional Formatting from zero to a specific negative number||2||17|
|Shade a cell based on date range||3||11|