Excel sheet opslaan met VB

[Verwijderd]

Een lastig probleempje. Ik heb met getobject een excel sheet geopend. Zodra ik het weer save en het programme sluit en vervolgens de excel-file open, ben ik al mijn sheets kwijt. Hoe kan dat?
De code is als hieronder:

dim TabellenExcel as object
Set TabellenExcel = GetObject("X:\WeCo\Financieel\Programma\Tabellen.xls")

TabellenExcel.worksheets("sheet1").Cells(1, 1).Value = 45

TabellenExcel.save

Iemand die verstand van VB heeft?

[droeftoeter]

ik heb het volgende regeltje gebruikt om een nieuw gemaakt sheet op te slaan mbv excel macro, misschien kun je hier iets mee

ActiveWorkbook.SaveAs Filename:="C:\temp\voorbeeld.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="hallo", ReadOnlyRecommended:=False, CreateBackup:=False

verder ben ik niet echt VB onderlegd, succes

[robjanssen]

Ik gebruik altijd zoiets:

code:

Dim XL As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet

Set XL = New Excel.Application
Set WB = XL.Workbooks.Open("C:\temp\voorbeeld.xls")
Set WS = WB.Worksheets(1)

WS.Cells(1,1) = 45

WB.Save
XL.Quit

Set WS = Nothing
Set WB = Nothing
Set XL = Nothing