Åbning og lukning af en Excel fil

Public Sub OpenExcel()
  Dim Exl As Object
  Set Exl = CreateObject("EXCEL.APPLICATION")
  Exl.Visible = True
  Exl.Workbooks.Open "C:\Dokumenter\Excel\DinFil.xls"
End Sub

Hvis den skal lukke det igen, skal du lige have Exl.Quit på:

Public Sub OpenExcel()
  Dim Exl As Object
  Set Exl = CreateObject("EXCEL.APPLICATION")
  Exl.Visible = True
  Exl.Workbooks.Open "C:\Dokumenter\Excel\Billaan.xls"
  Exl.Quit
End Sub

Den skal også gemme ændringerne..

Og hvordan aktiverer jeg den..?

Jeg kan kun finde ud af at afspille den.. hvis jeg står inde i den.

Har fundet ud af at "ativere den"...

Public Function OpenExcel()
  Dim Exl As Object
  Set Exl = CreateObject("EXCEL.APPLICATION")
  Exl.Visible = True
  Exl.Workbooks.Open "C:\Dokumenter\Excel\DinFil.xls"
  Exl.ActiveWorkbook.Save
  Exl.Quit
End Function


Jeg har lavet den om til en Function, hvilket betyder, at du kan kalde den alle steder fra. F.eks. på en kommandoknap, kan du blot skrive:
=OpenExcel()

i egenskaben VedKlik

Et problem.. den udfører ikke de makroer der er inde i den Excel fil.. som står til at køre når arket bliver åbnet.

hmm, har du navnet på makroerne?

I så fald kan du gennemtvinge en kørsel ved at skrive:

Exl.Run "ThisWorkbook.DinMakro"

hvor ThisWorkbook refererer til det modul, som makoen ligger i.

Linien skal lægges lige før .Save-linien

Så virker det... en lille detalje.. kan regnearket være minimeret i mellemtiden?

Ja, du burde kunne fjerne linien:
Exl.Visible = True

Mange tak...