Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / OLE, Word , создание таблиц / 20 сообщений из 20, страница 1 из 1
07.10.2010, 12:37
    #36886756
SergeyAKa
SergeyAKa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
Как из под формса создать таблицу в Word с использованием OLE?

Вот текст скрипта в VBScript

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
    Sub Макрос5()

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:= 2 , NumColumns:= _
         2 , DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables( 1 )
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Selection.Tables( 1 ).Columns( 1 ).SetWidth ColumnWidth:= 86 . 4 , RulerStyle:= _
        wdAdjustNone
    Selection.Tables( 1 ).Columns( 2 ).SetWidth ColumnWidth:= 369 , RulerStyle:= _
        wdAdjustNone
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2010, 13:18
    #36886937
OmegaMale
OmegaMale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
SergeyAKa,

встроенный пакет OLE2.
То есть, вам всего лишь нужно транслировать код из VB в PL/SQL
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
DECLARE
  app OLE2.OBJ_TYPE;
  arg  OLE2.LIST_TYPE;
BEGIN
  app := OLE2.CREATE_OBJ('Word.Application');
  
  --
  -- Далее получаете все необходимые объекты - документ, коллецию таблиц, используя
  -- OLE2.GET_OBJ_PROPERTY(...);
  -- OLE2.INVOKE%
  -- Если метод или свойство используют параметры, то используйте ARG
  arg := OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG(arg,'my parameter's value');
  OLE2.INVOKE(...,arg);
  OLE2.DESTROY_ARGLIST(arg);

  OLE2.RELEASE_OBJ(app);
END;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2010, 17:13
    #36887693
Jacobs Kaive
Jacobs Kaive
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
OmegaMaleSergeyAKa,

встроенный пакет OLE2.
То есть, вам всего лишь нужно транслировать код из VB в PL/SQL


А лучше ОДИН раз написать функцию которая будет понимать команды
типа ActiveSheet.Cells(1,1).Value='test'

И никогда не мучаться с "транслировать код из VB в PL/SQL
" !!!!!!!!!!! ))))))))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 05:15
    #36888384
SergeyAKa
SergeyAKa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
Jacobs KaiveOmegaMaleSergeyAKa,

встроенный пакет OLE2.
То есть, вам всего лишь нужно транслировать код из VB в PL/SQL


А лучше ОДИН раз написать функцию которая будет понимать команды
типа ActiveSheet.Cells(1,1).Value='test'

И никогда не мучаться с "транслировать код из VB в PL/SQL
" !!!!!!!!!!! ))))))))))

А причем тут экзель?

Разговор идет о вордовских таблицах. Это не совсем одно и то же


Давайте совместно сделаем библиотеку с набором функций для работы с вордом. С экзелем как-то проще.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 10:32
    #36888622
OmegaMale
OmegaMale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
SergeyAKa,

да таких библиотек, мне кажется, навалом... почти каждый, кто сталкивается, пишет свою. У меня на текущем месте работы штуки две от предыдущих прогеров.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 10:33
    #36888625
SergeyAKa
SergeyAKa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
OmegaMaleSergeyAKa,

да таких библиотек, мне кажется, навалом... почти каждый, кто сталкивается, пишет свою. У меня на текущем месте работы штуки две от предыдущих прогеров.

Если есть,то плизз, дай кусок для работы с таблицами, а то весь инет перерыл уже.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 10:52
    #36888690
Jacobs Kaive
Jacobs Kaive
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
SergeyAKaJacobs KaiveOmegaMaleSergeyAKa,

встроенный пакет OLE2.
То есть, вам всего лишь нужно транслировать код из VB в PL/SQL


А лучше ОДИН раз написать функцию которая будет понимать команды
типа ActiveSheet.Cells(1,1).Value='test'

И никогда не мучаться с "транслировать код из VB в PL/SQL
" !!!!!!!!!!! ))))))))))

А причем тут экзель?

Разговор идет о вордовских таблицах. Это не совсем одно и то же


Давайте совместно сделаем библиотеку с набором функций для работы с вордом. С экзелем как-то проще.

Ты не понял, я говорю об универсальной библиотеке работы с OLE серверами.
Ей на вход даешь строку, а она ее парсит и вызывает разные OLE2.INVOKE и OLE2.ADD_ARG и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 11:06
    #36888745
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
SergeyAKaOmegaMaleSergeyAKa,

да таких библиотек, мне кажется, навалом... почти каждый, кто сталкивается, пишет свою. У меня на текущем месте работы штуки две от предыдущих прогеров.

Если есть,то плизз, дай кусок для работы с таблицами, а то весь инет перерыл уже.

посмотри этот вариант
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 11:13
    #36888765
OmegaMale
OmegaMale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
Вот ссылка, там код есть:
http://www.tek-tips.com/viewthread.cfm?qid=319377&page=55
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 12:03
    #36888930
Leonid Kudryavtsev
Leonid Kudryavtsev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
Jacobs Kaive
...
Ты не понял, я говорю об универсальной библиотеке работы с OLE серверами.
Ей на вход даешь строку, а она ее парсит и вызывает разные OLE2.INVOKE и OLE2.ADD_ARG и т.д.

Ага... А как ты будешь например понимать, где вызов метода, а где обращение к свойству?

Например.

ITEMS( 2 )

может быть и INVOKE, а может быть и GET_PROPERTY

Это надо грузить библиотеку типов от соответствующего сервера и т.д. Гемор еще тот.

Опять таки, как передавать переменные в данную библиотеку. В "команде" ActiveSheet.Cells(1,1).Value='test' целые три потенциальные "bind" переменные (1,1,test). Хорошо, глобальные переменные и поля Forms можно брать из PRO*C. Но локальные переменные PL/SQL так не подключишь.

В общем .... усилий много, а пользоваться такой универсальной библиотекой все равно будет не удобно. IMHO.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 12:54
    #36889100
SergeyAKa
SergeyAKa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
OmegaMaleВот ссылка, там код есть:
http://www.tek-tips.com/viewthread.cfm?qid=319377&page=55

Попытался, но в итоге форм не смог найти
OLE2.ADD_ARG_OBJ.
Видать 4.5 про это еще не знает
Заменил на
OLE2.ADD_ARG(args, hRange); --Range

И в итоге на строчке
hTable := OLE2.INVOKE_OBJ(hTables, 'Add', args);
вылетает
User-Defined Exception


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
	hSelection 	:= OLE2.GET_OBJ_PROPERTY(oWord, 'Selection');   
   	hRange  	:= OLE2.GET_OBJ_PROPERTY(hSelection, 'Range');    	 
	hDocument 	:= OLE2.get_obj_property(oWord, 'ActiveDocument');
	hTables 	:= OLE2.GET_OBJ_PROPERTY(hDocument , 'Tables' );


	args 		:= OLE2.CREATE_ARGLIST;   

	--создать таблицу
 	OLE2.ADD_ARG_OBJ(args, hRange);            --Range
	OLE2.ADD_ARG(args,  3 );                     --NumRows
	OLE2.ADD_ARG(args,  2 );                     --NumColumns
	OLE2.ADD_ARG(args, wdWord9TableBehavior);  --DefaultTableBehavior
   	OLE2.ADD_ARG(args, wdAutoFitContent);      --AutoFitBehavior

 	hTable := OLE2.INVOKE_OBJ(hTables, 'Add', args);

   	OLE2.DESTROY_ARGLIST(args);
   	OLE2.RELEASE_OBJ(hTable);
   	OLE2.RELEASE_OBJ(hRange);
   	OLE2.RELEASE_OBJ(hTables);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 13:58
    #36889328
OmegaMale
OmegaMale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
SergeyAKa,

скажу даже больше, я не смог заставить работать в Forms 6 эту процедуру... вернее, она работает, но потом когда идёт вызов метода, он вылетает с исключением, посмотрев код которого обнаружил, что передаваемое значение воспринимается как пустое :( В чём причина не понял, но смог обойти в том случае эту проблему. Возможно, есть патчи, исправляющие данную проблему.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 14:03
    #36889343
OmegaMale
OmegaMale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
вот здесь я упёрся в это:

http://www.sql.ru/forum/actualthread.aspx?tid=778042#9186098
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 14:07
    #36889364
SergeyAKa
SergeyAKa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
OmegaMaleSergeyAKa,

скажу даже больше, я не смог заставить работать в Forms 6 эту процедуру... вернее, она работает, но потом когда идёт вызов метода, он вылетает с исключением, посмотрев код которого обнаружил, что передаваемое значение воспринимается как пустое :( В чём причина не понял, но смог обойти в том случае эту проблему. Возможно, есть патчи, исправляющие данную проблему.

На шестерке заработал кусок. Табличку рисует.
Только такой гемор перетаскивать весь функционал на шестерку.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
DECLARE
   hApplication      OLE2.OBJ_TYPE;
   hDocuments        OLE2.OBJ_TYPE;
   hDocument         OLE2.OBJ_TYPE;
   hSelection        OLE2.OBJ_TYPE;
   hRange            OLE2.OBJ_TYPE;
   hTables           OLE2.OBJ_TYPE;
   hTable            OLE2.OBJ_TYPE;
   hCells            OLE2.OBJ_TYPE;
   hRows             OLE2.OBJ_TYPE;
   hShading          OLE2.OBJ_TYPE;
   hParagraphFormat  OLE2.OBJ_TYPE;
   hFont             OLE2.OBJ_TYPE;
   
   args              OLE2.LIST_TYPE;       
   
   ---- wdDefaultTableBehavior Class members
   wdWord8TableBehavior      CONSTANT number( 5 ) :=   0 ;  --Default
   wdWord9TableBehavior      CONSTANT number( 5 ) :=   1 ;
   
   ---- wdAutoFitBehavior Class members
   ---- (only works when DefaultTableBehavior = wdWord9TableBehavior)
   wdAutoFitContent          CONSTANT number( 5 ) :=   1 ;
   wdAutoFitFixed            CONSTANT number( 5 ) :=   0 ;
   wdAutoFitWindow           CONSTANT number( 5 ) :=   2 ;
   
   ---- wdUnits Class members  
   wdCell                    CONSTANT number( 5 ) :=  12 ;
   wdCharacter               CONSTANT number( 5 ) :=   1 ;   --Default
   wdWord                    CONSTANT number( 5 ) :=   2 ;
   wdSentence                CONSTANT number( 5 ) :=   3 ;
   wdLine                    CONSTANT number( 5 ) :=   5 ;
   
   ---- wdMovementType Class members
   wdExtend                  CONSTANT number( 5 ) :=   1 ;
   wdMove                    CONSTANT number( 5 ) :=   0 ;   --Default
   
   ---- WdParagraphAlignment Class members
   wdAlignParagraphCenter    CONSTANT number( 5 ) :=   1 ;
   wdAlignParagraphLeft      CONSTANT number( 5 ) :=   0 ;
   wdAlignParagraphRight     CONSTANT number( 5 ) :=   2 ;
   
   ---- HexColor = BBGGRR
   myLightBlue               CONSTANT number( 8 ) :=  16755370 ; --FFAAAA
   
   
BEGIN
   hApplication := OLE2.CREATE_OBJ('Word.Application');
   OLE2.SET_PROPERTY(hApplication, 'Visible',  1 );
   
   hDocuments := OLE2.GET_OBJ_PROPERTY(hApplication, 'Documents');   
   hDocument  := OLE2.INVOKE_OBJ(hDocuments,'Add');                  
   
   ------------------------------
   -------- Create Table --------
   ------------------------------
   hSelection := OLE2.GET_OBJ_PROPERTY(hApplication, 'Selection');    
   hTables := OLE2.GET_OBJ_PROPERTY(hDocument , 'Tables' );
   hRange  := OLE2.GET_OBJ_PROPERTY(hSelection, 'Range');    
   args := OLE2.CREATE_ARGLIST;   
   OLE2.ADD_ARG_OBJ(args, hRange);            --Range
   OLE2.ADD_ARG(args,  3 );                     --NumRows
   OLE2.ADD_ARG(args,  2 );                     --NumColumns
   OLE2.ADD_ARG(args, wdWord9TableBehavior);  --DefaultTableBehavior
   OLE2.ADD_ARG(args, wdAutoFitContent);      --AutoFitBehavior
   hTable := OLE2.INVOKE_OBJ(hTables, 'Add', args);
   OLE2.DESTROY_ARGLIST(args);
   OLE2.RELEASE_OBJ(hTable);
   OLE2.RELEASE_OBJ(hRange);
   OLE2.RELEASE_OBJ(hTables);
    
   ------------------------------------------
   -------- Create and Format Header --------
   ------------------------------------------
   ---- Select 2 cells at the top of table
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCharacter);           --Unit
   OLE2.ADD_ARG(args,  2 );                     --Count
   OLE2.ADD_ARG(args, wdExtend);              --Extend
   OLE2.INVOKE(hSelection, 'MoveRight', args);
   OLE2.DESTROY_ARGLIST(args);    
   
   ---- Merge those 2 cells into 1 cell
   hcells := OLE2.GET_OBJ_PROPERTY(hSelection, 'Cells');    
   OLE2.INVOKE(hCells, 'Merge');
   
   ---- Add next 2 cells to the selection
   ---- (next 2 cells are actually row 2)
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCharacter);           --Unit
   OLE2.ADD_ARG(args,  2 );                     --Count
   OLE2.ADD_ARG(args, wdExtend);              --Extend
   OLE2.INVOKE(hSelection, 'MoveRight', args);
   OLE2.DESTROY_ARGLIST(args);    
   
   ---- Set color of selected cells
   hcells := OLE2.GET_OBJ_PROPERTY(hSelection, 'Cells');    
   hShading := OLE2.GET_OBJ_PROPERTY(hCells,   'Shading');    
   OLE2.SET_PROPERTY(hShading, 'BackgroundPatternColor', myLightBlue);
   OLE2.RELEASE_OBJ(hShading);
   OLE2.RELEASE_OBJ(hCells);
   
   ---- Set selected cells to be Bold Header
   hrows := OLE2.GET_OBJ_PROPERTY(hSelection, 'Rows');    
   OLE2.SET_PROPERTY(hRows, 'AllowBreakAcrossPages', True);
   OLE2.SET_PROPERTY(hRows, 'HeadingFormat', True);
   OLE2.RELEASE_OBJ(hRows);
   hFont := OLE2.GET_OBJ_PROPERTY(hSelection, 'Font');    
   OLE2.SET_PROPERTY(hFont, 'Bold', True);
   OLE2.RELEASE_OBJ(hFont);
   
   ---- Move to Header row 1, set text and center
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCharacter);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveLeft', args);
   OLE2.DESTROY_ARGLIST(args);
   
   hParagraphFormat := OLE2.GET_OBJ_PROPERTY(hSelection, 'ParagraphFormat');    
   OLE2.SET_PROPERTY(hParagraphFormat, 'Alignment', wdAlignParagraphCenter);
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, 'Sales');
   OLE2.INVOKE(hSelection, 'TypeText', args);
   OLE2.DESTROY_ARGLIST(args);
   
   ---- Move to Header row 2/cell 1, set text
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCell);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveRight', args);
   OLE2.DESTROY_ARGLIST(args);
   
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, 'Product');
   OLE2.INVOKE(hSelection, 'TypeText', args);
   OLE2.DESTROY_ARGLIST(args);
   
   ---- Move to Header row 2/cell 2, set text and right align
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCell);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveRight', args);
   OLE2.DESTROY_ARGLIST(args);
   
   hParagraphFormat := OLE2.GET_OBJ_PROPERTY(hSelection, 'ParagraphFormat');    
   OLE2.SET_PROPERTY(hParagraphFormat, 'Alignment', wdAlignParagraphRight);
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, 'Amount');
   OLE2.INVOKE(hSelection, 'TypeText', args);
   OLE2.DESTROY_ARGLIST(args);
   
   ---- Move row 3/cell 2, right align
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdLine);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveDown', args);
   OLE2.DESTROY_ARGLIST(args);
   hParagraphFormat := OLE2.GET_OBJ_PROPERTY(hSelection, 'ParagraphFormat');    
   OLE2.SET_PROPERTY(hParagraphFormat, 'Alignment', wdAlignParagraphRight);
   
   ---- Move back to first cell
   args := OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, wdCell);
   OLE2.ADD_ARG(args,  1 );
   OLE2.ADD_ARG(args, wdMove);
   OLE2.INVOKE(hSelection, 'MoveLeft', args);
   OLE2.DESTROY_ARGLIST(args);
   
   
 --------------------------
   --------------------------
   OLE2.RELEASE_OBJ(hParagraphFormat);
   OLE2.RELEASE_OBJ(hSelection);
   OLE2.RELEASE_OBJ(hDocument);
   OLE2.RELEASE_OBJ(hDocuments);
   OLE2.RELEASE_OBJ(hApplication);
   
   message('Task is Done.');
   message('Task is Done.');
EXCEPTION
   WHEN others THEN
      message('Error');
      message('Error');
END;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 15:20
    #36889647
OmegaMale
OmegaMale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
SergeyAKa,

а какая версия, если не секрет (билд) работает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2010, 16:27
    #36889862
Jacobs Kaive
Jacobs Kaive
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
Leonid KudryavtsevJacobs Kaive
...
Ты не понял, я говорю об универсальной библиотеке работы с OLE серверами.
Ей на вход даешь строку, а она ее парсит и вызывает разные OLE2.INVOKE и OLE2.ADD_ARG и т.д.

Ага... А как ты будешь например понимать, где вызов метода, а где обращение к свойству?

Например.

ITEMS( 2 )

может быть и INVOKE, а может быть и GET_PROPERTY

Это надо грузить библиотеку типов от соответствующего сервера и т.д. Гемор еще тот.

Опять таки, как передавать переменные в данную библиотеку. В "команде" ActiveSheet.Cells(1,1).Value='test' целые три потенциальные "bind" переменные (1,1,test). Хорошо, глобальные переменные и поля Forms можно брать из PRO*C. Но локальные переменные PL/SQL так не подключишь.

В общем .... усилий много, а пользоваться такой универсальной библиотекой все равно будет не удобно. IMHO.


Где применять invoke а где GET_PROPERTY это задача библиотеки-интерпретатора.
Все переменные конкатенируются в скрипт команду.
пользоваться ОЧЕНЬ удобно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2010, 09:20
    #36890666
SergeyAKa
SergeyAKa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
OmegaMaleSergeyAKa,

а какая версия, если не секрет (билд) работает?

4.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2010, 09:12
    #36891880
OmegaMale
OmegaMale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
SergeyAKa, а ещё точнее, Вы сказали, что на 6i тоже работает, на какой точнее можете собщить? У меня
Код: plaintext
1.
Forms [32 Bit] Version 6.0.8.23.2 (Production)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2010, 16:20
    #36892974
SergeyAKa
SergeyAKa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
Forms 6.0.8.28.0
Я на исходный еще патч накатывал. Это уже после патча
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2010, 16:41
    #36893053
OmegaMale
OmegaMale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLE, Word , создание таблиц
SergeyAKa,
спасибо, тогда проверю с патчем будет работать/нет.

А Вам, если с Word не очень сложные действия нужны, то можно попробовать формировать XML-файл, а потом вордом его открывать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / OLE, Word , создание таблиц / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 741ms
Закрыть
start [/forum/search_topic.php?author=%D0%90%D0%BB%D0%B5%D0%BA%D1%81%D0%B0%D0%BD%D0%B4%D1%80555&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 14ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 173ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 440ms
total:  741ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]