LOCAL XLApp,XLSheet,oleApp
LOCAL mNAME,ZN,ok
ok=.t.
TRY
	XLApp = GETOBJECT(, "Excel.Application")
CATCH TO oErr
         ok=.f.
         DO sprg02 WITH "Сначала необходимо открыть таблицу!"
FINALLY
ENDTRY
IF NOT ok
	return
ENDIF

XLSheet = XLApp.ActiveSheet

N=2

&& Первый столбец, вторая строка
ZN=XLSheet.Cells(N,1).Value 

&& SQL таблица
SELECT SprRg 
DO WHILE (N <= 5000) AND (NOT ISNULL(ZN))
	ZN=""
	TRY
		ZN=XLSheet.Cells(N,1).Value	
	CATCH TO oErr
		DO sprg02 WITH "Строка "+ALLTRIM(STR(N))+" колонка "+ALLTRIM(STR(1))
	ENDTRY
	mNAME=IIF((ISNULL(ZN) OR VARTYPE(ZN)<>'C'),'',ZN)
	mNAME=ALLTRIM(mNAME)

	IF NOT NOT EOF()

	SELECT SprRg
	APPEND BLANK 

	REPLACE sNAME WITH mNAME

	ENDIF
	N=N+1

	
ENDDO
SELECT SprRg
GO top
Thisform.Pgframe.Page1.Sgrid1.Refresh