Datei schließen wenn offen
26.09.2006 15:47:13
achim
wer kann mal schauen?
habe von rolf diesen code und möchte diesen erweitert haben:
nun sollte auch noch eine zweite datei wenn offen geschlossen werden und zwar:
02_DFStrab.xls
Sub filecheck()
Dim strFile$
strFile = "09_Fragebogen1.xls"
On Error GoTo nixtun
Windows(strFile).Close
nixtun:
End Sub
gruss
achim h.
Anzeige