Ребята,я на форуме нашёл вот такой отрывок кода ,и как я понимаю он для решения моей задачи подходит...Но в силу того ,что я в PB ещё очень зелёный(но задача от начальства поступила именно мне),то очень прошу

может кто-то привести пример кода похожего на этот что-бы импортировать простейший лист Экселя,и указать какие окна,dw или может быть какие-нибудь функции мне нужно создать в билдере что бы это всё работало...
Заранее спасибо!!


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

Да,спасибо...
Но лист Экселя не показывается в этом mle...
Хотя,видно что что-то в него загрузилось...

Спасибо ВСЕМ Огромное,вроде разобрался!!!!
Звыняйте за глупые вопросы,Ведь незаданые вопросы,хотьбы какими они не были
остаются НЕЗАДАННЫМИ!!