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

Hi Paul

This works all the time for me.
Something else must be going on at your side.
Are you sure the filename is stated correctly?

Put in

  Debug.Print strLoc

and read.

/gustav


> Gustav,

> Tried the line you sent and got the following error message now:

>         Method 'Open' of object 'Workbooks' failed

> Any ideas ?

> Paul

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
> Sent: 29 October 2004 09:42
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Open CSV file using Excel object and save as Excel


> Hi Paul

> Try with

>     Set objWB = objExcel.Workbooks.Open(FileName:=strLoc)

> /gustav


>> 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
 
>> This should be so simple but I get the following error message on the 
>> objExcel.Workbooks.OpenText line:
 
>>     Expected Function or Variable