[AccessD] Open CSV file using Excel object and save as Excel

On Fri, 29 Oct 2004 14:49:58 +0100, Paul Hartland (ISHARP)
<paul.hartland at isharp.co.uk> wrote:
> Yes see original code sent below:

> >> I have the following code in a database:
> 
> >>     Dim objExcel As Excel.Application
> >>     Dim objWB As Excel.Workbook
> >>     Dim strSaveAs As String
> 
> >>     Set objExcel = New Excel.Application
> >>     Set objWB = objExcel.Workbooks.OpenText(strLoc)    ' NOTE: strLoc is
> a
> >> path provided by the user
> 
> >>     strSaveAs = Left(strLoc,((Len(Trim(strLoc))-4)) & ".xls"
> 
> >>     objWB.SaveAs strSaveAs
> 
> >>     objWB.Close
> >>     Set objWB = Nothing
> >>     objExcel.Quit
> >>     Set objExcel = Nothing

I meant from the VBE Tools| References and then select Microsoft Excel
x.0 Object Library

not dimming a variable.

-- 
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"