AW: Problem beim speichern anderer User
20.03.2011 17:14:05
Walter
Hallo Hajo,
natürlich.
Hier das Makro:
Public Sub Speicherung_ins_C_Laufwerk()
Dim fs As Object, Ord As Byte, Pfad As String
Dim DateiNam As String
Application.ScreenUpdating = False
Dim OrdNam As String
'DateiNam = ActiveWorkbook.Name
DateiNam = "#_Test.xls"
OrdNam = "C:\Lager\Regal\#_Test_Lager"
If Dir(OrdNam, 16) "" Then
MsgBox "Ordner: '" & OrdNam & "' ist vorhanden !" & Chr(13) _
& Chr(13) & " Datei: " & " " & DateiNam & " " _
& "wird jetzt gespeichert ! ", vbInformation, " Hinweis !"
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ActiveWorkbook.SaveAs Filename:=(OrdNam & "\" & DateiNam), FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
Else
'------ wenn Verz. nicht da, dann wird angelegt -------
' MsgBox "fehlt"
MsgBox "Ordner '" & OrdNam & "' ist noch nicht vorhanden ! " & Chr(13) _
& vbCr & "Ordner wird jetzt neu erstellt !" & Chr(13), vbCritical
MkDir OrdNam ' hier wird Verzeichnis erstellt
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ActiveWorkbook.SaveAs Filename:=(OrdNam & "\" & DateiNam), FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
End If
Application.ScreenUpdating = True
ActiveSheet.Range("H3").Activate
End Sub
mfg walter K