Fehler in Sub "Datei speichern"

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Fehler in Sub "Datei speichern"
von: Michael Reuter
Geschrieben am: 17.07.2002 - 12:35:19

Hallo Leute,

habe folgenden Sub verwendet aus dem Forum erhalten(Danke), funktioniert auch gut soweit.
Nur wenn die Datei die gespeichert werden soll schon vorhanden ist dann gibts Probleme.

Habe mit OnError schon Experimentiert, nur darf die vorhandene Datei nicht überschrieben werden.

Danke schon mal
Michael Reuter

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False

Dim mitarb As String
Dim pfadM As String
Dim pfadT As String
Dim wbM As Workbook
Dim wbV As Workbook


pfadM = "C:\Stundenverwaltung\Mitarbeiter\"
pfadT = "C:\Stundenverwaltung\Vorlagen\"
Set wbV = ActiveWorkbook
mitarb = wbV.Worksheets(2).Range("H10")
Set wbM = Workbooks.Add(Template:=pfadT _
& "Stundenvorlage.xls")
wbM.SaveAs Filename:=pfadM & mitarb & ".xls"
wbM.Close
MsgBox "Datei " & mitarb & " wurde angelegt"

ActiveWorkbook.Close


End Sub

nach oben   nach unten

Dir-Funktion
von: sam
Geschrieben am: 17.07.2002 - 12:38:44

Hi,

überprüfe mittels Dir-Funktion, ob die Datei bereits existiert.


'...
if Dir(pfadM & mitarb & ".xls")="" then
  'Nicht vorhanden ==> Sichern
  wbm.SaveAs pfadM & mitarb & ".xls"
end if
'...

Gruß,
Sam


nach oben   nach unten

Re: Fehler in Sub "Datei speichern"
von: Michael Scheffler
Geschrieben am: 17.07.2002 - 12:40:02

Hallo,

warum überprüfst Du nicht mit "Dir", ob die Datei vorhanden ist?

Gruß

Micha


nach oben   nach unten

Re: Dir-Funktion
von: Michael Reuter
Geschrieben am: 17.07.2002 - 13:23:29

Hallo sam,

dein Tipp ist gut aber ich zu blöde zum einbauen,
bekomme jetzt Nachricht das eine Datei ohne Namen vorhanden ist.
Heute ist wohl nicht mein Tag


nach oben   nach unten

Re: Dir-Funktion
von: sam
Geschrieben am: 17.07.2002 - 13:29:21

Hi,

die meldung kenne ich überhaupt nicht. Ich empfehle dir den Rechner neu zu starten und zur sicherheit deine Festplatte zu Reparieren.
Sam


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Fehler in Sub "Datei speichern""