powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос который создает отчет в word,excel, point из access
1 сообщений из 1, страница 1 из 1
Макрос который создает отчет в word,excel, point из access
    #36646128
Digkill
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть часть кода, которая из бд акцесса выводит сообщения и создает отчет в эксель.
Как реализовать чтоб создовался отчет в эксель, в ворд, строилась диаграмма в повер поинт?
Код: 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.
Option Compare Database

 Sub stud_write()
 Dim rs As Recordset
 Dim rss As Recordset
 Dim s As Integer
 Dim i As Integer
 Dim st As String
 Dim ex As Excel.Application
 Set ex = New Excel.Application
 
 
 Dim wrd As Word.Application
 Set wrd = New Word.Application
 
 'ex.Documents.Add
 
 
 Const mass =  6 
 Dim ar(mass) As String
 Dim re(mass) As Integer
 
 Set rs = CurrentDb.OpenRecordset("students")
 Set rss = CurrentDb.OpenRecordset("stud")
 i =  0 
 
 Do While Not rss.EOF
 st = rss.Fields("fio")
 i = i +  1 
 ar(i) = st
 'MsgBox st
 
 rss.MoveNext
 Loop
  Do While Not rs.EOF
  s = rs.Fields("student")
  re(i) = s
  'MsgBox s
  rs.MoveNext
  Loop
  ex.Workbooks.Add
 ex.Worksheets.Add
 wrd.Documents.Add
 For i =  1  To mass -  1 
 'MsgBox ar(i) ', re(i)
 ex.ActiveCell(i +  1 ,  1 ) = ar(i)
 Next i
 ex.ActiveWorkbook.SaveAs "C:\Documents and Settings\test\Мои документы\Vitaliy&Anton\Excel.xls"
 wrd.ActiveDocument.SaveAs "C:\Documents and Settings\test\Мои документы\Vitaliy&Anton\Word.doc"
  rs.Close
 rss.Close
 wrd.Quit
ex.Quit
Set ex = Nothing
End Sub

Также сама база:
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос который создает отчет в word,excel, point из access
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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