Делаю так, прежде чем закачать файл XLS командой append from ... xl8:
oleApp = createobject("Excel.Application")
oleApp.Workbooks.Open(iPath)
oleItem = oleApp.Workbooks.Item(1)
oleItem.Sheets.Item(1).Columns(1).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(2).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(3).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(4).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(5).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(6).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(7).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(8).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(9).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(10).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(11).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(12).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(13).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(14).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(15).NumberFormat = "@"
oleItem.Sheets.Item(1).Columns(16).NumberFormat = "@"
oleApp.DisplayAlerts = .F.
oleApp.Save
oleApp.DisplayAlerts = .T.
oleApp.Quit
SELECT Rozdil_1
iPath="import\"-mPath
APPEND FROM (iPath) TYPE XL8
И на APPEND... вываливает с ошибкой:
OLE error code 0x80030020: A share violation has occurred.

ПОМОГИТЕ!!! КТО МОЖЕТ ПОМОГИТЕ!!! Планете Шелезяка)))