Форум программистов, компьютерный форум, киберфорум
Visual FoxPro
Форум программистов и сисадминов Киберфорум > Форум программистов > Базы данных > Visual FoxPro
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.76/74: Рейтинг темы: голосов - 74, средняя оценка - 4.76
0 / 0 / 0
Регистрация: 10.09.2013
Сообщений: 2

Как выводить данных с FoxPro8 в Excel

10.09.2013, 15:22. Показов 14646. Ответов 6
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Фергана, Узбекистан
Добрый день!!!
У меня в программе, которую я создал в FoxPro 8 , есть форма – аванс, есть база к ней с полями –
1) tabnum – табельный номер
2) fam – Фамилия сотрудника
3) name – Имя сотрудника
4) avanssum- Сумма аванса
В форме создал кнопки ввода, перемещение, поиск, выход. Никак не могу создать кнопку для вывода данных в шаблон форму в Excel. Как создать это? Прошу помочь? Если можно с примером!!! Заранее благодарен.
0
Лучшие ответы (1)
Сообщение: #5038685
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 10.09.2013, 15:22
Ответы с готовыми решениями:

FoxPro8.0. Индексный поиск
В общем ситуация такая. Есть таблица 'рейс' с индексом "kod". Индекс построен по столбцу "код_авиако. Столбец заполнен...

Как заставить программу выводить результаты в файл Excel?
Можно ли сделать так, чтобы программа сохраняла получаемые результаты (последовательность чисел) в файл Microsoft Excel? Т.е. первое...

Как выводить изображение из базы данных?
Как выводить изображение из базы данных в VB NET,и через какой элемент, а то OLE Conteiner, как в VB6 в уже нет.

6
 Аватар для FoxArGon
16 / 16 / 1
Регистрация: 21.05.2012
Сообщений: 83
10.09.2013, 17:13
Лучший ответ Сообщение было отмечено Metall_Version как решение

Решение

не так все и сложно
я приведу пример, причем, после которого у вас не должно возникнуть вопросов
Кликните здесь для просмотра всего текста
Visual Basic
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
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237

 #Define xlCenter          -4108            
  #Define xlSolid               1  
  #Define xlEdgeLeft            7  
  #Define xlEdgeTop             8  
  #Define xlEdgeBottom          9  
  #Define xlEdgeRight          10  
  #Define xlInsideVertical     11  
  #Define xlInsideHorizontal   12  
  #Define xlThin                2  
  #Define xlThick               4  
  #Define xlMedium          -4138  
  #Define xlDouble          -4119  
    
  Local lcPath, loExcel, lnRow  
    
  loExcel = Createobject("Excel.Application")  
    
  With loExcel  
    .Visible = .T.  
    .WorkBooks.Add  
 **.ActiveWindow.DisplayZeros = .F.  
 * Устанавлиаем ширину столбцов  
    .Columns[1].ColumnWidth = 5  
    .Columns[2].ColumnWidth = 40  
    .Columns[3].ColumnWidth = 10.71  
    .Columns[4].ColumnWidth = 15  
    .Columns[5].ColumnWidth = 15  
    .Columns[6].ColumnWidth = 15  
    .Columns[7].ColumnWidth = 15  
    .Columns[8].ColumnWidth = 15  
    .Columns[9].ColumnWidth = 15  
    
    
    
    
 * Заголовок  
    .cells(1,3).Font.Size = 13  
    .cells(1,3).Font.Bold = .T.  
    .cells(1,3).Value = 'Накопительная ведомость данных путевых листов по автомобилям'  
    .cells(2,5).Font.Size = 11                  
    .cells(2,5).Font.Bold = .F.  
      
    
    .Range("A7:I7").Select  
    .ActiveWindow.FreezePanes = .T.  
    With .Selection  
        .RowHeight = 18                         
        .Font.Size = 10  
        .Font.Bold = .T.  
    Endwith  
    .cells(5,1).Value = '№ п\п'  
    .cells(5,2).Value = 'Наименование автомобиля, номер и дата путевого листа'  
    .cells(5,3).Value = 'Единица измерения'  
    .cells(5,4).Value = 'Остаток на начало отчетного периода'  
    .cells(5,5).Value = 'Поступило'  
    .cells(5,6).Value = 'Расход '  
    .cells(5,7).Value = 'Остаток на конец отчетного периода'  
    .cells(5,8).Value = 'Показания спидометра на'  
    .cells(6,8).Value = 'начало отчетного периода'  
    .cells(6,9).Value = 'конец отчетного периода'  
    
 *редактируем ячейки для дальнейшего использования  
    .Range("A5:A6").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
        .WrapText = .T.  
        .Orientation = 0  
        .AddIndent = .F.  
        .IndentLevel = 0  
        .ShrinkToFit = .F.  
        .ReadingOrder = -5002   &&xlContext  
    Endwith  
    .Range("B5:B6").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
        .WrapText = .T.  
        .Orientation = 0  
        .AddIndent = .F.  
        .IndentLevel = 0  
        .ShrinkToFit = .F.  
        .ReadingOrder = -5002  
    Endwith  
    .Range("C5:C6").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
        .WrapText = .T.  
        .Orientation = 0  
        .AddIndent = .F.  
        .IndentLevel = 0  
        .ShrinkToFit = .F.  
        .ReadingOrder = -5002  
    Endwith  
    .Range("D56").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
        .WrapText = .T.  
        .Orientation = 0  
        .AddIndent = .F.  
        .IndentLevel = 0  
        .ShrinkToFit = .F.  
        .ReadingOrder = -5002  
    Endwith  
    .Range("E5:E6").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
    Endwith  
    .Range("F5:F6").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
    Endwith  
    .Range("G5:G6").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
        .WrapText = .T.  
        .Orientation = 0  
        .AddIndent = .F.  
        .IndentLevel = 0  
        .ShrinkToFit = .F.  
        .ReadingOrder = -5002  
    Endwith  
    .Range("H5:I5").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
    Endwith  
    .Range("H6:H6").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
        .WrapText = .T.  
        .Orientation = 0  
        .AddIndent = .F.  
        .IndentLevel = 0  
        .ShrinkToFit = .F.  
        .ReadingOrder = -5002  
    Endwith  
    .Range("I6:I6").Select  
    With .Selection  
        .MergeCells = .T.  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
        .WrapText = .T.  
        .Orientation = 0  
        .AddIndent = .F.  
        .IndentLevel = 0  
        .ShrinkToFit = .F.  
        .ReadingOrder = -5002  
    Endwith  
    
    .Range("A5:I6").Select  
    With .Selection  
        .BorderS(xlEdgeLeft).Weight = xlMedium  
        .BorderS(xlEdgeTop).Weight = xlMedium  
        .BorderS(xlEdgeBottom).Weight = xlMedium  
        .BorderS(xlEdgeRight).Weight = xlMedium  
        .BorderS(xlInsideVertical).Weight = xlThin  
        .BorderS(xlInsideHorizontal).Weight = xlThin  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
    Endwith  
    .Rows("6:6").RowHeight = 45  
    .cells(7,1).NumberFormat = "@"  
    .cells(7,1).Value = "1"  
    .cells(7,2).NumberFormat = "@"  
    .cells(7,2).Value = "2"  
    .cells(7,3).NumberFormat = "@"  
    .cells(7,3).Value = "3"  
    .cells(7,4).NumberFormat = "@"  
    .cells(7,4).Value = "4"  
    .cells(7,5).NumberFormat = "@"  
    .cells(7,5).Value = "5"  
    .cells(7,6).NumberFormat = "@"  
    .cells(7,6).Value = "6"  
    .cells(7,7).NumberFormat = "@"  
    .cells(7,7).Value = "7"  
    .cells(7,8).NumberFormat = "@"  
    .cells(7,8).Value = "8"  
    .cells(7,9).NumberFormat = "@"  
    .cells(7,9).Value = "9"  
    *делаем сквозную строку  
     With .ActiveSheet.PageSetup  
          .PrintTitleRows = "$7:$7"  
          .PrintTitleColumns = ""  
      EndWith  
    
    .Range("A7:I7").Select  
    With .Selection  
        .BorderS(xlEdgeLeft).Weight = xlMedium  
        .BorderS(xlEdgeTop).Weight = xlMedium  
        .BorderS(xlEdgeBottom).Weight = xlMedium  
        .BorderS(xlEdgeRight).Weight = xlMedium  
        .BorderS(xlInsideVertical).Weight = xlThin  
        .BorderS(xlInsideHorizontal).Weight = xlThin  
        .HorizontalAlignment = xlCenter  
        .VerticalAlignment = xlCenter  
    Endwith  
    
    lnRow = 7  
 *тут заполняем таблицу своими данными  
    
  .Range(.cells(8,1),.cells(lnRow, 9)).Select  
  With .Selection  
    .BorderS(xlEdgeLeft).Weight = xlMedium  
    .BorderS(xlEdgeTop).Weight = xlMedium  
    .BorderS(xlEdgeBottom).Weight = xlMedium  
    .BorderS(xlEdgeRight).Weight = xlMedium  
    .BorderS(xlInsideVertical).Weight = xlThin  
    .BorderS(xlInsideHorizontal).Weight = xlThin  
    .HorizontalAlignment = xlCenter  
    .VerticalAlignment = xlCenter  
  Endwith  
    
    
    lnRow = lnRow + 2  
    .cells(lnRow,2).NumberFormat = "@"  
    .cells(lnRow,2).Value = "Отчет проверил _______________________________________________________________________"  
  Endwith  
    
    
  Messagebox ('Данные выгружены в программу Excel',0+48,;  
    'Сообщение программы')
1
0 / 0 / 0
Регистрация: 10.09.2013
Сообщений: 2
09.10.2013, 10:03  [ТС]
Спасибо!!!!
0
0 / 0 / 0
Регистрация: 27.06.2012
Сообщений: 7
26.05.2015, 12:52
Помогите пожалуйста - как открыть и работать одновременно с двумя excel документами в Visual FoxPro
0
2 / 2 / 1
Регистрация: 23.03.2014
Сообщений: 12
06.06.2015, 21:13
открой 2 объекта и в них по файлу и работай если так надо.
примерно так
Code
1
2
3
4

loExcel = CREATEOBJECT("Excel.Application")
loExcel.WorkBooks.ADD(Path+lFile)
loExcel2 = CREATEOBJECT("Excel.Application")
loExcel2.WorkBooks.ADD(Path+lFile)
1
0 / 0 / 0
Регистрация: 27.06.2012
Сообщений: 7
07.06.2015, 16:10
Михаил59
Спасибо большое! про методы и свойства объектов можете посоветовать где посмотреть с примерами.
0
2 / 2 / 1
Регистрация: 23.03.2014
Сообщений: 12
14.06.2015, 20:28
Объект то Вы получили. А дальше все как в VBA с указанием объекта естест-но
Пример для одного объекта lExcel
lExcel.VISIBLE = .T. - визуализация объекта
lExcel.Sheets.Add - добавить лист в книгу
lExcel.Worksheets("Лист1").Delete
lExcel.Sheets("Карточки").Select
lExcel.Columns("A:A").ColumnWidth = 22 - определяем ширину столбца
Ни самое самое
lExcel.Cells(1,2).value=значение - присвоить "значение" ячейке R1C2
переменная=lExcel.Cells(1,2).value - взять значение из ячейки R1C2
Повторюсь все как в VBA.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 14.06.2015, 20:28
Помогаю со студенческими работами здесь

Как выводить в Edit тип данных Double ?
Всем доброго вечера. Написал программу формулу для расчета вот код программы (кнопки): void __fastcall TForm1::Button1Click(TObject...

Как выводить ограниченное количество данных по страницам?
Добрый вечер, как разбить доп. 10 тем на 2 страницы??? <?php $result = mysql_query("SELECT " . ...

Из Excel в DBGrid. Подключиться к рабочей книге MS Excel, как к базе данных.
Доброго времени суток! У меня возникли проблемы при выводе таблицы с Excel на DBGrid, а именно: после запроса вывести весь лист в DBGrid...

Как выводить информацию с базы данных в обратном порядке?
Здравствуйте, подскажите пожалуйста!!!!! Есть новостной сайт, сейчас, если я добавляю новость в базу данных она становится на сайте...

Как выгрузить процесс Excel из памяти при экспорте данных из ASP.Net (C#) в Excel?
Здравствуйте! Как выгрузить процесс Excel из памяти при экспорте данных из ASP.Net (C#) в Excel? Вопрос обсуждается везде и много...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru