Лови.
Если под "excel-таблице" имеетса ввиду эксэл филе, то думаю енто то что тебе нужно, добавь только эрор чекинг, если нет, то звиняйте, неправильно понял.

i_irc = GetFileOpenName('Select File', s_fname1, s_fname2, 'XLS', 'Excel Files (*.XLS),*.XLS')
i_irc = FileOpen (s_fname1, StreamMode!, Write!, LockReadWrite!)

IF i_irc > 0 THEN
FileClose(i_irc)
ELSE
MessageBox(This.Title, 'Selected file is currently open.~n' + &
'Please close it to continued.', Exclamation!)
close(this)
RETURN
END IF

SetPointer(HourGlass!)

// Create ole ...
ole_book = CREATE oleobject

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

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

IF i_irc <> 0 THEN
MessageBox(This.Title, 'Unable to connect to excel application.', Exclamation!)
DESTROY ole_book
Close(This)
RETURN
END IF

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

// Get the Active WorkSheet reference ...
ole_sheet = ole_book.ActiveWorkBook.WorkSheets(1)

l_last_row = ole_sheet.application.workbooks(1).worksheets(1).Cells.SpecialCells(11).row

dw_1.SetRedraw (FALSE)
dw_2.SetRedraw (FALSE)

FOR l_row = 1 TO l_last_row
s_row = string(l_row)


s_test = string(ole_sheet.Range('A' + s_row).Value)
s_test2 = string(ole_sheet.Range('B' + s_row).Value)
s_test3 = string(ole_sheet.Range('D' + s_row).Value)


l_row2 = dw_1.InsertRow(0)

dw_1.SetItem(l_row2, 'col_1', s_test)
dw_1.SetItem(l_row2, 'col_2', s_test2)

l_row3 = dw_2.InsertRow(0)

dw_2.SetItem(l_row3, 'col_1', s_test3)

NEXT

dw_1.SetRedraw (TRUE)
dw_2.SetRedraw (TRUE)

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

MirkaЗаведомо мне неизвестно сколько будет строк в excel-таблице. Как прописать в скрипте ,чтобы записала в DW все строки до пустой записи последней строки. И не в одну DW,а в две.Колонку А и Д в dw_1,а колонку А и Е в dw_2?Подскажите, покажите пожалуйста

Я почему так сделал - мне через раз файлы говняные подкидывают, типа там где long должен быть, балбесы втыкают datetime и т.д.

Я после "s_test = string(ole_sheet.Range('A' + s_row).Value)", в рабочем коде проверяю с "IsNumber ( string )" и т.д. И если валидация не прошла, выхожу из лупа и выбрасываю MessageBox('', 'Файл не good')

ErmakМожно конечно и так, как у voronk, только будет медленно.
Я делаю по другому.
1. Данные из Excel'я имортирую в текстовый файл.
2. Данные из текстового файла импортирую в DataWindow см ImportFromFile(...)
Там есть то, что Вам нужно, см. аргументы startColumn и endColumn.

Импортировать можно:
- вручную
- из PB через использование Oleobject, см. пример выше