Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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>
|Sum Previous Month and Previous Year Data by Date Formula||4||33|
|How to highlight the first row in a different color without knowing how many columns beforehand in vb.net||6||35|
|EXCEL formula help required||3||15|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!