Keskustelu: Ohjelmointikysymykset: VBA: Aika exceliin

Private Sub Timer1_Timer()
Label2.Caption = Time
Label3.Caption = Date
End Sub

Private Sub Command1_Click()

  Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object

   Set oExcel = CreateObject("Excel.Application")
   Set excelsheet = GetObject("c:\roskis\uusi.xls")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1").Value = Date
   oSheet.Range("B1").Value = Time
   End Sub
Private Sub Command2_Click()

Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   Set oExcel = CreateObject("Excel.Application")
   Set excelsheet = GetObject("c:\roskis\uusi.xls")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("C1").Value = Time
End Sub

Sub Main()
   oSheet.Columns.AutoFit
   oSheet.Application.DisplayAlerts = False
   oBook.SaveAs "C:\Roskis\uusi.xls"
   oExcel.Quit

End Sub