Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как перенести параметр / 7 сообщений из 7, страница 1 из 1
23.04.2019, 10:31
    #39805224
ularsoft
ularsoft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перенести параметр
Всем добрый день!

Экспортирую данные используя шаблон в Excel'е с несколькими PRG на Fox'е
 
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
xl=CREATEOBJECT('excel.application')
xl.WorkBooks.open(ALLTRIM(sysfile.s_pathfwp)+'CHARG.xlt')
xl.Visible= .T.

DO p252a_11 WITH m_date1,m_date2
DO p252a_22 WITH m_date1,m_date2
DO p252a_33 WITH m_date1,m_date2
DO p252a_44 WITH m_date1,m_date2
DO p252a_55 WITH m_date1,m_date2

ThisForm.Release


где, m_date1 - начальная дата, m_date2 - конечная дата

1) p252a_11.prg
 
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
LPARAMETERS m_date1,m_date2

xl.Workbooks(1).Sheets(1).Select
xl.WorkBooks(1).Sheets(1).Range('B6').Value='FROM '+DTOC(m_date1)+' TO '+DTOC(m_date2)
xl.WorkBooks(1).Sheets(1).Range('B6').Font.Bold=1
xl.WorkBooks(1).Sheets(1).Range('B9').Select
xl.ActiveWindow.FreezePanes = 1
xl.Workbooks(1).Sheets(1).Range('B'+ALLTRIM(STR(i,3))).Select
xl.Selection.Value=''
xl.Workbooks(1).Sheets(1).Range('C'+ALLTRIM(STR(i,3))).Select
xl.Selection.Value=''



2) p252a_22.prg
 
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
xl.Workbooks(1).Sheets(1).Range('C'+ALLTRIM(STR(i+1,3))).Select
xl.Selection.Value='*** Other 1 ***'
xl.Workbooks(1).Sheets(1).Range('C'+ALLTRIM(STR(i+1,3))).Font.Bold=1
xl.Workbooks(1).Sheets(1).Range('A'+ALLTRIM(STR(i+1,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('B'+ALLTRIM(STR(i+1,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('C'+ALLTRIM(STR(i+1,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('D'+ALLTRIM(STR(i+1,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('E'+ALLTRIM(STR(i+1,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('F'+ALLTRIM(STR(i+1,3))).Interior.ColorIndex = 35



3) p252a_33.prg
 
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
xl.Workbooks(1).Sheets(1).Range('C'+ALLTRIM(STR(i+2,3))).Select
xl.Selection.Value='*** Other 2 ***'
xl.Workbooks(1).Sheets(1).Range('C'+ALLTRIM(STR(i+2,3))).Font.Bold=1
xl.Workbooks(1).Sheets(1).Range('A'+ALLTRIM(STR(i+3,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('B'+ALLTRIM(STR(i+2,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('C'+ALLTRIM(STR(i+2,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('D'+ALLTRIM(STR(i+2,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('E'+ALLTRIM(STR(i+2,3))).Interior.ColorIndex = 35
xl.Workbooks(1).Sheets(1).Range('F'+ALLTRIM(STR(i+2,3))).Interior.ColorIndex = 35



Как передать i на p252a_22.prg, p252a_33.prg и т.д. чтобы получить следующую строку в Excel'е?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2019, 11:47
    #39805289
PaulWist
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перенести параметр
Код: sql
1.
2.
3.
4.
5.
Private i

xl=CREATEOBJECT('excel.application')
xl.WorkBooks.open(ALLTRIM(sysfile.s_pathfwp)+'CHARG.xlt')
xl.Visible= .T.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2019, 11:55
    #39805298
ularsoft
ularsoft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перенести параметр
PaulWist
Код: sql
1.
2.
3.
4.
5.
Private i

xl=CREATEOBJECT('excel.application')
xl.WorkBooks.open(ALLTRIM(sysfile.s_pathfwp)+'CHARG.xlt')
xl.Visible= .T.


Variable 'I' is not found.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2019, 16:02
    #39805447
asdor
asdor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перенести параметр
ularsoftVariable 'I' is not found.
Конечно.
А где вы ей значение присваиваете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2019, 17:03
    #39805484
ularsoft
ularsoft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перенести параметр
в p252a_11.prg

 
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
LPARAMETERS m_date1,m_date2

xl.Workbooks(1).Sheets(1).Select
xl.WorkBooks(1).Sheets(1).Range('B6').Value='FROM '+DTOC(m_date1)+' TO '+DTOC(m_date2)
xl.WorkBooks(1).Sheets(1).Range('B6').Font.Bold=1
i=10
xl.Workbooks(1).Sheets(1).Range('B'+ALLTRIM(STR(i,3))).Select
xl.Selection.Value=''
xl.Workbooks(1).Sheets(1).Range('C'+ALLTRIM(STR(i,3))).Select
xl.Selection.Value=''

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.04.2019, 19:05
    #39805531
ularsoft
ularsoft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перенести параметр
Огромное Вам спасибо ребята! Все получилось...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2019, 08:58
    #39805629
Sergey Sizov
Sergey Sizov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перенести параметр
ularsoft,

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
Lparameters m_date1,m_date2

With xl.WorkBooks(1).Sheets(1)
  .Range('B6').Value='FROM '+Dtoc(m_date1)+' TO '+Dtoc(m_date2)
  .Range('B6').Font.Bold=1
  i=10
  .Range(.cells(i, 2).Value = ''
  .Range(.cells(i, 3).Value = ''
Endwith


Ни на какие мысли не наводит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как перенести параметр / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 500ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1581665]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 165ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 246ms
total:  500ms
x
x
Закрыть


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