ReSQL.ru
     
powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как перенести параметр
7 сообщений из 7, страница 1 из 1
Как перенести параметр
    #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, 10:31
| Ответить | Цитировать | Написать  
Как перенести параметр
    #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:47
| Ответить | Цитировать | Написать  
Как перенести параметр
    #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, 11:55
| Ответить | Цитировать | Написать  
Как перенести параметр
    #39805447
asdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asdor
Участник
ularsoftVariable 'I' is not found.
Конечно.
А где вы ей значение присваиваете?
...
Рейтинг: 0 / 0
23.04.2019, 16:02
| Ответить | Цитировать | Написать  
Как перенести параметр
    #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, 17:03
| Ответить | Цитировать | Написать  
Как перенести параметр
    #39805531
ularsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ularsoft
Гость
Огромное Вам спасибо ребята! Все получилось...
...
Рейтинг: 0 / 0
23.04.2019, 19:05
| Ответить | Цитировать | Написать  
Как перенести параметр
    #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
24.04.2019, 08:58
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как перенести параметр
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=7&tid=1581665]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 276ms
total:  403ms
созд. / загр.: 403ms
x
x
Закрыть


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