>&&&at command button---> click event, maybe it must be used via another events >SET DEFAULT TO d:\llocp > >USE main1 >gcDelimName = ALIAS( ) + '.xls' >gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >IF EMPTY(gcDelimFile) && Esc pressed > CANCEL >ENDIF > >gcDelimName = [\\server\z:\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\]+; > [2005 1214 Servcie II\customer database\Treated data\] + FORCEEXT(JUSTSTEM(gcDelimName),[XLS]) >COPY fields num,Msisdn,date,flag TO (gcDelimFile) XL5 >SET DEFAULT TO "\\server\z:\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\2005 1214 Servcie II\customer database\Treated data\" >brow >SET DEFAULT TO d:\llocp > > CLOSE all >SET TALK OFF >SET ECHO off >SET SAFETY off > >*********************************** >SELECT 3 >USE mstr >SET DELETED on >append from main2 >DELETE FROM main2 >************************************ >getdir() >thisform.text9.Value=GETFILE('xls') >CREATE TABLE main1; >(msisdn n(15),num n(8),date d(8) ,flag n(1) ) >APPEND FROM (thisform.text9.Value) TYPE xl5 >Replace Date with thisform.text1.value ; > flag with 0 ; > num with RecNo() ALL >************************************************* >SET DEFAULT TO d:\llocp\ > >>thanks
>>>USE main1 >>>gcDelimName = ALIAS( ) + '.xls' >>>gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >>>IF EMPTY(gcDelimFile) && Esc pressed >>> CANCEL >>>ENDIF >>> >>>COPY fields num,Msisdn,date,flag TO "\\server\z:\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\2005 1214 Servcie II\customer database\Treated data\ (gcDelimFile) XL5" >>>brow >>>SET DEFAULT TO d:\llocp >>>>>>thanks
>>USE main1 >>gcDelimName = ALIAS( ) + '.xls' >>gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >>IF EMPTY(gcDelimFile) && Esc pressed >> CANCEL >>ENDIF >> >>gcDelimName = [\\server\z:\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\]+; >> [2005 1214 Servcie II\customer database\Treated data\] + FORCEEXT(JUSTSTEM(gcDelimName),[XLS]) >>COPY fields num,Msisdn,date,flag TO (gcDelimFile) XL5 >>brow >>SET DEFAULT TO d:\llocp >>