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

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

-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com