> > How many of all these points can you do successfully? If the answer is none, then I would suggest you search this site for "books" and "videos"
> >
> > Regards
> > Tushar
> >
> > >
>
>
>
> This is what I have so far...and yes it works importing the excel table to vfp.
>
> SET TALK OFF
> LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
> lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
> lcConnstr AS STRING
> CLEAR
>
> lcXLBook = [C:\GLJEascTest.xls]
>
> lcConnstr = [Driver=] + ;
> [{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;
> [DBQ=] + lcXLBook
>
> IF !FILE( lcXLBook )
> ? [Excel file not found]
> RETURN .F.
> ENDIF
> *-- Attempt a connection to the .XLS WorkBook.
> *-- NOTE: If the specified workbook is not found,
> *-- it will be created by this driver! You cannot rely on a
> *-- connection failure - it will never fail. Ergo, success
> *-- is not checked here. Used FILE() instead.
> lnSQLHand = SQLSTRINGCONNECT( )
>
> *-- Connect successful if we are here. Extract data...
> lcSQLCmd = [SELECT * FROM "SHEET1$"]
>
>
> lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
> ? [SQL Cmd Success:], IIF( lnSuccess > 0, 'Good!', 'Failed' )
> IF lnSuccess < 0
> LOCAL ARRAY laErr[1]
> AERROR( laErr )
> ? laErr(3)
> SQLDISCONNECT( lnSQLHand )
> RETURN .F.
> ENDIF
>
>
> *-- Show the results
> SELECT xlResults
> BROWSE NOWAIT
> SQLDISCONNECT( lnSQLHand )
>
> The connection to excel is unfortunately manual when I tried coding the connection it always failed.
>
> The other problem I have now is parsing the first excel column to remove the hyphens. It is currently loading into vfp as a memo field.
>
> I found this but I am not sure where to place the code :SEMyString = Replace(MyString, "-","")
> ( all this code is running from a command button click event)

hi Blair Lawrence

I have the same problem as u..
It is currently loading into vfp as a memo field.
Do you know how do i change it to normal table field?


Thank you!