' Exceli juurde prdumine suvalisest MS Office programmist

Sub looExceliLeht()
  Set ex = CreateObject("Excel.Application")
  Set raamat = ex.workbooks.Add
  raamat.sheets(1).Cells(3, 2) = "Kuku"
  raamat.SaveAs "tervitus3.xls"
  ex.Quit
End Sub


Sub looWordiLeht()
  Set wd = CreateObject("Word.Application")
  Set dok = wd.documents.Add
  dok.Range.insertAfter ("tere")
  dok.SaveAs "tervitus.doc"
  wd.Quit
End Sub