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 xlsthanks
>>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.
>>>loExcel=CreateObject("Excel.Application") >>>loFile=loExcel.Workbooks.Open(lcFile) >>>* replace any cell >>>loFile.Range('C1').Value='tel number' >>>loFile.Save() >>>loFile.Close() >>>loExcel.Quit() >>>>>>
>>>>>>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 >>>>>>