unreadable content in file

P

Prema

I have code below to open and process all files in a particular directory. My
code runs in 2007. Files in directory are saved by different users with
various Excel versions.

Somtimes one of the files in the directory is not processed and when I open
the file manually pop up message displays "Excel found unreadable content in
.... Do you wanr to recover the contents of this work book?" If I say yes then
workbook opens.I don't get this message even when I run with display alert
True.

If after manually opening the file and re-save I am able to run my code. Is
there any code I can include to automatically recover or at least display pop
up message as in manual open so that yes button can be used for thr file to
be processed
sales_file_in = "\\gbrcrotpc0ms015\1 To be processed\"
sName = Dir(sales_file_in & "*.*")

' Loop and process all file in sales_file_in directory
Do While sName <> ""
Workbooks.Open Filename:= _
sales_file_in & sName

..
..
more statements
..
..

sName = Dir()
Loop
 
P

Patrick Molloy

its difficult to tell .. but I'm guessing that you have an
ON ERROR RESUME NEXT
maybe?
I'd suggest that you use
DIM WB as Workbook
then use
SET WB = Nothing ' to ensure its null
SET WB = Workbooks.Open(sales_file_in & sName)
IF wb is nothing then
IF msgbox("Open manually",,"WORKBOOK NOT OPENED: " & sales_file_in &
sName)=vbYes Then
stop
end if


end if


using wb this way gives you greater control and to close
WB.Close False
closes it wiythout saving
 
P

Prema

Thank you patrick. I used your code and it shows the name of the file with
error and that is what I wanted.

Prema
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top