thank you,
Why you don't use OLE? becuse the user need to do that, and telno maybe
('C1')or('C2')or('C3')...,
i know you can tel the user to rename the filed out of vfp code or form,

but i fetch for vfp code if it is possible ,

this is the code

CLOSE all
SET DATE BRITISH
SET CENTURY on
thisform.text9.Value=GETFILE('xls')

**************************************************
   declare long ShellExecute in "shell32.dll" ;
	long hwnd, string lpszOp, ;
	string lpszFile, string lpszParams, ;
    string lpszDir, long nShowCmd
ShellExecute(0,'Open',thisform.text9.Value,'','',1)


********************************************************
IMPORT FROM (thisform.text9.value) TYPE xls
*IMPORT FROM (thisform.text2.value) TYPE csv

use JUSTSTEM(thisform.text9.value)
m.t=JUSTSTEM(thisform.text9.value)
USE (m.t)

FOR gnCount = 1 TO FCOUNT( ) 
   m.OldName =  FIELD(gnCount) 
   m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount)))
  
   
   *******************************************************
   ALTER TABLE (m.t) RENAME COLUMN (m.OldName) TO (m.NewName)
  * ALTER TABLE (thisform.text2.value) RENAME COLUMN (m.OldName) TO (m.NewName)
NEXT
=MESSAGEBOX("DON")
*BROWSE

thanks.

>Mohammed,
>
>Why you don't use OLE?
>

>loExcel=CreateObject("Excel.Application")
>loFile=loExcel.Workbooks.Open(lcFile)
>* replace any cell
>loFile.Range('C1').Value='tel number'
>loFile.Save()
>loFile.Close()
>loExcel.Quit()
>

>
>MartinaJ
>
>>thank you for reply,
>>i need to open it just to rename one filed from any name to telno,
>>
>>how i can close it ,to import it after rename(via vfp code),
>>
>>i mean before
>>IMPORT FROM (thisform.text9.value) TYPE xls
>>
>>thanks.
>>
>>>Hi Mohammed,
>>>
>>>You cannot import from XLS sheet if openned.
>>>MartinaJ
>>>
>>>>hi all,
>>>>i try to convert excel sheet to dbf via this code...
>>>>i got erorr message OLE error code 0x80030020:ashare violation hase occurred.
>>>>
>>>>thanks for help
>>>>
>>>>

>>>>CLOSE all
>>>>SET DATE BRITISH
>>>>SET CENTURY on
>>>>thisform.text9.Value=GETFILE('xls')
>>>>**************************************************
>>>>   declare long ShellExecute in "shell32.dll" ;
>>>>	long hwnd, string lpszOp, ;
>>>>	string lpszFile, string lpszParams, ;
>>>>    string lpszDir, long nShowCmd
>>>>ShellExecute(0,'Open',thisform.text9.Value,'','',1)
>>>>********************************************************
>>>>IMPORT FROM (thisform.text9.value) TYPE xls &&&erorr message
>>>>