• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Document openen en sluiten

Status
Niet open voor verdere reacties.

Paul-RT

Giga Honourable Senior Member †
Lid geworden
6 dec 2003
Berichten
10.886
In een document "Leeg" klik ik na gegevens invullen op een command button.
Die zorgt ervoor dat het huidige document wordt opgeslagen met de naam van de waarde uit een cel.
Daarna moet het volgende gebeuren:
Een nieuw document "Leeg" moet worden geopend, en het huidige reeds ingevulde doc. moet sluiten.

Wat gebeurd er? Het nieuwe doc opent en vraagt errst om een waarde (dmv inputbox).
Hiernaa wordt het 2e commando uitgevoerd en beide docs gesloten.
Hoe los ik dit op?

Code:
Private Sub CommandButton1_Click()
  
  ThisWorkbook.SaveAs Filename:=Sheets("Apparaat").Range("K7").Value
  Workbooks.Open Filename:="F:\Microsoft Office 2003\Excel\Test exell HelpMij\Keurings Rapport nieuw.xls"
  Workbooks.Close Filename:=Sheets("Apparaat").Range("K7").Value
  
Geennummer:

  ThisWorkbook.Saved = True
End Sub

Als ik close en open verwissel, wordt het huidige document gesloten. Daarna is het open-commando niet meer beschikbaar en gebeurd er niets.
Is het mogelijk, aan te geven welk doc er gesloten gaat worden?
 
Laatst bewerkt:
Waarom moet je deze volgorde aanhouden?
Je kunt toch het ingevulde sheet opslaan met naam uit K7
Wil je nog een sheet invullen maak je toch alle in te vullen cellen leeg.
En je slaat het blanco sheet op als sjabloon.

Cobbe
 
De syntaxys voor Close van een specifiek bestand is
Code:
Workbooks("filename").Close

Succes
Wim
 
Code:
Sub Opslaan()
ThisWorkbook.SaveAs Filename:=Sheets("Apparaat").Range("K7").Value
 Workbooks.Open Filename:="F:\Microsoft Office 2003\Excel\Test exell HelpMij\Keurings Rapport nieuw.xls"
ThisWorkbook.close savechanges:=True
End Sub

Met vriendelijke groet,


Roncancio
 
Waarom moet je deze volgorde aanhouden?
Je kunt toch het ingevulde sheet opslaan met naam uit K7
Wil je nog een sheet invullen maak je toch alle in te vullen cellen leeg.
En je slaat het blanco sheet op als sjabloon.

Cobbe

Staat reeds als "sjabloon" (leeg doc, read-only).
Waarom zo? Omdat er telkens een 100-tal of meer docs achter elkaar worden ingevuld.
Dus om de handelingen te beperken, 1 knop voor opslaan, leeg form openen en de huidige sluiten.

@ Roncancio: ik ga het proberen. Thanx.


Edit: Dat werkt Roncancio.
Ik heb alleen sub opslaan() gewijzigd in sub commandbutton1

Wederom veel thanx ! :thumb:
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan