держи:
i_rc = GetFileOpenName('Select File', s_fname1, s_fname2, 'XLS', 'Excel Files (*.XLS),*.XLS')

i_file_num = FileOpen (s_fname1, StreamMode!, Write!, LockReadWrite!)

ole_book = CREATE oleobject

IF NOT IsValid(ole_book) THEN
MessageBox(This.Title, 'Create fail.', Exclamation!)
DESTROY ole_book
RETURN
END IF

i_rc = ole_book.ConnectToNewObject('excel.application')

a_any = ole_book.Application.DisplayAlerts = FALSE

a_any = ole_book.Application.WorkBooks.Open(s_fname1)

// это на случай если у тебя больше чем один воркщит
l_worksheet_knt = ole_book.Worksheets.Count

IF l_worksheet_knt > 1 THEN
FOR l_idx = 1 TO l_worksheet_knt
s_work_sheet_name[l_idx] = ole_book.Worksheets(l_idx).Name
l_work_sheet_idx[l_idx] = l_idx
NEXT

i_str_pass.s[] = s_work_sheet_name[]
i_str_pass.d[] = l_work_sheet_idx[]

message.fnv_set_str_pass(i_str_pass)

// w_parm_import_sheets = Просто построй окошко куда передаш аррэи и даш юзверю возможность выбрать нужный воркщит ...
open(w_parm_import_sheets)

i_str_pass = Message.fnv_get_str_pass()
Message.fnv_clear_str_pass()

CHOOSE CASE i_str_pass.s_action
CASE 'ok'
l_worksheet_knt = i_str_pass.d[1]

CASE ELSE
ole_sheet.DisconnectObject()
ole_book.Application.Quit
ole_book.DisconnectObject()

IF IsValid(ole_sheet) THEN
DESTROY ole_sheet
END IF

IF IsValid(ole_book) THEN
DESTROY ole_book
END IF

close(this)
RETURN
END CHOOSE
END IF

ole_sheet = ole_book.ActiveWorkBook.WorkSheets(l_worksheet_knt)

ole_book.Workbooks(1).Worksheets(l_worksheet_knt).select

ole_book.ActiveCell.CurrentRegion.Select()
ole_book.Selection.Copy()

l_row = dw_твоё_куда_надо_затянуть.ImportClipBoard(2)

ClipBoard('')

ole_sheet.DisconnectObject()
ole_book.Application.Quit
ole_book.DisconnectObject()

IF IsValid(ole_sheet) THEN
DESTROY ole_sheet
END IF

IF IsValid(ole_book) THEN
DESTROY ole_book
END IF

Если надо динамически построить dw на базе эксела тай знать я так и делаю патамушата балбесы мне всё время разные форматы подсовывают.

SvetaShmne nuzhno ne dw postroit' na baze excel a import into table .
I thought I'd use insert into....

Дык датавиндой и сделай insert.
на базе своей таблицы, напиши процедуру, на базе процедуры построй датавинду, воткни эту датавинду в окно, открой окно, загрузи его своим эксэлом, и скажи:
- датавинда ... трах-тибидух ... Update()
усё, кажетса все так делают, или я чего не так понял?
Тоды звиняйте

Дык у тебя с ole или с datawindow update проблема ???

SvetaShproblema s etim statement...

Insert into account_data (account_header_oid, type_sym, status_sym, Line_no, Unit_price)
Values (:l_ac_header_oid, :l_type_sym, :l_status_sym, :l_line_no, :l_unit_price);

ne insert i returns (-) number.

spasibo sa pomosch.

Света, то что ты написала, это не datawindow update, используй datawindow и твоя жизнь будет легче.
Ну а если всё равно не хочеш делать по человечески, запусти sql profiler, глянь шо там происходит и то что ты посылаеш, апдейт твой, кат и пэйст в query analyzer, execute, results pane, даст тебе больше объяснений