hi,
it works as under, thank you

can i make it as .dll,
can i use it with excel sheet macro as .dll.

getdir()
thisform.text9.Value=GETFILE('xls')
CLOSE all
Import from (thisform.text9.Value) TYPE xls 
CLOSE all
USE JUSTSTEM(thisform.text9.value)+".dbf" in 0
xfileF=ALLTRIM(JUSTSTEM(thisform.text9.value))+".dbf" 

ALTER TABLE (xfileF) ADD COLUMN date1 d(8) 
ALTER TABLE (xfileF) ADD COLUMN cno n(9)
ALTER TABLE (xfileF) ADD COLUMN no n(9)

replace all date1 with date()
replace all cno with 0
replace all no with recno()
brow

thanks.
>>i got error message
>>

>>Import from (thisform.text9.Value) TYPE xls && i must have table name as text9 name
>>&&thisform.text9.Value=kkk.xls
>>ALTER TABLE (thisform.text9.Value) ADD COLUMN date&&&"kkk.xls" is not a table
>>

>
>What error? In order for someone to help you, that information would be relevant. This will ease the support.