In diesem Beispiel wird der zweite Abschnitt in der Sammelmappe, die die aktive Microsoft Excel-Arbeitsmappe enthält, ausgeblendet und dann der Wert der Zelle A1 auf 345,67 gesetzt. Die Sammelmappe ist in diesem Beispiel Binder1.obd
Set myBinder = GetObject("Binder1.obd", "Office.Binder") Set myWorkbook = myBinder.Sections(1).Object With myWorkbook .Container.Sections(2).Visible = False .Sheets(1).Cells(1, 1).Value = 345.67 End With