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