Posted: Thu Aug 06, 2009 7:04 pm Post subject: создание Excel - ошибка.
помогите найти ошибку, мне знаний пока маловато.
Если цикл работает без создания эксельфайла то все нормально.
После добавления создания эксельфайла не берет следуюшую запись из таблицы а читает всегда токо первую.
Где ошибка?
Code:
form fill_sheet.
data: wa_lfa1 type lfa1.
DATA: pr_lifnr type string,
pr_name type string,
pr_ort01 type string.
data: i type integer.
select * from LFA1 into wa_lfa1.
do.
read line sy-index.
pr_lifnr = wa_lfa1-lifnr.
pr_name = wa_lfa1-name1.
pr_ort01 = wa_lfa1-ort01.
CALL METHOD OF EXCEL 'RANGE' = CELL EXPORTING #1 = 'A1'.
SET PROPERTY OF CELL 'VALUE' = pr_lifnr.
free object cell.
Age: 48 Joined: 25 Jan 2008 Posts: 580 Location: Москва
Posted: Thu Aug 06, 2009 7:39 pm Post subject:
1.Вместо select..endselect используйте select ...into table. См. транзакцию ABAPDOCU, раздел "ABAP: Доступы к БД"
2.Судя по коду данные должны всегда писаться в первую ячейку.
3.Для выгрузки данных для начала используйте текстовые файлы: ABAPDOCU, раздел "Язык программирования ABAP - Внешнее хранение данных - работа с файлами - файлы на сервере презентации"
Если обязательно нужен excel, поищите по словам excel ole _________________ С уважением,
Удав.
1.Вместо select..endselect используйте select ...into table. См. транзакцию ABAPDOCU, раздел "ABAP: Доступы к БД"
2.Судя по коду данные должны всегда писаться в первую ячейку.
3.Для выгрузки данных для начала используйте текстовые файлы: ABAPDOCU, раздел "Язык программирования ABAP - Внешнее хранение данных - работа с файлами - файлы на сервере презентации"
Если обязательно нужен excel, поищите по словам excel ole
сама выборка работает без проблем, после добавления кода на сохранения данных в экселе цикл почемуто перестает работать и все время берет токо первую запись. вот ето мне и не понятно
Age: 180 Joined: 04 Oct 2007 Posts: 1218 Location: Санкт-Петербург
Posted: Fri Aug 07, 2009 11:14 am Post subject:
elsen wrote:
сама выборка работает без проблем, после добавления кода на сохранения данных в экселе цикл почемуто перестает работать и все время берет токо первую запись. вот ето мне и не понятно
Логика вашей программы не совсем понятна из предоставленного куска кода.
Зачем Вы считываете линии с экрана? Где тогда запись на экран?
Code:
read line sy-index
Раз Вы новичек, я предположил в посте выше, что вышеуказанные линии кода вообще не нужны, вы их добавили из-за непонимания операторов языка abap.
пример я взял отсюда http://sapnet.ru/viewtopic.php?t=1881 только мне нужна выборка из таблицы поетому изменил вконце код, теперь когда я добавляю CALL METHOD OF EXCEL сап находит первую запись а потом ругается и сообшает что надо перед выгрузкой закрыть селект вобшем тупик.
код изменил на
data: wa_lfa1 type lfa1.
DATA: pr_lifnr type string,
pr_name type string,
pr_ort01 type string,
sw_loop type i.
select * from LFA1 into wa_lfa1.
pr_lifnr = wa_lfa1-lifnr.
pr_name = wa_lfa1-name1.
pr_ort01 = wa_lfa1-ort01.
CALL METHOD OF EXCEL 'RANGE' = CELL EXPORTING #1 = 'A1'.
SET PROPERTY OF CELL 'VALUE' = pr_lifnr.
free object cell.
endselect.
p.s
если я опускаю за рамки endselect. CALL METHOD то срабатывает без ошибки и записывает в эксель но только последнюю строку ето понятно, я так понимаю что надо вогнать данные в массив а потом считывать, вот правда не знаю есть ли такая возможность в abap.
Age: 180 Joined: 04 Oct 2007 Posts: 1218 Location: Санкт-Петербург
Posted: Fri Aug 07, 2009 1:54 pm Post subject:
elsen wrote:
пример я взял отсюда http://sapnet.ru/viewtopic.php?t=1881 только мне нужна выборка из таблицы поетому изменил вконце код, теперь когда я добавляю CALL METHOD OF EXCEL сап находит первую запись а потом ругается и сообшает что надо перед выгрузкой закрыть селект вобшем тупик.
Думаю проблема в том, что внутри конструкции SELECT ... ENDSELECT, которая неявно использует курсор, нельзя делать RFC вызовы.
Измените код так, как советовал Удав.
Code:
DATA: lt_lfa1 TYPE TABLE OF lfa1.
DATA: wa_lfa1 TYPE lfa1.
DATA: pr_lifnr TYPE lfa1-lifnr,
pr_name TYPE lfa1-name1,
pr_ort01 TYPE lfa1-ort01,
sw_loop TYPE i.
огромное спасибо, тяжело когда кусками изучаеш и основы имеют огромные бреши. все изза недостатка времени, почему в сутках не 48 часов.
Спасибо выручили.
Age: 48 Joined: 25 Jan 2008 Posts: 580 Location: Москва
Posted: Fri Aug 07, 2009 2:16 pm Post subject:
tester wrote:
Конструкции select..endselect
и
select ...into table.
loop at table.
. . .
endloop.
в большинстве случаев сравнимы по производительности,
поэтому именно в этом случае такая замена особого смысла не имеет.
Честно?
А примеры производительности в SE38 когда последний раз смотрели?
Кроме этого, при сложной обработке внутри SELECT .. ENDSELECT возможны случаи, когда обработка падает в дамп из-за слишком долгого выполнения обработки.
+vga правильно сказал про RFC-вызовы. _________________ С уважением,
Удав.
Age: 47 Joined: 14 Nov 2008 Posts: 300 Location: Russia
Posted: Wed Mar 31, 2010 7:01 pm Post subject:
Удав wrote:
tester wrote:
Конструкции select..endselect
и
select ...into table.
loop at table.
. . .
endloop.
в большинстве случаев сравнимы по производительности,
поэтому именно в этом случае такая замена особого смысла не имеет.
Честно?
А примеры производительности в SE38 когда последний раз смотрели
А зачем? На глазок и так видно 2 tester: насчет оптимизации/производительности вам сюда. А то пацаны-то и не знают про SELECT ... ENDSELECT, как валенки INTO TABLE, а затем LOOP ... ENDLOOP юзают.
А пока:
Удав wrote:
См. транзакцию ABAPDOCU, раздел "ABAP: Доступы к БД".
include ole2incl. " OLE Automation Controller: OLE Typen
data: l_ref type ref to data ,
lt_dd02l type table of dd02l ,
h_excel type ole2_object , " Excel object
h_book type ole2_object , " Workbook
h_mapl type ole2_object , " list of workbooks
h_zl type ole2_object , " cell
h_f type ole2_object , " font BOLD Fett=1, Normal=0
col , " color 1=Schwarz, 2=weiss, 3=rot, 4=grün, 5=blau, 6=gelb
h type i , " meter headline in EXCEL-SHEET
h2 type i , " meter value data in EXCEL-SHEET
t type i , " meter <table>
lt_nametab type table of dntab ,
ls_nametab like line of lt_nametab .
field-symbols: <table> type standard table,
<line> type any ,
<data> .
*--- Init color
col = 3. " rot
*--- Selections parameters
parameters: tabname type dd03l-tabname obligatory.
*--- Check Table
select tabname from dd02l into table lt_dd02l
where tabname eq tabname.
if sy-subrc ne 0.
message i007(e2) with tabname.
exit.
endif.
*--- Get data
create data l_ref type table of (tabname).
assign l_ref->* to <table>.
select * from (tabname) into table <table> .
*--- Start Excel
create object h_excel 'EXCEL.APPLICATION'.
set property of h_excel 'Visible' = 1. "#EC NOTEXT " 1 visible / 0 invisible
call method of h_excel 'Workbooks' = h_book.
call method of h_book 'Add' = h_mapl.
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting
text = 'Zeillen in Excel füllen ...'(001)
exceptions
others = 1.
*--- Get nametab for headline in EXCEL-SHEET
call function 'NAMETAB_GET'
exporting
langu = sy-langu
tabname = tabname
tables
nametab = lt_nametab
exceptions
no_texts_found = 1.
*--- Fill headline in EXCEL-SHEET from nametab
clear h.
loop at lt_nametab into ls_nametab.
h = h + 1.
if h = 256.
exit.
endif.
call method of h_excel 'Cells' = h_zl
exporting
#1 = 1 " Zeile
#2 = h. " Spalte
set property of h_zl 'Value' = ls_nametab-fieldname . "#EC NOTEXT
get property of h_zl 'Font' = h_f. "#EC NOTEXT
set property of h_f 'ColorIndex' = col .
set property of h_f 'Bold' = 1 . "#EC NOTEXT " 1 fett / 0
endloop.
*--- Fill value data in EXCEL-SHEET
create data l_ref type (tabname).
assign l_ref->* to <line>.
loop at <table> assigning <line>.
t = sy-tabix + 1.
clear h2.
while sy-subrc = 0.
h2 = h2 + 1.
if h2 = 256.
exit.
endif.
assign component sy-index of structure <line> to <data>.
check sy-subrc = 0.
call method of h_excel 'Cells' = h_zl
exporting
#1 = t " Zeile
#2 = h2. " Spalte
set property of h_zl 'Value' = <data>. "#EC NOTEXT
get property of h_zl 'Font' = h_f. "#EC NOTEXT
set property of h_f 'ColorIndex' = col .
set property of h_f 'Bold' = 0 . "#EC NOTEXT " 1 fett / 0
endwhile.
if sy-subrc ne 0.
sy-subrc = 0.
continue.
endif.
endloop.
*--- Disconnect from Excel and save
CALL METHOD OF h_mapl 'SaveAs' EXPORTING #1 = 'C:\test1.xls'.
call method of h_mapl 'CLOSE'.
call method of h_book 'CLOSE'.
call method of h_excel 'QUIT'.
free object h_mapl.
free object h_book.
free object h_excel.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
