Help with Find/Replace in Excel from Access

[eAlchemist]

I have some code that opens an Excel file, and among other things removes quotation marks from the file. I set display alerts to false, but when it doesn't find a quote, I still get a message box letting me know. Anyone have any ideas on how to suppress this? Here is a snippet of the code:

 With myExcel
    .DisplayAlerts = False
    Workbooks.Open Filename:=(myPath & myFileName)
 
    Cells.Select
    
    Selection.Replace What:=Chr(34), Replacement:="", _    
        LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    ActiveWorkbook.Save
        ActiveWorkbook.Close

    .DisplayAlerts = True

End With

Thanks,
Chris

 

[bubba100]

try- Application.DisplayAlerts=False

 

[SkipVought]

Hi,

Try...

...[b]
    Activesheet.[/b]Cells.Select
...

Skip,

_[red][/red]

 

[PHV]

With myExcel
.DisplayAlerts = False
[highlight].[/highlight]Workbooks.Open Filename:=(myPath & myFileName)
[highlight].[/highlight]Cells.Select
[highlight].[/highlight]Selection.Replace What:=Chr(34), Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
[highlight].[/highlight]ActiveWorkbook.Save
[highlight].[/highlight]ActiveWorkbook.Close
.DisplayAlerts = True
End With

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886