SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Загрузка значений в EXCEL.



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP
View previous topic :: View next topic  
Author Message
pavell
Участник
Участник



Joined: 20 Jun 2012
Posts: 28

PostPosted: Mon Aug 12, 2013 7:35 pm    Post subject: Загрузка значений в EXCEL. Reply with quote

Не могу понять почему в Excel создается только один лист, цикл проходит 2 раза. Документ создается после первого прохода и больше ничего не происходит. Подскажите, пожалуйста, где может быть ошибка.

INCLUDE ole2incl.
DATA :lh_excel TYPE ole2_object,
lh_mapl TYPE ole2_object,
lh_map TYPE ole2_object,
lh_sheet TYPE ole2_object,
lh_cells TYPE ole2_object,
lh_column TYPE ole2_object.

DATA: lt_val TYPE TABLE OF string.

DATA : lv_row TYPE i,
lv_col TYPE i,
l_path TYPE string.
DATA name TYPE string.
DATA l_list TYPE i.

CREATE OBJECT lh_excel 'EXCEL.APPLICATION'.
SET PROPERTY OF lh_excel 'Visible' = 1.
CALL METHOD OF lh_excel 'WORKBOOKS' = lh_mapl.
CALL METHOD OF lh_mapl 'ADD' = lh_map.

DO 2 TIMES.

l_list = sy-index.

IF l_list = 1.
name = 'List1'.
ELSE.
name = 'List2'.
ENDIF.

CALL METHOD OF lh_excel 'WORKSHEETS' = lh_sheet
EXPORTING #1 = sy-index .
CALL METHOD OF lh_sheet 'ACTIVATE'.
SET PROPERTY OF lh_sheet 'NAME' = name.


CALL METHOD OF lh_sheet 'Cells' = lh_cells
EXPORTING
#1 = 1
#2 = 1.
SET PROPERTY OF lh_cells 'VALUE' = 'test_val'.
CALL METHOD OF lh_excel 'Columns' = lh_column.
CALL METHOD OF lh_column 'Autofit'.

CALL METHOD OF lh_sheet 'SaveAs'
EXPORTING
#1 = 'C:\test.xls'
#2 = 1.
FREE OBJECT lh_sheet.

ENDDO.
FREE OBJECT lh_mapl.
FREE OBJECT lh_excel.
lh_excel-handle = -1.
Back to top
View user's profile Send private message
Кодер
Участник
Участник



Joined: 11 Apr 2012
Posts: 27

PostPosted: Wed Aug 14, 2013 9:31 am    Post subject: Reply with quote

Вы получаете листы по sy-index. Он считается с 1, а айтемы в коллекциях экселя нумеруются с 0.
Back to top
View user's profile Send private message
alezhu
Специалист
Специалист



Joined: 29 Apr 2012
Posts: 86
Location: Spb

PostPosted: Wed Aug 14, 2013 10:04 am    Post subject: Re: Загрузка значений в EXCEL. Reply with quote

pavell wrote:
Не могу понять почему в Excel создается только один лист, цикл проходит 2 раза.

У меня это код работает так как задумано. В настройках Excel сколько стоит в параметре Число листов при создании новой книги?
Кодер wrote:
айтемы в коллекциях экселя нумеруются с 0

C 1цы.
Back to top
View user's profile Send private message
pavell
Участник
Участник



Joined: 20 Jun 2012
Posts: 28

PostPosted: Wed Aug 14, 2013 11:35 am    Post subject: Re: Загрузка значений в EXCEL. Reply with quote

alezhu wrote:
pavell wrote:
Не могу понять почему в Excel создается только один лист, цикл проходит 2 раза.

У меня это код работает так как задумано. В настройках Excel сколько стоит в параметре Число листов при создании новой книги?
Кодер wrote:
айтемы в коллекциях экселя нумеруются с 0

C 1цы.


В настройках Excel создавался один лист, поставил больше и все заработало как нужно. Спасибо огромное!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
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.